Здравствуйте
Я понимаю тема уже заезженная но всеже
Помогите новичку создать прозрачный фон у $Icon и $Label
Я понимаю тема уже заезженная но всеже
Помогите новичку создать прозрачный фон у $Icon и $Label
Код:
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 653, 274, -1, -1, BitOR($WS_SYSMENU,$WS_CLIPSIBLINGS))
$Icon1 = GUICtrlCreateIcon("Icons\01.ico", 0, 32, 24, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon2 = GUICtrlCreateIcon("Icons\02.ico", 0, 344, 24, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon3 = GUICtrlCreateIcon("Icons\03.ico", 0, 32, 88, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon4 = GUICtrlCreateIcon("Icons\04.ico", 0, 32, 184, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon5 = GUICtrlCreateIcon("Icons\05.ico", 0, 344, 184, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP))
$Label1 = GUICtrlCreateLabel("Total Commander", 96, 190, 155, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor($Label1, 0)
GUISetState(@SW_SHOW)
$Label2 = GUICtrlCreateLabel("MSDaRT 10", 400, 190, 105, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor($Label2, 0)
GUISetState(@SW_SHOW)
$Label3 = GUICtrlCreateLabel("Acronis True Image 2016", 96, 32, 215, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 0)
$Label4 = GUICtrlCreateLabel("Acronis Disk Director 12", 408, 32, 203, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 0)
$Label5 = GUICtrlCreateLabel("Acronis Recovery Expert", 96, 92, 213, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
$Pic1 = GUICtrlCreatePic("C:\Users\Fantasy\Desktop\background.bmp", 0, 0, 652, 274, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Label1
Run('d:\Total Commander 64 bit\TOTALCMD64.EXE')
case $Label2
Run('d:\Total Commander 64 bit\TOTALCMD64.EXE')
case $Label3
Run('d:\Total Commander 64 bit\TOTALCMD64.EXE')
case $Label4
Run('d:\Total Commander 64 bit\TOTALCMD64.EXE')
case $Label5
Run('d:\Total Commander 64 bit\TOTALCMD64.EXE')
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd