alles zeichnen erfolgt auf einem Hintegrund bild
Delphi-Quelltext
1:
2:
| var
backpuffer: TBitmap |
das bild muss noch erstellt werden:
Delphi-Quelltext
1:
2:
3:
| backpuffer := TBitmap.create;
backpuffer.width := XXX;
backpuffer.height := XXXX: |
alle zeichen operationen erfolgen jetzt auf diesem backbild
z.B.:
Backpuffer.canvas.pixels[10,10] :)= clred;
noch abschluss aller zeichen operationen wird das gesamte bild auf den BIldschirm(Formular) kopiert
Delphi-Quelltext
1:
| BitBlt(Form1.canvas.handle,0 ,0 ,backpuffer.width ,backpuffer.height ,backpuffer.Canvas.handle,0,0,srccopy) |
zum besseren verständnis der BitBlt Funktion:
BitBlt(Handle des Zieles,XPosition,YPosition,Breite,Höhe,Handle der Quelle,Position des Ausschnits der kopiert werden sollX,Y,Modus in dem kopiert wird{normal ist srccopy});
Wennn man feststellt, dass es drei Moeglichkeiten gibt, die einen Vorgang schiefgehen lassen koennen und man diese ausschaltet, entstehen automatisch drei neue Moeglichkeiten.
