Löschen einer Paintbox verhindern

[little_budda]

Hallo,

ich stelle Phasenverläufe und Drehfelder grafisch dar.
Dazu zeichne ich meine Daten auf den Canvas zweier Paintboxen.
Klappt soweit auch gut.

Wenn ich meine Anwendung vom primären Monitor auf meinen zweiten Monitor verschiebe
werden die erzeugten Grafiken gelöscht.

Kann ich eine Paintbox "einfrieren" nachdem ich die Grafik erzeugt habe?

Für eine Idee wär ich dankbar.

Gruß Holger.

:gruebel:

[Matze]

Hallo,

du könntest im OnPaint-Ereignis deine Zeichenoperationen durchführen.

[Luckie]

Effektiver ist es auf ein Bitmap im Speicher zu zeichnen und es bei Bedarf auf den Canvas der Paintbox zu kopieren.

[little_budda]

Ich nutze den Canvas weil ich die erzeugten Grafiken parralel auch als Bitmap (Datei) ablege.

[shmia]

Zitat:

Zitat von Matze

du könntest im OnPaint-Ereignis deine Zeichenoperationen durchführen.

Du musst im OnPaint-Ereignis deine Zeichenoperationen durchführen.
Das Zeichnen auf den Canvas einer Paintbox ausserhalb des OnPaint-Ereignis wäre ein Fehler.
Falls das Zeichen viel Zeit kostet, ist die Paintbox nicht das richtige Control.
Dann sollte man ein TImage verwenden.

[little_budda]

Der umgekehrte Weg?
Erst das Bitmap erzeugen und danach die Paintbox füllen?
Ist das nicht dasselbe wie direkt in die Paintbox zu zeichnen?

Ich werde es versuchen.

[little_budda]

Wenn ich sowiso vorher das Bitmap erzeuge kann ich auch eine Timage Komponente verwenden ...

[Schreibfehler]

[Matze]

Zitat:

Zitat von little_budda

Erst das Bitmap erzeugen und danach die Paintbox füllen?
Ist das nicht dasselbe wie direkt in die Paintbox zu zeichnen?

Es ist schneller, zuerst auf ein internes Bitmap zu zeichnen und dieses mittels bitblt auf der PaintBox auszugeben als direkt mit dem Canvas der PaintBox zu arbeiten.

[little_budda]

Hab schon in der Hilfe nachgesehen, aber was bitte ist "bitblt" ?

[Matze]

BitBlt, deklariert in der Unit Windows. Ein Aufruf könnte so aussehen:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  BitBlt(PaintBox.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
end;

Natürlich könntest du auch Canvas.Draw nutzen, nur ist dies meines Wissens etwas langsamer, bin mir aber nicht sicher.

[little_budda]

Danke.

[shmia]

Es gibt ja nun 3 verschiedene Wege sowie deren Vor- und Nachteile
1.) direkt auf Paintbox zeichnen
+ günstig, wenn die Zeichenoperation nicht sehr aufwendig sind
+ wenn ständige Änderungen am Bild ausgegeben werden sollen
- Flackern kann auftreten
2.) auf TImage zeichnen
+ bei aufwändigen Zeichenoperationen
+ bei einmaligem Zeichnen oder Zeichnen auf Knopfdruck
- teilweiser Bildaufbau wird sichtbar
3.) auf internes Bitmap zeichnen und dieses auf TPaintbox kopieren
+ verhindert Flackern und Anzeige unvollständiger Bilder
- aufwändiger zu Programmieren