Code: Select all
win = OpenWindow(#PB_Any,0,0,900,600, "test",#PB_Window_MinimizeGadget)
Code: Select all
win = OpenWindow(#PB_Any,0,0,900,600, "test",#PB_Window_MinimizeGadget)
Code: Select all
EnableExplicit
Enumeration Window
#Window_0
EndEnumeration
Enumeration Gadgets
#Btn_1
EndEnumeration
Enumeration Shortcut
#Shortcut_Escape = 3
EndEnumeration
If OpenWindow(#Window_0, 0, 0, 240, 140, "Title", #PB_Window_BorderLess)
SetWindowLongPtr_(WindowID(#Window_0), #GWL_STYLE, GetWindowLongPtr_(WindowID(#Window_0), #GWL_STYLE) | #WS_MINIMIZEBOX)
ButtonGadget(#Btn_1, 20, 20, 200, 100, "Button_1")
AddKeyboardShortcut(#Window_0, #PB_Shortcut_Escape, #Shortcut_Escape)
Repeat : Until WaitWindowEvent() = #PB_Event_Menu And EventMenu() = #Shortcut_Escape
EndIf