AHK: Прозрачность картинок в GUI

If !FileExist("background.bmp")
    URLDownloadToFile, http://onemove.ru/get/27114 , background.bmp
If !FileExist("button3.bmp")    
    URLDownloadToFile, http://onemove.ru/get/27115 , button3.bmp



c=28251c ; произвольный цвет
gui, color, %c%
gui,  +AlwaysOnTop +LastFound +ToolWindow -Caption -Border
WinSet, TransColor, %c% 255
gui, add, picture, w300 h-1 vv1 +BackgroundTrans , background.bmp
gui, add, picture, w214 h35 vv2 x85 y23 +BackgroundTrans  Hidden, button3.bmp
gui, add, picture, w217 h41 vv3 x85 y21 +BackgroundTrans gg, button3.bmp
gui, font, s18 cWhite, Comic Sans MS
gui, add, text, x145 y25 vv4 gg +BackgroundTrans, Button
gui, show
Return

g:
    GuiControl, hide, v3
    GuiControl, show, v2
    GuiControl, move, v4, y23
    While GetKeyState("lbutton", "P")
    Sleep 100
    GuiControl, show, v3
    GuiControl, hide, v2
    GuiControl, move, v4, y25
Return


GuiEscape:
GuiClose:
ExitApp

If !FileExist("background.tif")
    URLDownloadToFile, http://onemove.ru/get/27122 , background.tif
If !FileExist("button3.tif")    
    URLDownloadToFile, http://onemove.ru/get/27123 , button3.tif



c=28251c ; произвольный цвет
gui, color, %c%
gui,  +AlwaysOnTop +LastFound +ToolWindow -Caption -Border
WinSet, TransColor, %c% 255
gui, add, picture, w300 h-1 vv1 +BackgroundTrans , background.tif
gui, add, picture, w214 h35 vv2 x85 y23 +BackgroundTrans  Hidden, button3.tif
gui, add, picture, w217 h41 vv3 x85 y21 +BackgroundTrans gg, button3.tif
gui, font, s18 cWhite, Comic Sans MS
gui, add, text, x145 y25 vv4 gg +BackgroundTrans, Button
gui, show
Return

g:
    GuiControl, hide, v3
    GuiControl, show, v2
    GuiControl, move, v4, y23
    While GetKeyState("lbutton", "P")
    Sleep 10
    GuiControl, show, v3
    GuiControl, hide, v2
    GuiControl, move, v4, y25
Return


GuiEscape:
GuiClose:
ExitApp

x2 := 0
y2 := 0

Gui, 8: Show, x10 y10 w1000 h800, Главное
WinGet,hwnd,ID,Главное

pToken := Gdip_Startup()
Gui, 9: -Caption +E0x80000 +HWNDhwnd1 +LastFound +ToolWindow +OwnDialogs +Owner%hwnd% ;+AlwaysOnTop 
Gui, 9: Show, NA

F1::
gosub, draw
return

draw:
loop, 500
        {
        WinGetPos,xx,yy,ww,hh,Главное
        hbm := CreateDIBSection(A_ScreenWidth, A_ScreenHeight)
        hdc := CreateCompatibleDC()
        obm := SelectObject(hdc, hbm)
        G := Gdip_GraphicsFromhdc(hdc)
        Gdip_SetSmoothingMode(G, 4)
        pPen := Gdip_CreatePen(0xff0000FF, 1)
        Gdip_DrawLine(G, pPen, xx, yy, x2, y2)
        Gdip_DeleteBrush(pPen)
        UpdateLayeredWindow(hwnd1, hdc, xx, yy, ww, hh)
        SelectObject(hdc, obm)
        DeleteObject(hbm)
        DeleteDC(hdc)
        Gdip_DeleteGraphics(G)
        xx := xx + 1
        yy := yy + 1
        x2 := x2 + 1
        y2 := y2 + 1
        sleep, 50
        }
Return
    
    
~Esc::
Clean:
    Gui 9: Destroy
Return

Width := Height := 300
Gui, Add, Pic, hwndhPic x0 y0 w%Width% h%Height%  ; к этому контролу привяжем окно для рисования
Gui, Show, w%Width% h%Height%

OnMessage(0x3, "WM_MOVE")   ; отслеживаем перемещения окна
OnExit, Exit

; WS_EX_LAYERED := 0x80000, WS_EX_TRANSPARENT := 0x20
Gui, 2:-Caption +E0x80020 +hwndID +Owner1   ; в этом окне будем рисовать
Gui, 2:Show, NA

pToken := Gdip_Startup()
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromhdc(hdc)
Gdip_SetSmoothingMode(G, 4)

