[*]Profan

Indem man %hWnds Style ändert: (WS_CLIPCHILDREN)
Kompilieren Markieren Separieren

cls
SetStyle %hwnd, 1, GetStyle(%hwnd, 1) | $02000000  WS_CLIPCHILDREN// kein Flimmern z.B. beim Skalieren
subClass %hWnd,1

while 1

    waitInput

wend

subClassProc

    if SubClassMessage(%hWnd,15) wm_paint

    endIf

endProc

@Roland: WS_CLIPCHILDREN sollte vielleicht _default sein?

RGH

While 1 : wend ist immer eine Endlosschleife!

Aber ich denke, du willst wissen, wie Du es anstellst, dass ein Zeichnen im wm_Paint-Abschnitt nicht gleich eine neue wm_Paint-Message auslöst und dadurch eine Endlosschleife entsteht.
Dafür gibt es in der Windows-API das Funktionspaar BeginPaint/EndPaint:
Kompilieren Markieren Separieren

 $H windows.ph
declare i&,PS#
dim PS#,28
cls
subClass %hWnd,1

while 1

    waitInput

wend

subClassProc

    if SubClassMessage(%hWnd,15)wm_paint

        ~BeginPaint(%hWnd,PS#)
        drawtext 20,20,Hugo was here
        drawtext 50,50,str$(i&)
        inc i&
        ~EndPaint(%hWnd,PS#)

    endIf

endProc

Der Zähler i& ist da, damit man sieht, wann neugezeichnet wird. Wenn Du ~BeginPaint und ~EndPaint drin hast, so wie es nahezu jedes Windowsprogramm es hat, dann wird z.B. nur beim Verändern der Größe des Hauptfensters neugezeichnet. Kommentierst Du diese Zeilen aus, wird nach dem ersten Zeichnen ständig neugezeichnet. (Keine Angst: Abbruch durch den Schließen-Button geht natürlich trotzdem.)

BTW: Wenn Du ein Programm schreibst, dass WaitInput eigentlich nie Verlassen soll, weil Du alles über die Messages regelst (sozusagen Windowsprogrammierung zu Fuß), dann kannst Du statt Deiner Endlosschleife um WaitInput einfach den noch unkommentierten neuen Befehl WAITEND benutzen. Wie der Name andeutet, wird WAITEND erst beim Programmende verlassen:
Kompilieren Markieren Separieren

 $H windows.ph
declare i&,PS#
dim PS#,28
cls
subClass %hWnd,1
waitEnd

subClassProc

    if SubClassMessage(%hWnd,15)wm_paint

        ~BeginPaint(%hWnd,PS#)
        drawtext 20,20,Hugo was here
        drawtext 50,50,str$(i&)
        inc i&
        ~EndPaint(%hWnd,PS#)

    endIf

endProc

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Die Erklärung ist wirklich super,

ich wollte aber eher darauf hinweisen das eben genau das nicht möglich ist. (ohne WS_CLIPCHILDREN)

Ebenso war leider festzustellen das ein wm_paint-per-subClassProc-Abfangen nicht wirklich sinnvoll ist da zwischen Waitinput zu Waitinput natürlich (aber auch leider) nicht gesubclasst wird.

wm_paint als userMessage endet auch im ewigen Loop.

Mein obiges While 1 ist deshalb in XProfan keine tatsächliche Endlosschleife weil das WaitInput bei nicht gesetztem WindowStyle 512 das Programm beendet. (Diese Endlosschleife meinte ich also nicht, eher die Beobachtung im Taskmanager beim Testen vom ersten obigen Beispiel bei Fensterskalierung.)

waitEnd in Beta15?

RGH

waitEnd in Beta15?

Ja!

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4