Maximieren/verkleinern zur laufzeit deaktivieren?
Verfasst: 28.09.2004 19:47
Kennt jemand eine möglichkeit den maximieren/verkleinern Button oben rechts zur laufzeit zu deaktivieren und wieder zu aktivieren?
Code: Alles auswählen
CreateGadgetList(OpenWindow(0,0,0,200,60,#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget,""))
ButtonGadget(0,50,0,100,20,"Maximize")
ButtonGadget(1,50,30,100,20,"Minimize")
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadgetID()
Case 0
SetWindowLong_(WindowID(0),#GWL_STYLE,GetWindowLong_(WindowID(0),#GWL_STYLE)!#WS_MAXIMIZEBOX)
ShowWindow_(WindowID(0),#SW_HIDE)
ShowWindow_(WindowID(0),#SW_SHOW)
Case 1
SetWindowLong_(WindowID(0),#GWL_STYLE,GetWindowLong_(WindowID(0),#GWL_STYLE)!#WS_MINIMIZEBOX)
ShowWindow_(WindowID(0),#SW_HIDE)
ShowWindow_(WindowID(0),#SW_SHOW)
EndSelect
Case #PB_Event_CloseWindow
quit = 1
Case 0
Delay(100)
EndSelect
Until quit