Überprüfen, ob ein Window minimiert wurde?

[RSBasic]

@PureBasic4.0
Sehr gut

@HeX0R
>Extra für dich, hab ich es etwas veranschaulicht:
Sehr nett von dir, danke

Kann man auch, aber ich hab eigentlich immer so gemacht und hab trotzdem keine Probleme:

Code: Alles auswählen

If OpenWindow(0,0,0,100,100,"testwindow",#PB_Window_MinimizeGadget) 
 Repeat 
   EventID=WaitWindowEvent()
   If GetWindowState(0)=#PB_Window_Minimize 
     Debug "Minimiert" 
  EndIf
  If EventID = #PB_Event_CloseWindow
    Quit=1
  EndIf
Until Quit=1
EndIf

Na ok, es kann sein dass dein Beispiel-Code besser ist, weil du nur ein Event zurückbekommst.
Man kann so oder so machen
Na ok

[ts-soft]

>> Man kann so oder so machen
Aber nur wenn man sein Programm umbedingt verlangsamen möchte
Keinen Code ausserhalb eines dafür vorgesehenen Ereignisses!
Wenn z.B. bei jedem überfahren eines Controlls mit der Maus
GetWindowState() ausgeführt wird, ist das schon sehr unschön

[Kaeru Gaman]

> Keinen Code ausserhalb eines dafür vorgesehenen Ereignisses!

sehr richtig und absolut wichtig.


und noch ein hinweis:

Code: Alles auswählen

			Case #PB_Event_MoveWindow
				If GetWindowState(0) & #PB_Window_Minimize
					Debug "Minimiert"
				EndIf

unter Windows ist das korrespondierende ereignis #PB_Event_MoveWindow, wie hier gezeigt.

unter Linux muss man auf #PB_Event_SizeWindow reagieren.
die beiden OS handlen das minimieren unterschiedlich.

[RSBasic]

@HeX0R & @ts-soft & @Kaeru Gaman
OK, das habe ich nicht gewusst.
Ich habs immer so programmiert, wenn ich mein Programm in die Systray beim Minimieren reinmachen wollte.
Es kam keine Fehlermeldungen, kein Performanceverlust entdeckt und daher war alles Schick für mich.
Ich kanns ja nachher, wenn ich an WT, SoT, AT, QS, 2DMEPB, QFM oder/und CAT weiter progge, wieder ändern

Danke für den Tipp

[edel]

> Keinen Code ausserhalb eines dafür vorgesehenen Ereignisses!

sehr richtig und absolut wichtig.


und noch ein hinweis:

Code: Alles auswählen

			Case #PB_Event_MoveWindow
				If GetWindowState(0) & #PB_Window_Minimize
					Debug "Minimiert"
				EndIf

unter Windows ist das korrespondierende ereignis #PB_Event_MoveWindow, wie hier gezeigt.

unter Linux muss man auf #PB_Event_SizeWindow reagieren.
die beiden OS handlen das minimieren unterschiedlich.

Normalerweise ist es WM_SIZE das dafuer sorgt das man die
Nachricht erhaelt. Warum das hier PB anders haelt ist mir schleierhaft.

Beispiel :

Code: Alles auswählen

Procedure _subclass_cb_(hWnd,uMsg,wParam,lParam)
  
  If uMsg = #WM_SIZE
    Select wParam 
      Case #SIZE_MINIMIZED 
        Debug "MINIMIZED"
      Case #SIZE_RESTORED
        Debug "RESTORED"
      Case #SIZE_MAXIMIZED
        Debug "MAXIMIZED"
    EndSelect 
  EndIf
  
  ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure


If OpenWindow(0, 0, 0, 100, 100, "", #PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget)
  
  SetWindowCallback(@_subclass_cb_())
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break 
    EndSelect
  ForEver
  
EndIf