Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Zeichnen auf Canvas (https://www.delphipraxis.net/54658-zeichnen-auf-canvas.html)

Alexander Roth 9. Okt 2005 07:15


Zeichnen auf Canvas
 
Hallo Leute,

ich hab alles möglich versucht, doch irgendwie klappt es nicht. Könntet ihr mir zu den 2 Möglickeiten unten bitte Codeschnipsel geben und sagen ob das überhaupt so klappen könnte?

mein Problem ist:
Ich möchte möglichst schnell auf canvas zeichnen.

1. Möglichkeit: Dazu könnte ich ja einen Pointer und 2 TCanvas anlegen. Die sichtbare Zeichenoberfläche weise ich den Pointer zu und der Pointer zeigt auf einen der beiden TCanvas. Dann zeichne ich in den TCanvas auf den der Pointer gerade nicht zeigt. Dann lasse ich den Pointer auf den anderen Tcanvas zeigen und zeichne wieder in den anderen.

2. Möglichkeit: Ich habe einen TCanvas und zeichne in den etwas hinein. Dann weise ich der sichtbaren form1.canvas das Tcanvas zu. Dann zeichne in den TCanvas wieder etwas und lasse es wieder ausgeben.


Vielen Dank für eure Mühe.

tigerman33 9. Okt 2005 08:38

Re: Zeichnen auf Canvas
 
Das kannst du dir sparen. TWinControl führt die Eigenschaft DoubleBuffered ein, die genau das beschreibt, was du erreichen willst.

Alexander Roth 9. Okt 2005 10:13

Re: Zeichnen auf Canvas
 
Hmmm... Das ist ja Klasse.

Wie müsste der Code dann aussehen, damit das kappt?

tigerman33 9. Okt 2005 10:28

Re: Zeichnen auf Canvas
 
Form1.DoubleBuffered := true; (ist glaub ich standardmäßig false)

Alexander Roth 9. Okt 2005 10:35

Re: Zeichnen auf Canvas
 
Ja das ist klar, aber wie müsste ich dann zeichnen? Wie kann ich erst ein vollständiges Bild zeichnen und dann erst auf die sichtbare Canvas darstellen?

tigerman33 9. Okt 2005 10:43

Re: Zeichnen auf Canvas
 
Hmmm, dazu müsstest du irgendwie das Zeichnen verhindern, bis du es selbst erlaubst. Eine Möglichkeit wäre, die WM_PAINT message abzufangen und zu unterdrücken, bis du fertig bist mit zeichnen.

Khabarakh 9. Okt 2005 11:04

Re: Zeichnen auf Canvas
 
Eine andere Möglichkeit wäre, es selbst in die Hand zu nehmen: [dp="OffScreenBitmap"]OffScreenBitmaps[/dp]. Du erzeugst zur Laufzeit ein TBitmap und benutzt dieses für alle Zeichenoperationen. Dadurch kannst du selbst entscheiden, wann du es auf die Canvas deiner Paintbox übertragen willst (z.B. in deren OnPaint-Event).

Alexander Roth 9. Okt 2005 11:12

Re: Zeichnen auf Canvas
 
Wenn TWinControl aber doch schon die tolle Möglichkeit hat mit dem DoubleBuffered, dann muss es doch auch eine einfache Möglichkeit geben, diese voll auszunutzen indem man erst fertig gezeichnete Bilder auf die Canvas schreibt. Sonst bringt das ja herzlich wenig.

TStringlist 9. Okt 2005 11:31

Re: Zeichnen auf Canvas
 
Was willst du denn eigentlich machen? Willst du so etwas wie eine Animation kreieren oder willst du etwa nur mehrmals auf irgend einem (TWin)Control herummalen? Im ersten Fall nutzt dir DoubleBuffered nämlich gar nichts. Da müsstest du schon mit der API-Funktion "BitBlt" arbeiten, welche Canvas-Inhalte jeweils immer mit einem Schlag auf andere Canvas(se plura?) überträgt.

Alexander Roth 9. Okt 2005 13:55

Re: Zeichnen auf Canvas
 
Was macht "BitBlt" genau?

Sagen wir mal so ich "male" einige sich bewegende Linien, mit Canvas.


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:03 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz