Что нового

Как сделать окно прозрачным

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
657
Есть скрипт:
Код:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Date.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 632, 360, 192, 124, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_COMPOSITED)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("00:00:00", 0, 104, 634, 165)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 100, 400, 0, "Verdana")
GUISetState(@SW_SHOW)

_WinAPI_SetLayeredWindowAttributes($Form1, 0x000000, 0, $LWA_COLORKEY)

While 1
	GUICtrlSetData($Label1, _NowTime())
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Как можно сделать окно прозрачным ?
P.S. WinSetTrans мне не помог.
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5 379
Репутация
2 711
Код:
_WinAPI_SetLayeredWindowAttributes($Form1, 0x000000, 128, BitOR($LWA_ALPHA, $LWA_COLORKEY))
 
  • Like
Реакции: Norm
Автор
Zaramot

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
657
Спасибо Yashied, а то я в твоей библиотеки ещё не разобрался :smile:
 
Верх