Messages beim Größenändern von Fenstern

[Jac de Lad]

Hi Profis.

Weiß jemand welche Messages gesendet werden, wenn ein Fenster maximiert wird bzw. wenn es wieder auf normale Größe gebracht wird?
Hab WM_MAXIMIZE und WM_NORMALIZE gefunden, aber ich finde nicht, welche Konstanten das sind (XPSE kennt die nicht).

Jac

[Frabbing]

WM_MAXIMIZE = $F030

Die zweite Message kennt nicht mal MSDN.

[Jac de Lad]

Nee, das hilft nicht. Ich habs aber gefunden: WM_Syscommand und dann SC_Maximize. Nur leider klappt die Abfrage der Fenstergröße mittels Width() und Height() nicht mehr.

Jac

[Jac de Lad]

Problem gelöst. War wieder mal meine Dummheit.

[horsthorn]

@Jac
Lass uns an der Lösung "Deiner Dummheit" teilhaben !

[Jac de Lad]

Jo, gleich heute abend. Muss erstmal arbeiten.

[Jac de Lad]

SubClassProc
If SubClassMessage(%hWnd,wm_sizing)
Resize
Set("WinProc",0)
elseIf SubClassMessage(%hWnd,wm_size)
SetMenuItem 500
Set("WinProc",0)
endif
endproc

proc Resize
SetStyle %hwnd, 1, GetStyle(%hwnd, 1) | $02000000
SetWindowPos st&=0,0-0,0
SetWindowPos tb&=0,0-0,0
'Weitere Controls; Fenstergröße mit Width()/Height() abfragbar; ACHTUNG: Gibt Clientbereich zurück!
SetStyle %hwnd, 1, GetStyle(%hwnd, 1) - $02000000
endproc

cls
declare st&,tb&
st&=Create("Statuswindow",%hWnd,"Text")
tb&=Create("Toolbar",%hWnd,0,12,3,1000,1)
SubClass %hWnd,1
while 1
waitinput
case MenuItem(500):Resize
endwhile
end

Beliebig erweiterbar. An dem Flackern arbeite ich noch.

Irgentwas klappt da nicht XProfan sagt mit immer das wm_sizing und wm_size keine zahl sind

[Jac de Lad]

Jo, stimmt, ich hab XPSE verwendet. Der folgende Quelltext wurde durch XPSE gejagt und enthält nocht wm_ncpaint und wm_displaychange, was ich für genauso wichtig halte.

proc __xpse__endofprogram__
PARAMETERS exitcode&
REM {{SOMEEXTRAENDCOMMAND}}
case %pcount=1 : end exitcode&
end
endproc
DECLARE ST&,TB&
subclassproc
IF SUBCLASSMESSAGE(%HWND,126)'WM_DISPLAYCHANGE
RESIZE
SET("WinProc",0)
IF SUBCLASSMESSAGE(%HWND,133)'WM_NCPAINT
RESIZE
SET("WinProc",0)
IF SUBCLASSMESSAGE(%HWND,532)'WM_SIZING
RESIZE
SET("WinProc",0)
ELSEIF SUBCLASSMESSAGE(%HWND,5)'WM_SIZE
SETMENUITEM 500
SET("WinProc",0)
ENDIF
endproc
proc RESIZE
SETSTYLE %HWND, 1, GETSTYLE(%HWND, 1) | $02000000
SETWINDOWPOS ST&=0,0-0,0
SETWINDOWPOS TB&=0,0-0,0
SETSTYLE %HWND, 1, GETSTYLE(%HWND, 1) - $02000000
endproc
CLS
ST&=CREATE("Statuswindow",%HWND,"Text")
TB&=CREATE("Toolbar",%HWND,0,12,3,1000,1)
SUBCLASS %HWND,1
WHILE 1
WAITINPUT
IF MENUITEM(500)
RESIZE
ENDIF
ENDWHILE
END
__xpse__endofprogram__

Jac

[Jac de Lad]

Zur Erklärung:

wm_displaychange -> Auflösung wurde geändert

wm_ncpaint -> Neuzeichnen wird erwartet (z.B. Sidebar beendet oder gestartet; Taskbargröße geändert -> alles, was den Clientbereich des Fensters betrifft)

wm_sizing -> Fenstergröße wird geändert

wm_size -> Fenstergröße wurde geändert

[Frabbing]

Wenn man den ganzen Messagekram mal halbwegs verstanden hat, ist es gar nicht mehr so schwer.

[Jac de Lad]

Joar, das stimmt. Ich hab ne Weile gebraucht bis ich verstanden habe, dass zum Neuzeichnen nicht immer wm_paint gesendet wird sondern auch manchmal andere. Das hat den Vorteil, dass man auf die Ereignisse unterschiedlich reagieren kann (sie zum Beispiel verhindern indem man sie verwirft), aber im Normalfall muss man da ne Menge durchschleifen.

[Jac de Lad]

DECLARE ST&,TB&

proc RESIZE
SETSTYLE %HWND, 1, GETSTYLE(%HWND, 1) | $02000000
SETWINDOWPOS ST&=0,0-0,0
SETWINDOWPOS TB&=0,0-0,0
SETSTYLE %HWND, 1, GETSTYLE(%HWND, 1) - $02000000
endproc

subclassproc
IF SUBCLASSMESSAGE(%HWND,126)'WM_DISPLAYCHANGE
RESIZE
'SET("WinProc",0)
elseIF SUBCLASSMESSAGE(%HWND,133)'WM_NCPAINT
RESIZE
'SET("WinProc",0)
elseIF SUBCLASSMESSAGE(%HWND,532)'WM_SIZING
RESIZE
'SET("WinProc",0)
ELSEIF SUBCLASSMESSAGE(%HWND,5)'WM_SIZE
SETMENUITEM 500
'SET("WinProc",0)
ENDIF
endproc

CLS
ST&=CREATE("Statuswindow",%HWND,"Text")
TB&=CREATE("Toolbar",%HWND,0,12,3,1000,1)
SUBCLASS %HWND,1
WHILE 1
WAITINPUT
IF MENUITEM(500)
RESIZE
ENDIF
ENDWHILE

Irgendwie war der Code nicht ausführbar. Keine Ahnung was da schief lief.

[Frabbing]

Das hier läuft bei mir flackerfrei:

{$iq}

DECLARE ST&,TB&

SubClassproc
  IF SUBCLASSMESSAGE(%HWND,WM_SIZING) or SUBCLASSMESSAGE(%HWND,WM_SIZE)
    RESIZE
    SET("WinProc",0)
  ENDIF
endproc

proc RESIZE
  SETWINDOWPOS TB&=0,0-0,0
  SETWINDOWPOS ST&=0,0-0,0
  UpdateWindow(tb&)
  UpdateWindow(st&)
endproc

CLS

ST&=CREATE("Statuswindow",%HWND,"Text")
TB&=CREATE("Toolbar",%HWND,0,12,3,1000,1)

SETSTYLE %HWND, 1, GETSTYLE(%HWND, 1) | $02000000

SUBCLASS %HWND,1
WHILE 1
  WAITINPUT
ENDWHILE
END