pPen := Gdip_CreatePen(0xff0000FF, 1)   ; карандаш для рисования

x1 := y1 := 0
WinGetPos, x, y,,, ahk_id %hPic%
Loop % Width
{
   Gdip_DrawLine(G, pPen, x1, y1, x2 := x1++, y2 := y1++)
   UpdateLayeredWindow(ID, hdc, x, y, Width, Height)
   Sleep, 10
}
Gdip_DeletePen(pPen)
return

Exit:
   SelectObject(hdc, obm), DeleteObject(hbm)
   DeleteDC(hdc), Gdip_DeleteGraphics(G)
   Gdip_Shutdown(pToken)
   ExitApp

GuiClose:
   ExitApp
   
WM_MOVE()
{
   global
   WinGetPos, x, y,,, ahk_id %hPic%
   UpdateLayeredWindow(ID, hdc, x, y, Width, Height)
}

Width := Height := 300
Gui, Add, Pic, hwndhPic x0 y0 w%Width% h%Height%  ; в этом контроле будем рисовать
Gui, Show, w%Width% h%Height%

OnExit, Exit
OnMessage(0xF, "WM_PAINT")  ; поддержка изображения при перерисовке окна

pToken := Gdip_Startup()
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromhdc(hdc)
Gdip_SetSmoothingMode(G, 4)

pFillBrush := Gdip_BrushCreateSolid(0xffffffff)   ; кисть для заливки
Gdip_FillRectangle(G, pFillBrush, 0, 0, Width, Height)   ; заливаем белым поле рисования 
Gdip_DeleteBrush(pFrameBrush)

pPen := Gdip_CreatePen(0xff0000FF, 1)   ; карандаш для рисования

hPicDC := GetDC(hPic)  ; получаем контекст контрола, чтобы переносить в него изображение

x1 := y1 := 0
Loop % Width
{
   Gdip_DrawLine(G, pPen, x1, y1, x2 := x1++, y2 := y1++)
   BitBlt(hPicDC, 0, 0, Width, Height, hdc, 0, 0)
   Sleep, 10
}

Gdip_DeletePen(pPen)
return

GuiClose:
   ExitApp
   
Exit:
   ReleaseDC(hPicDC, hPic)
   SelectObject(hdc, obm), DeleteObject(hbm)
   DeleteDC(hdc), Gdip_DeleteGraphics(G)
   Gdip_Shutdown(pToken)
   ExitApp

WM_PAINT()   ; поддержка изображения при перерисовке окна
{
   global
   SetTimer, Timer, -10
   Return

Timer:
   BitBlt(hPicDC, 0, 0, Width, Height, hdc, 0, 0)
   Return
}

x1 := 1
y1 := 2
x2 := 10
y2 := 20
Width := Height := 500
Gui, Add, Pic, hwndhPic x0 y0 w%Width% h%Height%  ; в этом контроле будем рисовать
Gui, Show, w%Width% h%Height%

OnExit, Exit
OnMessage(0xF, "WM_PAINT")  ; поддержка изображения при перерисовке окна

pToken := Gdip_Startup()
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromhdc(hdc)
Gdip_SetSmoothingMode(G, 4)

pFillBrush := Gdip_BrushCreateSolid(0xffAAAAAA)   ; кисть для заливки
Gdip_FillRectangle(G, pFillBrush, 0, 0, Width, Height)   ; заливаем белым поле рисования 
Gdip_DeleteBrush(pFrameBrush)

pPen := Gdip_CreatePen(0xff0000FF, 1)   ; карандаш для рисования

hPicDC := GetDC(hPic)  ; получаем контекст контрола, чтобы переносить в него изображение

x1 := y1 := 0
Loop, 100
{
   x1 := x1 + 1
   y1 := y1 + 2
   x2 := x2 + 3
   y2 := y2 + 4
   Gdip_DrawLine(G, pPen, x1, y1, x2, y2)
   BitBlt(hPicDC, 0, 0, Width, Height, hdc, 0, 0)
   Sleep, 10
}

Gdip_DeletePen(pPen)
return

GuiClose:
   ExitApp
   
Exit:
   ReleaseDC(hPicDC, hPic)
   SelectObject(hdc, obm), DeleteObject(hbm)
   DeleteDC(hdc), Gdip_DeleteGraphics(G)
   Gdip_Shutdown(pToken)
   ExitApp

WM_PAINT()   ; поддержка изображения при перерисовке окна
{
   global
   SetTimer, Timer, -10
   Return

Timer:
   BitBlt(hPicDC, 0, 0, Width, Height, hdc, 0, 0)
   Return
}