Paintbox Buffer

[Dunkelbunt27]

Ich versuche jetzt mal ein Bitmap zu benutzen. Wenn ich nicht zurecht komme meld ich mich wieder ;D

<Edit>
Ich habe jetzt folgendes Hinzugefügt:

Delphi-Quellcode:

  Bitmap:=TBitmap.Create;
  Bitmap.PixelFormat := pf32bit;                        
  Bitmap.Width:=Paintbox1.Width;
  Bitmap.Height:=Paintbox1.Height;

Delphi-Quellcode:

procedure speichern;
begin
    Bitmap.Canvas.CopyRect(Bounds(0,0,bitmap.Width, Bitmap.Height),
    Paintbox1.Canvas, Schreibflaeche.ClientRect);
    Bitmap.SaveToFile('Bild.bmp');
    Bitmap.Free;
end;

Jetzt kommt die Fehlermeldung: "TBitmap kann nicht zu TPaintbox zugewiesen werden."

Was ist falsch?
</Edit1>

<Edit2>
Ich bin mir ziemlich sicher, dass der Fehler in speichern; liegt.
</Edit2>

[Luckie]

http://www.michael-puff.de/Programmi...enBitmap.shtml

[Dunkelbunt27]

Immer wenn das Programm
Paintbox2.Assign(Bitmap); machen soll kommt die besagte Fehlermeldung: "TBitmap kann nicht zu TPaintbox zugeweisen werden."
Bitmap speichert den Inhalt der Paintbox1. Die Paintbox2 soll diesen Inhalt kopieren.
Muss man vielleicht Bitmap noch irgendwie konvertieren, so dass TPaintbox das nutzen kann?

[Namenloser]

BitBlt(PaintBox.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY)

[sx2008]

Es ist keine gute Idee, das Bild einer Paintbox kopieren zu wollen.
Eine Paintbox ist eine reine Einbahnstrasse: ein virtuelles Modell wird gezeichnet und angezeigt.
Ausserdem ist es überhaupt nicht nötig dies zu tun.
Man kann das virtuelle Modell ja jederzeit neu zeichnen.
Entscheidend dabei ist, dass man der Zeichne-Procedure den Canvas als Parameter übergibt:

Delphi-Quellcode:

procedure TForm1.Zeichne(canvas:TCanvas);
begin
  canvas.FillRect(....);
  ....
end;

Ausserdem, und das die das Wichtigste bei einer Paintbox, darf man nur innerhalb
des Event OnPaint auf die Paintbox zeichnen.

Delphi-Quellcode:

procedure TForm1.Paintbox1OnPaint(Sender:TObject);
begin
  Zeichne((Sender as TPaintbox).Canvas);
end;

[Dunkelbunt27]

Ich melde mich nochmal, weil was ich versuche noch nicht erreicht ist.
Ich möchte das Flackern meiner Paintbox unterbinden. Es kommt zustande, wenn schnell umgezeichnet werden muss (bei mir ist es eine Art scrollen, was dies auslöst). Dazu soll erst auf eine 2.Paintbox gezeichnet werden und erst wenn die fertig ist auf die erste, so soll lückenlos kein Flackern entstehen.

ich hoffe jetzt weiß jemand eine Lösung.

FG Dunkelbunt

[Klaus01]

Guten Abend,

wie sieht es denn aus, wenn Du doubleBuffered := true des ParentControl
einschaltest?

Grüße
Klaus

[Luckie]

Du hast dir aber schon den Quellcode hinter meinem Link angeguckt?