Hallo Delphi Praxis,

ich möchte in meinem Programm zwei Paintboxen benutzen. Auf die eine wird gezeichnet, und auf die andere Wenn die erste fertig ist.
Mein Problem ist, dass ich die Fehlermeldung: "TPaintbox kann nicht zu TPaintbox zugewiesen werden".

Hier der Code im Beispiel:

markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Paintbox1 :=TPaintbox.Create(self);
  Paintbox1.Parent :=Panel1;

  Paintbox2 :=TPaintbox.Create(Self);
  Paintbox2.Parent :=Panel;

  zeichne;
end;

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
      VK_DOWN : begin
                  verschieben_nach_unten; //eigentlicher Code unwichtig
                  zeichne; // Paintbox1 wird bezeichnet
                  Paintbox2.Assign(Paintbox1);
                end;
      VK_UP : begin
                  verschieben_nach_oben; //eigentlicher Code unwichtig
                  zeichne; // Paintbox1 wird bezeichnet
                  Paintbox2.Assign(Paintbox1);
                end;
  end;
end;

Immer wenn er den Inhalt der Paintbox1 auf Paintbox2 per Assign übertragen soll (also bei Pfeiltastenklick) kommt die Fehlermeldung...

Ich hoffe jemand weiß Hilfe.

FG Dunkelbunt

Nimm ein Bitmap im Speicher.

Guten Morgen,

versuche mal Paintbox2.picture.assign(Painbox1.picture);
Sorry. Paintbox.picture gibt es nicht.
Grüße
Klaus

Die Paintbox kennt ihr Bild nicht ... sieh' die PaintBox einfach nur als "Nur-Ausgabe-Gerät" an, also nur als Stift.

Mit 'nem Stift kannst du malen, aber nicht das Bild abfragen.

@Klaus, ich glaub du bist beim TImage gelandet, mit deinem Picture

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:

markieren

Delphi-Quellcode:

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

markieren

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>

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

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?

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

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:

markieren

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.

markieren

Delphi-Quellcode:

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

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