[*]Profan

Français

comment peux je verhindern cela cette Voir le texte source dans einer Endlosschleife abläuft? Kompilieren Marque Séparation cls subClass %hWnd,1 while 1 waitInput wend subClassProc if SubClassMessage(%hWnd,15) wm_paint endIf
	04.03.2008 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation

Indem on %hWnds Style ändert: (WS_CLIPCHILDREN)
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

RGH

Tandis que 1 : Wend ist toujours une Endlosschleife!

mais je denke, tu veux savons, comment Du es anstellst, dass un Zeichnen im wm_Paint-paragraphe pas juste une neue wm_Paint-Message auslöst et dadurch une Endlosschleife entsteht.
Pour cette gibt es dans qui Windows-API cela Funktionspaar BeginPaint/EndPaint:
Kompilieren Marque Séparation

 $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

qui Zähler i& ist là, avec cela on voit, quand neugezeichnet wird. si Du ~BeginPaint et ~EndPaint drin la hâte, so comme nahezu chaque Windowsprogramm es hat, ensuite wird z.B. seulement beim Verändern qui Taille des Hauptfensters neugezeichnet. Kommentierst Du cet Zeilen aus, wird pour dem ersten Zeichnen ständig neugezeichnet. (aucun Angst: Abbruch par den Schließen-Button allez naturellement quand même.)

BTW: si Du un Programme écris, dass WaitInput eigentlich nie sortir de soll, weil Du alles sur qui Messages regelst (sozusagen Windowsprogrammierung trop Fuß), ensuite peux Du statt Deiner Endlosschleife um WaitInput simple den encore unkommentierten neuen Befehl WAITEND benutzen. comment qui nom andeutet, wird WAITEND seulement beim Programmende sortir de:
Kompilieren Marque Séparation

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

subClassProc

    si SubClassMessage(%hWnd,15)wm_paint

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

    endIf

endProc

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

qui Erklärung ist wirklich super,

je voulais mais plutôt puis hinweisen cela plan oui c'est ca cela pas possible ist. (sans WS_CLIPCHILDREN)

Ebenso était malheureusement festzustellen cela un wm_paint-per-subClassProc-intercepter pas wirklich sinnvoll ist là entre Waitinput trop Waitinput naturellement (mais aussi malheureusement) pas gesubclasst wird.

wm_paint comme userMessage endet aussi im ewigen Boucle.

mon obiges Tandis que 1 ist c'est pourquoi dans XProfan aucun tatsächliche Endlosschleife weil cela WaitInput chez pas gesetztem Fenêtre Style 512 cela Programme finissez. (cet Endlosschleife meinte je alors pas, plutôt qui Beobachtung im Taskmanager beim Testen vom ersten obigen Beispiel chez Fensterskalierung.)

05.03.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

waitEnd dans Beta15?

05.03.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

waitEnd dans Beta15?

oui!

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 ▲