Maximieren/verkleinern zur laufzeit deaktivieren?

Für allgemeine Fragen zur Programmierung mit PureBasic.
redboy
Beiträge: 17
Registriert: 28.09.2004 19:43

Maximieren/verkleinern zur laufzeit deaktivieren?

Beitrag von redboy »

Kennt jemand eine möglichkeit den maximieren/verkleinern Button oben rechts zur laufzeit zu deaktivieren und wieder zu aktivieren?
Benutzeravatar
Deeem2031
Beiträge: 1232
Registriert: 29.08.2004 00:16
Wohnort: Vorm Computer
Kontaktdaten:

Beitrag von Deeem2031 »

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
Bild
[url=irc://irc.freenode.org/##purebasic.de]irc://irc.freenode.org/##purebasic.de[/url]
redboy
Beiträge: 17
Registriert: 28.09.2004 19:43

Beitrag von redboy »

ja das ist es...

dank dir
Antworten