Alle Grafikbefehle lassen sich mit StartPaint umleiten, Parameter ist das Handle des Fensters, in dem gemalt werden soll. Die Umleitung muß, nachdem alles fertig gemalt ist, wieder aufgehoben werden. Dafür ist EndPaint zuständig.
Declare win&, win1&
Window 20,20-400,400
win&=create("window",%HWnd,"win",420,20,300,420)
win1&=create("window",%HWnd,"win1",720,20,400,400)
' Malen auf dem Hauptfenster
UsePen 0, 1, RGB(128, 128, 128)
Line 4, 4 - 300, 200
'Malen auf einem anderen Fenster
StartPaint win& ' Malfunktionen auf das Fenster umleiten
UsePen 0, 4, RGB(250, 64, 64)
Line 55, 280 - 200, 45
EndPaint ' Umleitung beenden
StartPaint win1& ' Malfunktionen auf das Fenster umleiten
UsePen 0, 2, RGB(24, 200, 120)
Line 12, 12 - 220, 120
EndPaint ' Umleitung beenden
While 1
WaitInput
EndWhileProblematisch dabei ist, daß nur auf dem Hauptfenster automatisch neu gemalt wird, wenn das notwendig werden sollte, zum Beispiel nach Bedeckungen durch andere Fenster. Solche Umleitungen werden nicht neu gemalt. Das Fesnter muß nach jedem %wmPaint selbst neu gemalt werden. Hierzu sollte das Malen in solchen Fenstern komplett als eigenständige Prozedur geschrieben werden. Die kann dann jedesmal aufgerufen werden, wenn %wmPaint erscheint. Weiteres siehe in der Hilfe bei StartPaint - EndPaint und Set("AutoPaint")
Gruß Volkmar
Hier sei noch erwähnt, daß man auch schön auf eine
Speicher-Bitmap (MCls und StartPaint -1) malen kann.
Davon kann man dann über
Create(hPic /hSizedPic, 0, "&MEMBMP")
ein Bitmaphandle erhalten, das mit
Create("Bitmap", N, H,X1, Y1)
auf dem entsprechenden Fenster als Bitmapfeld
oder Iconfeld angezeigt wird.
Damit kann man u.U. das Neuzeichnen umgehen.
Ist auch zu empfehlen, wenn Schnelligkeit erforderlich ist.
Danke für die schöne Ergänzung 
Gruß Volkmar
Ist jetzt zwar nichts Besonderes.
Hier mal ein Strichmännchen :
Declare Int x, y
Declare Handle hPic, Bmp1, Bmp2
x = 50
y = 100
Bmp1 = Create("Bitmap", %HWnd, Mann(), x, y)
Window 800, 600
SetTimer 500
While 1
WaitInput
Case %Key = 2 : Break
If %wmTimer
DeleteObject Bmp2
Bmp2 = Create("Bitmap", %HWnd, LeerBmp(), x - 100, y)
If x < 750
Inc x, 100
Else
x = 50
EndIf
DeleteObject Bmp1
Bmp1 = Create("Bitmap", %HWnd, Mann(), x, y)
EndIf
EndWhile
KillTimer
DeleteObject Bmp1, Bmp2, hPic
Proc Mann
Declare Int x, y
x = 70
y = 80
MCls 100, 200, RGB(255,255,255)
StartPaint -1
UsePen 1, 3, RGB(255,100,0)
Ellipse x - 10, (y - 10) - x + 15 , y + 20
UsePen 1, 3, RGB(0, 0, 0)
Line x, (y + 20) - x, (y + 80)
Line x, (y + 25) - (x - 20), (y + 80)
Line x, (y + 25) - (x + 20), (y + 80)
UsePen 1, 3, RGB(0, 0, 255)
Line x, (y + 80) - (x - 20), (y + 120)
Line x, (y + 80) - (x + 20), (y + 120)
EndPaint
hPic = Create("hPic", 0, "&MEMBMP")
Return hPic
EndProc
Proc LeerBmp
MCls 100, 200, RGB(255,255,255)
hPic = Create("hPic", 0, "&MEMBMP")
Return hPic
EndProc
EndSo funktioniert es besser :
Declare Int x, y, ende
Declare Handle hPic1, hPic2
x = 50
y = 100
ende = 0
hPic1 = Mann()
hPic2 = MannWeg()
Window 900, 600
UserMessages $10
SetTimer 500
WhileNot ende
WaitInput
Case %UMessage = $10 : ende = 1
If %wmTimer
If x < 800
DrawPic hPic2, x, y; 0
Inc x, 100
Else
x = 50
EndIf
DrawPic hPic1, x, y; 0
EndIf
EndWhile
KillTimer
DeleteObject hPic1, hPic2
Proc Mann
Declare Int x, y
x = 70
y = 80
MCls 100, 200, RGB(255,255,255)
StartPaint -1
UsePen 1, 3, RGB(255,100,0)
Ellipse x - 10, (y - 10) - x + 15 , y + 20
UsePen 1, 3, RGB(0, 0, 0)
Line x, (y + 20) - x, (y + 80)
Line x, (y + 25) - (x - 20), (y + 80)
Line x, (y + 25) - (x + 20), (y + 80)
UsePen 1, 3, RGB(0, 0, 255)
Line x, (y + 80) - (x - 20), (y + 120)
Line x, (y + 80) - (x + 20), (y + 120)
EndPaint
Return Create("hPic", 0, "&MEMBMP")
EndProc
Proc MannWeg
' Eine weiße Bmp erstellen
' und über das Männchen drüberpappen.
MCls 100, 200, RGB(255,255,255)
Return Create("hPic", 0, "&MEMBMP")
EndProc
Endkonnte oben, trotz angemeldet, nicht mehr editieren.
Warum auch immer.
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!