Thema: Delphi Zeichnen auf Canvas

Einzelnen Beitrag anzeigen

Benutzerbild von Alexander Roth
Alexander Roth

Registriert seit: 17. Mai 2004
Ort: Kenn
574 Beiträge
 
Turbo Delphi für Win32
 
#13

Re: Zeichnen auf Canvas

  Alt 16. Okt 2005, 19:19
Sooooo.......
damit die die diesen Beitrag lesen stelle ich hiermit die Lösung meines Problems nochmal kurz dar:

Damit man gut und schnell zeichnen kann:

das muss man irgendwann am anfang, ambesten im oncreate schreiben:
form1.DoubleBuffered:=true; Dann zeichnet man das Bild anstand direkt auf form1.canvas auf ein TBitmap. Also bild.canvas.

Dann kann man mit
BitBlt(form1.Canvas.Handle,0,0,bild.Width,bild.Height,bild.Canvas.Handle, 0,0,srccopy); Das bild schnell auf die Canvas Kopieren.

Sehr wichtig:
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
begin
verweis_auf_bitblt; //also einen verweis auf die Procedure in der du Bitblt benutzt setzten
end;
Ohne dieses onpaint Flackert dein bild wie ein Stroboskop.


Damit sind auch Animationen sehr gut möglich.
Alexander Roth
Ich bin umgestiegen auf: Lazarus und Ubuntu! Alles OpenSource!

Besuch doch mal: www.roth.us.ms
  Mit Zitat antworten Zitat