[*]Profan

Italia

Wie kann ich verhindern das dieser Quelltext in einer Endlosschleife abläuft? Kompilieren Markieren Separieren cls subClass %hWnd,1 while 1 waitInput wend subClassProc if SubClassMessage(%hWnd,15) wm_paint endIf
	04.03.2008 ▲ Vollständiges Zitat Absatzweise Citazione Zeilenweise Citazione

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

05.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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 Dimensione 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 naturalmente trotzdem.)

BTW: Wenn Du ein Programm schreibst, dass WaitInput eigentlich nie Verlassen soll, weil Du alles circa 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

Saluto
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

05.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Die Erklärung ist wirklich super,

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

Ebenso war leider festzustellen das ein wm_paint-per-subClassProc-Abfangen nicht wirklich sinnvoll ist da zwischen Waitinput zu Waitinput naturalmente (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.)

05.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

waitEnd in Beta15?

05.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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

05.03.2008 ▲