[*]Profan

Español

¿Cómo se puede Yo verhindern el dieser Ver código fuente en uno Endlosschleife abläuft? Kompilieren Marca Separación cls subClass %hWnd,1 while 1 waitInput wend subClassProc if SubClassMessage(%hWnd,15) wm_paint endIf
	04.03.2008 ▲ Vollständiges Zitat Absatzweise Cita Zeilenweise Cita

Indem uno %hWnds Style ändert: (WS_CLIPCHILDREN)
Kompilieren Marca Separación

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 Cita Zeilenweise Cita

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:
Kompilieren Marca Separació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:
Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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.)

05.03.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

waitEnd en Beta15?

05.03.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

waitEnd en Beta15?

Sí!

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 ▲