Gezeichnetes bild in paintbox speichern?

[PaddyMu]

hallo
ich habe mal eine warscheinlich ziemlich einfache frage:
ich möchte mein gezeichnetes über das MainMenu speichern und zwar soll das windows-speicherfeld erscheinen wenn ich auf meinen "speichern"-button klicke. ich weis DAS es geht aber leider nich wie..
hoffe mir kann jemand helfen
lg

[edit=SirThornberry]Titel geändert - Mfg, SirThornberry[/edit]

[Klaus01]

Hallo,

gibt es bei Dir den Reiter Dialogs/Dialoge in der Komponentenpalette?
Dort findest Du den SaveDialog.

Grüße
Klaus

[SirThornberry]

um das "Speichernfeld" zu haben musst du einen TSaveDialog auf dein Form packen und dann die ExecuteMethode aufrufen:

Delphi-Quellcode:

if (SaveDialog1.Execute()) then
begin
  ShowMessage(SaveDialog1.FileName);
end;

Der Dialog kümmert sich nicht um das Speichern sondern nur um die Auswahl eines Dateinamens.

[NickelM]

So ganz einfach, hoffe du verstehst schon den Code

Delphi-Quellcode:

//ein PictureSaveDialog (nur wenn höher als Delphi 5 hast) auf Formular setzen
// dann bei MenuItem bei OnClick folgendes
begin
  If PictureOpenDialog1.Excute then //Excute ist ein function die True zurückgibt, wenn du bei dem Dialog auf OK geklicst hast und einen Dateinamen ausgewählt hast
  begin
    Paintbox1.Canvas.Bitmap.SaveToFile('C:\MeinOrdner\ddd.bmp') //ganz wichtig am ende .bmp, wie es heir ist
  end;
end;

[edit=SirThornberry]Quelltext eingerückt - nächstes mal bitte selbst ordentlich machen - Mfg, SirThornberry[/edit]

[SirThornberry]

Ich glaub du hast einen Schönheitsfehler im Quelltext. Im Kommentar redest du von einem PictureSaveDialog und im Quelltext steht dann etwas von einem PictureOpenDialog

[dominikkv]

Außerdem bringt der SaveDialog nix wenn man den Dateinamen dann nicht verwendet...

[Muetze1]

@NickelM: Seit wann hat denn TCanvas eine Bitmap Eigenschaft?

[Medium]

TCanvas.Bitmap.Canvas.Bitmap.Canvas.Bitmap.Canvas. Bitmap..... wär doch mal lustig :mrgreen:

[_frank_]

hehe,
da musst du Methoden/funktionen wie TCanvas.CopyRect/Bitblt/scanline etc nutzen. um das Canvas in ein temporäres TBitmap zu kopieren. ohne diesen Umweg ist mir keine möglichkeit bekannt, das bild zu speichern.

HTH Frank

[DeddyH]

Mal schnell eingehackt:

Delphi-Quellcode:

procedure PaintboxToBitmap(const pb: TPaintbox;
                           const bm: TBitmap;
                           pf: TPixelformat = pf24Bit);
begin
  bm.PixelFormat := pf;
  bm.Width := pb.Width;
  bm.Height := pb.Height;
  BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,pb.Canvas.Handle,0,0,SRCCOPY);
end;

procedure TForm1.Button1Click(Sender: TObject);
var bm: TBitmap;
begin
  bm := TBitmap.Create;
  try
    PaintBoxToBitmap(Paintbox1,bm);
    bm.SaveToFile('C:\test.bmp');
  finally
    bm.Free;
  end;
end;

[Fussball-Robby]

Zitat:

Delphi-Quellcode:

  bm.PixelFormat := pf24Bit;

Möchtest du da nicht lieber den Paramter pf benutzen? :tongue:

Delphi-Quellcode:

  bm.PixelFormat := pf;

[Edit]Mist, zu langsam :mrgreen: [/Edit]

[DeddyH]

*Pssst* selbst gemerkt :zwinker:

[PaddyMu]

ähm ja
danke für die antworten hat aber ganz einfach schon mit dem tipp mit den dialogen und dem code darunter funktioniert xD danke trozdem =)
noch eine frage: wie rufe ich den dialog colordialog auf um zusätliche farben anzuzeigen?
lg

[_frank_]

den colordialog rufst du genauso wie den SaveDialog auf...mit der execute-methode :)

HTH Frank

[PaddyMu]

Ja aber wenn ich folgendes schreibe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (ColorDialog1.Execute()) then
begin
ShowMessage(Colordialog1.CustomColors);
end;
end;

dann sagt er mir inkompatible type: string und TStrings
wie kann ich das den umwandeln? des kann ich nich :oops:

[Fussball-Robby]

Der ColorDialog gibt doch eine Farbe aus(logisch, oder?)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    Form1.Color := ColorDialog1.Color;
  end;
end;