Тема: AHK: Изменение прозрачности фона окна при вызове "AnimateWindow"
Здоровья всем.
Подскажите пожалуйста:
Вариант 1.
clock := 0
Gui, Add, Button,,Кнопка
Gui, Show, w100 h100
Gui, 2: Color, 0000D1
Gui, 2: +AlwaysOnTop -Caption +Hwndh_time
Gui, 2: Font, s7 Bold cFFFF00
Gui, 2: Add, Text, w55 Center
Gui, 2: +Lastfound
WinSet, TransColor, 0000D1
Gui, 2: Show, x920 y0 Hide
Return
ButtonКнопка:
if (clock == 0) {
clock := 1
Gui, 2: Show, x920 y0
SetTimer, Timer, 1000
} else {
clock := 0
Gui, 2: Show, Hide
SetTimer, Timer, off
}
return
Timer:
ControlSetText, Static1, % A_Hour ":" A_Min ":" A_Sec, ahk_id%h_time%
Return
GuiClose:
ExitApp
Вариант 2.
clock := 0
Gui, Add, Button,,Кнопка
Gui, Show, w100 h100
Gui, 2: Color, 0000D1
Gui, 2: +AlwaysOnTop -Caption +Hwndh_time
Gui, 2: Font, s7 Bold cFFFF00
Gui, 2: Add, Text, w55 Center
Gui, 2: +Lastfound
WinSet, TransColor, 0000D1
Gui, 2: Show, x920 y0 Hide
Return
ButtonКнопка:
if (clock == 0) {
clock := 1
SetTimer, Timer, 1000
} else {
clock := 0
Gui, 2: Show, Hide
SetTimer, Timer, off
}
return
Timer:
ControlSetText, Static1, % A_Hour ":" A_Min ":" A_Sec, ahk_id%h_time%
DllCall("AnimateWindow", "UInt", h_time
, "Int", 950
, "UInt", 0x80000)
Return
GuiClose:
ExitApp
В первом варианте по нажатию кнопки вверху появляются часы на прозрачном фоне, а во втором они появляются плавно но фон не прозрачный. Как сделать его прозрачным и во втором варианте? И в чём причина того, что появление в первый раз происходит как то "криво" что-ли, но не плавно точно, а все последующие появления уже как и ожидается?