Merge pull request 'Replace MsgBox with GUI reminder and countdown' (#2) from features/bugfixes into main
Reviewed-on: https://gitea.mohandl3g.ddnsgeek.com/MohandL3G/AHK-Scripts/pulls/2
This commit was merged in pull request #2.
This commit is contained in:
24
Alhelal.ahk
24
Alhelal.ahk
@@ -1,8 +1,24 @@
|
||||
#Requires AutoHotkey v2.0
|
||||
|
||||
; The * makes it trigger instantly
|
||||
:*:199903::
|
||||
{
|
||||
MsgBox "لا تنسى ان تخرج واصل ايراد امس"
|
||||
ExitApp ; This closes the script entirely
|
||||
}
|
||||
MyGui := Gui("+AlwaysOnTop -MinimizeBox", "تذكير")
|
||||
MyGui.SetFont("s14", "Segoe UI")
|
||||
|
||||
MyGui.Add("Text", "w300 Center", "لا تنسى ان تخرج واصل ايراد امس")
|
||||
|
||||
MyBtn := MyGui.Add("Button", "w100 h40 x100 yp+40 Disabled", "انتظر... (2)")
|
||||
|
||||
MyBtn.OnEvent("Click", (*) => ExitApp())
|
||||
MyGui.OnEvent("Close", (*) => ExitApp())
|
||||
|
||||
MyGui.Show()
|
||||
|
||||
Sleep 1000
|
||||
MyBtn.Text := "انتظر... (1)"
|
||||
Sleep 1000
|
||||
|
||||
MyBtn.Enabled := true
|
||||
MyBtn.Opt("+Default")
|
||||
MyBtn.Text := "تم / OK"
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user