TCanvas und Minimieren

[Delphibdiscover]

Hallo,

habe noch nicht viel Erfahrung im Umgang mit Delphi, also bitte erstmal um einfache Antworten.

Wie kann man es so machen, dass eine, mit TCanvas gezeichnete Graphik, nach dem Minimieren z.B. immernoch da ist, ohne dafür eine Extra-Prozedur zu schreiben.

Vielen Dank schon mal im Vorraus.

[Delphibdiscover]

Also eines ist vielleicht nicht ganz klar. Ich minimiere und maximiere das Fenster, dann ist die Graphik ja weg.

Was kann ich dagegen tun?

[Khabarakh]

Der Inhalt der TPaintbox-Canvas (die nutzt du doch, oder?) ist nur bis zum nächsten Repaint zu sehen. Abhilfe schafft z.B. TImage, das das Bitmap in einem TBitmap(OffScreenBitmap) speichert, und so auch nach dem Repaint zu sehen ist.

[OT]Mann, waren das viele Bitmaps [/OT]

[Delphibdiscover]

Danke für die Weiterleitung.

Ja, ich nutze die Paintbox.

Ich muss also eine TBitmap erstellen und die Graphik auf sie kopieren. Wenn es so richtig ist, muss ich das (leere) Bild von irgendwo laden oder einfadh als eine Variable deklarieren und erstellen? Oder wie muss der Quelltest lauten?

[himitsu]

Na ganz einfach, du erzeigst ein TBitMap und mals ab jetzt immer dortrein (also nicht mehr direkt auf das TCanvas).

Und dann brauchst u nur noch nach dem Ändern des BitMaps diese auf das TCanvas kopieren.
Außerdem muß das BitMap im OnPaint-Ereignis deines TCanvas neu auf das TCanvas kopiert werden.

[shmia]

Zitat von Khabarakh:

Der Inhalt der TPaintbox-Canvas (die nutzt du doch, oder?) ist nur bis zum nächsten Repaint zu sehen.

Dieser Repaint wird aber automatisch von Windows angestossen und das Event OnPaint wird abgefeuert.
Wenn man also sämliches Zeichnen aus dem Eventhandler von OnPaint durchführt, dann baut sich das Bild immer wieder neu auf.
Ich habe hierzu ein Demo-Prog. in der Schublade.

[Delphibdiscover]

O.K. es ist mir immernoch nicht ganz klar.

Deshalb möchte ich gleich zu Praxis übergehen.
Hier ist mein Quelltext:

[delphi]
Bild: TBitmap;
...
Bild:= TBitmap.Create;
...
Bild.Width:= 50;
Bild.Height:= 50;
with Bild.Canvas do begin
Brush.Style:= bsSolid;
Brush.Color:= clWhite;
fillRect(rect(0,0,50,50));
end;
BitBlt(PaintBox1.Canvas.Handle,0,0,Paintbox1.Width ,Paintbox1.Height,
Bild.Canvas.Handle,0,0,SRCCOPY);

Was fehlt hier? Außer einen Graphen natürlich.

P.S.: Bild.Free ist dann später beim Destroy.

[jim_raynor]

Du brauchst deine Zeichenfunktionen einfach nur im OnPaint Ereigniss der PaintBox zu machen. Dann wirds automatisch neugezeichnet und du brauchst nicht den Umweg über ein TBitmap zu gehen.

[Delphibdiscover]

Aah... Jetzt habe ich es!

Vielen Dank an alle!

[Khabarakh]

Das ist aber gerade der Weg, den man nicht gehen sollte. Zumindest wenn du nun schon angefangen hast, es mit einem TBitmap zu lösen. Du musst nur noch das

Delphi-Quellcode:

BitBlt(PaintBox1.Canvas.Handle,0,0,Paintbox1.Width,Paintbox1.Height,
Bild.Canvas.Handle,0,0,SRCCOPY);

auch in den OnPaint-Event-Handler deiner Paintbox schreiben, dann sollte es funktionieren.

[OT]

Zitat:

Was fehlt hier? Außer einen Graphen natürlich.

Ein schließendes [delphi]-Tag .
[/OT]