XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster: rechteckigen Teilbereich neu zeichnen
PRFellow-Vorlage
Autor: Thomas Hölzer
Einen rechteckigen Teilbereich neu zeichnen
Def InvalidateRect(3) !USER32,InvalidateRect
Def ValidateRect(2) !USER32,ValidateRect
Declare rect#

Proc Invalidate

    Parameters l&,t&,r&,b&
    Dim rect#,16
    Long rect#,0=l&
    Long rect#,4=t&
    Long rect#,8=r&
    Long rect#,12=b&
    InvalidateRect(%hwnd,rect#,1)
    PostMessage(%hwnd,15,%hdc,0)
    PostMessage(%hwnd,15,%hdc2,0)
    Dispose rect#

EndProc

Beispiel
SetAutoPaint 0
Cls 0
WindowTitle Bereich wird durch Rechtsklick aktualisiert
DrawText 100,100,Testbereich

While 1

    WaitInput
    Case Equ(%mousepressed,2) : Invalidate 100,100,180,120

Wend