| |
|
|
| |
|
|
|
| |
|
|
|
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: KompilierenMarkierenSeparieren $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: KompilierenMarkierenSeparieren $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 ▲ |
|
|
|
|
| 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.) |
|
|
| |
|
|
|
| |
|
| |
|
|
|
RGH | |
|
| 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 ▲ |
|
|
|
|
RGH | RGH
... allerdings vorerst nur im Interpreter. |
|
|
| 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 ▲ |
|
|
|
|
| Jaja, treib mich ruhig in den Wahnsinn... |
|
|
| |
|
|