Что нового

Прозрачный фон для Icon и Label

Fantasy22

Новичок
Сообщения
11
Репутация
0
Здравствуйте
Я понимаю тема уже заезженная но всеже
Помогите новичку создать прозрачный фон у $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
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Fantasy22

Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Глобальный модератор.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
https://autoit-script.ru/index.php?topic=1735.0
Читаем справку по стилям окон и элементов. Очень помогает поиск по форуму
 
Автор
F

Fantasy22

Новичок
Сообщения
11
Репутация
0
С прозрачным фоном у Label разобрался а вот с иконками ни как
 

Вложения

  • Снимок.PNG
    Снимок.PNG
    15.8 КБ · Просмотры: 80

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Fantasy22
для этого иконка должна быть прозрачна. я использую .png. Если в окне программы нужно вставить картинку
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
Самый простой способ, это создать иконку с куском фона, который должен находиться под ней. Как вариант, можете дорисовывать фон в самом скрипте. Все это относится и к PNG. Ну или используйте Icon UDF, но она больше не поддерживается.
 
Верх