Thema: Delphi Paintbox to Bitmap

Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#4

Re: Paintbox to Bitmap

  Alt 6. Mär 2007, 15:13
Das liegt daran das die PaintBox transparent ist. Kopiert man nun die "leere" PaintBox
wird alles was sich hinter der PaintBox befindet mit kopiert.

Bevor du die Sache mit CopyRect kopiets blende das Image aus.

Delphi-Quellcode:
  ImageX.Visible := FALSE;

  Bitmap.Canvas.CopyRect(Bounds(0,0,bitmap.Width, Bitmap.Height),
    PaintBox1.Canvas, PaintBox1.ClientRect);

  Bitmap.SaveToFile('file.bmp');
  ImageX.Visible := TRUE;

// Edit: Ach ja, das klappt nicht da die Paintbox dann gelöscht wird.
Du müsstest also an zu der PaintBox noch ein Bitmap verwenden. Alles was du nun in die PB
zeichnes müsstes du dann auch mit in das Bitmap zeichnen.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat