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]

Hallo,

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

Grüße
Klaus

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

markieren

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.

So ganz einfach, hoffe du verstehst schon den Code

markieren

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]

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

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

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

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

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

Mal schnell eingehackt:

zusammenfalten · markieren

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;