Как повернуть картинку в GUI (png)?

sss · 2 Апр 2012

Всем доброго времени суток! Возникла проблема: необходимо повернуть полупрозрачную картинку (взятую из файла png) в GUI. Явно что-то связанное с GDIPlus, но я в нем не очень силен... Нашел на официальном форуме пример, но не получается адаптировать к моему случаю. Я так понял, самое интересное в функции Rotate(), но как вместо треугольника вставить картинку... И хотелось бы добавить туда параметр угла поворота и использовать без Adlib(это у меня получилось). Полупрозрачность обязательно должна остаться.
Помогите пожалуйста! Картинка во вложении. Код с форума ниже.

Код:

#include <GDIP.au3>
#include <winapi.au3>
#include <Misc.au3>
Opt("MouseCoordMode", 2)
 
_GDIPlus_Startup()
 
$hGui = GUICreate("GDI+ Evento by monoscout999", 300, 300)
$iPic = GUICtrlCreatePic("", 0, 0, 300, 300)
 
GUISetState()
 
Global $hDll = DllOpen("user32.dll")
global $RotAng = 1
Global $status
Global $aColors[4] = [3, 0xFFFF0000, 0xFF550000, 0xFF220000]
Global $aPoints[4][2] = [[3],[63, 200],[237, 200],[150, 50]]
Global $aPathPoints[4][2] = [[3],[-87, 50],[87, 50],[0, -100]] ; All elements - 150
 
$hGraphics = _GDIPlus_GraphicsCreateFromHWND(GUICtrlGetHandle($iPic))
_GDIPlus_GraphicsClear($hGraphics, 0xFF123456)
_GDIPlus_GraphicsSetSmoothingMode($hGraphics, 2)
 
$hBrush = _GDIPlus_PathBrushCreate($aPoints)
_GDIPlus_PathBrushSetCenterColor($hBrush, 0xFF222200)
_GDIPlus_PathBrushSetSurroundColorsWithCount($hBrush, $aColors)
 
$hGBitmap = _GDIPlus_BitmapCreateFromGraphics(300, 300, $hGraphics)
$hGBackbuffer = _GDIPlus_ImageGetGraphicsContext($hGBitmap)
 
$hPath = _GDIPlus_PathCreate()
 
$hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hMatrix, 150, 150)
 
AdlibRegister("Rotate", 20)
 
While True
    $iMsg = GUIGetMsg()
    Switch $iMsg
        Case -3
            Exit
 
    EndSwitch
    $status = _GDIPlus_PathIsVisiblePoint($hPath, MouseGetPos(0), MouseGetPos(1), $hGraphics)
    If $status = True Then
        GUISetCursor(14, 1, $hGui)
        $MousePos = MouseGetPos(0)
        While _IsPressed(0x01,$hDll)
        $RotAng = (MouseGetPos(0) - $MousePos) / 50
        Opt("MouseCoordMode", 1)
        ToolTip($RotAng, MouseGetPos(0)+20, MouseGetPos(1)+20,"Rotation Speed")
        Opt("MouseCoordMode", 2)
        WEnd
        ToolTip("")
    Else
        GUISetCursor(-1, 1, $hGui)
    EndIf
WEnd
 
 
AdlibUnRegister("Rotate")
_GDIPlus_MatrixDispose($hMatrix)
_GDIPlus_PathDispose($hPath)
_GDIPlus_GraphicsDispose($hGBackbuffer)
_GDIPlus_BitmapDispose($hGBitmap)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
DllClose($hDll)
 
Func Rotate()
    _GDIPlus_GraphicsClear($hGBackbuffer, 0xFF123456)
    _GDIPlus_MatrixRotate($hMatrix, $RotAng)
    _GDIPlus_GraphicsSetTransform($hGraphics, $hMatrix)
    $aPathPoints2 = _GDIPlus_MatrixTransformPoints($hMatrix, $aPathPoints)
    _GDIPlus_PathReset($hPath)
    _GDIPlus_PathAddPolygon($hPath, $aPathPoints2)
    _GDIPlus_GraphicsFillPolygon($hGBackbuffer, $aPoints, $hBrush)
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hGBitmap, -150, -150, 300, 300)
EndFunc   ;==>Rotate

Zaramot · 3 Апр 2012

Код:

#include <GDIPlus.au3>

Global $ImageWidth = 300
Global $ImageHeigth = 300
Global $ImageX = 0
Global $ImageY = 0
Global $ImageColor = 0xFFFFFFFF

$hwnd = GUICreate("Test", 300, 300)
GUISetState()

_GDIPlus_Startup()
$graphics = _GDIPlus_GraphicsCreateFromHWND($hwnd)
$bitmap = _GDIPlus_BitmapCreateFromGraphics($ImageWidth, $ImageHeigth, $graphics)
$backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
$image=_GDIPlus_ImageLoadFromFile(@ScriptDir & "\sec.png")
$matrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($matrix, Round($ImageWidth / 2), Round($ImageHeigth / 2))

Do
    _GDIPlus_GraphicsClear($backbuffer, $ImageColor)
    _GDIPlus_MatrixRotate($matrix, 1)
    _GDIPlus_GraphicsSetTransform($backbuffer, $matrix)
    _GDIPlus_GraphicsDrawImageRect($backbuffer, $image, -Round($ImageWidth / 2), -($ImageHeigth / 2), $ImageWidth, $ImageHeigth)
    _GDIPlus_GraphicsDrawImageRect($graphics, $bitmap, $ImageX, $ImageY, $ImageWidth, $ImageHeigth)
    Sleep(10)
Until GUIGetMsg() = -3

sss · 3 Апр 2012

Спасибо, работает! А как под нее подложить другую картинку (тоже png, в контрол ставлю с помощью Icons UDF от Yashied)? Для этого и нужна была прозрачность.

Zaramot · 3 Апр 2012

Вот пример:
Image Rotation over a background

Автор темы	Похожие темы	Форум	Ответы	Дата
P	Как вставить картинку в RichEdit из буфера обмена	Общие вопросы по AutoIt	2	17 Авг 2021
R	Реакция скрипта на уменьшенную или увеличенную картинку	Общие вопросы по AutoIt	1	23 Июн 2020
S	Перетащить картинку в окно пропорционально	GUI - Графический интерфейс пользователя	14	13 Апр 2020
	Элементы GUI Как увеличить картинку на кнопке, когда увеличился ее (кнопки) размер?	GUI - Графический интерфейс пользователя	0	19 Ноя 2019
	Повернуть массив (как при iTranspose)	Общие вопросы по AutoIt	3	9 Июн 2013

Поиск

Поиск

Как повернуть картинку в GUI (png)?

sss

Продвинутый

Zaramot

I ♥ AutoIt

sss

Продвинутый

Zaramot

I ♥ AutoIt