Advertisement
sashaatx

Untitled

Aug 11th, 2023
1,456
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. MenuHelpAbout(*)
  2. {
  3.     About := Gui("+owner" MyGui.Hwnd)  ; Make the main window the owner of the "about box".
  4.     MyGui.Opt("+Disabled")  ; Disable main window.
  5.     About.Add("Text",, "Text for about box.")
  6.     About.Add("Button", "Default", "OK").OnEvent("Click", About_Close)
  7.     About.OnEvent("Close", About_Close)
  8.     About.OnEvent("Escape", About_Close)
  9.     About.Show()
  10.  
  11.     About_Close(*)
  12.     {
  13.         MyGui.Opt("-Disabled")  ; Re-enable the main window (must be done prior to the next step).
  14.         About.Destroy()  ; Destroy the about box.
  15.     }
  16. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement