| |
|
|
| |
|
|
|
| |
|
|
|
RGH | Mientras que 1 : wend es siempre una Endlosschleife!
Aber Yo denke, du willst wissen, como Usted lo anstellst, que un Dibujar en el wm_Paint-Abschnitt no es igual una neue wm_Paint-Message auslöst y dadurch una Endlosschleife entsteht. Dafür hay en el Windows-API el Funktionspaar BeginPaint/EndPaint: KompilierenMarcaSeparación $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& es como, así uno sieht, wann neugezeichnet se. Si usted ~BeginPaint y ~EndPaint drin hast, ya que nahezu cada Windowsprogramm lo ha, Luego se z.B. sólo beim Verändern el Größe des Hauptfensters neugezeichnet. Kommentierst Usted esta Zeilen de, se después de el ersten Dibujar ständig neugezeichnet. (Keine Angst: Abbruch por el Schließen-Button va natürlich trotzdem.)
BTW: Si usted una Programa schreibst, dass WaitInput eigentlich nie Verlassen se, porque Usted alles en Messages regelst (sozusagen Windowsprogrammierung a Fuß), entonces kannst Usted en lugar de Deiner Endlosschleife en WaitInput simplemente el todavía unkommentierten neuen Befehl WAITEND benutzen. Como el Name andeutet, se WAITEND sólo beim Programmende verlassen: KompilierenMarcaSeparación $H windows.ph
declarar i&,PS#
dim PS#,28
cls
subClass %hWnd,1
waitEnd
subClassProc
if SubClassMessage(%hWnd,15)wm_paint
~BeginPaint(%hWnd,PS#)
drawtext 20,20,Hugo qué here
drawtext 50,50,str$(i&)
inc i&
~EndPaint(%hWnd,PS#)
endIf
endProc
Saludo 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 ▲ |
|
|
|
|
| El Erklärung es wirklich super,
Yo quería aber más darauf hinweisen el eben genau el no posible es. (sin WS_CLIPCHILDREN)
También war desafortunadamente determinar el una wm_paint-por-subClassProc-Abfangen no wirklich sinnvoll es como zwischen Waitinput a Waitinput natürlich (aber auch desafortunadamente) no gesubclasst se.
wm_paint como userMessage endet auch en el ewigen Loop.
Mein obiges Mientras que 1 Por consiguiente, en XProfan no tatsächliche Endlosschleife porque el WaitInput en no gesetztem Ventana de Estilo 512 el Programa final. (Diese Endlosschleife meinte Yo also no, más el Beobachtung en el Taskmanager beim Testen vom ersten obigen Ejemplo en 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 sólo en el 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 en el Wahnsinn... |
|
|
| |
|
|