Problem beim Speichern einer mit Canvas gezeichneten Grafik

[blender]

Hallo,
ich programmiere mit Delphi 7 Personal Edition.
Ich habe allerdings ein kleines Problem: (Man muss dazu sagen, dass ich ein Anfänger bin)
Ich möchte eine mit Canvas, auf den Hintergrund gezeichnete Grafik, als Bild speichern.
Aber wie???

Die Datei ist im Anhang angefügt, und wird bald auch in meinem eigenen Forum verfügbar sein.(Hier klicken)

Für schnelle Hilfe wäre ich sehr Dankbar.

[Jens Schumann]

Hallo,
hier ein kleines Beispiel. Damit kannst Du den Inhalt der canvas als Bitmap speichern

Delphi-Quellcode:

var
  Bitmap : TBitmap;
begin
  Bitmap:=TBitmap.Create;
  Try
    Bitmap.Width:=PaintBox.ClientWidth;
    Bitmap.Height:=PaintBox.ClientHeight;
    BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,
           PaintBox.Canvas.Handle,0,0,SRCCOPY);
    Bitmap.SaveToFile('c:\canvas.bmp');
  Finally
    Bitmap.Free;
    end;

[Fussball-Robby]

Hey,
einfach mal Suchfunktion nutzen:

Klick

[blender]

Wie sieht es mit einem SaveDialog aus?

Etwa so?

Delphi-Quellcode:

var
  Bitmap : TBitmap;
begin
  Bitmap:=TBitmap.Create;
  Try
    Bitmap.Width:=PaintBox.ClientWidth;
    Bitmap.Height:=PaintBox.ClientHeight;
    BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,
           PaintBox.Canvas.Handle,0,0,SRCCOPY);
    Bitmap.SaveToFile(SaveDialog1);
  Finally
    Bitmap.Free;
    end;

Wie gesagt, ich bin ein Anfänger.

[STS301]

setzte es einfach zb. unter Button1.click

[DeddyH]

Delphi-Quellcode:

var
  Bitmap : TBitmap;
begin
  if SaveDialog.Execute then
    begin
      Bitmap:=TBitmap.Create;
      Try
        Bitmap.Width:=PaintBox.ClientWidth;
        Bitmap.Height:=PaintBox.ClientHeight;
        BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,
               PaintBox.Canvas.Handle,0,0,SRCCOPY);
        Bitmap.SaveToFile(SaveDialog.FileName);
      Finally
        Bitmap.Free;
      end;
    end;
end;

[Fussball-Robby]

hey,

Delphi-Quellcode:

if SaveDialog1.execute then Bitmap.SaveToFile(SaveDialog1.FileName);

mfg


//Edit Da war wohl einer schneller :-D

[blender]

Danke.
Wo muss der Code hin?
Bei dem SaveDialog?

[STS301]

Zitat:

Zitat von STS301

setzte es einfach zb. unter Button1.click

[blender]

Kann manihn nicht in den SaveDialog packen?
Ist das nicht viel sinnvoller?