SavePictureDialog speichert ohne Fileextension

[Loni]

In meinem Program habe ich ein SavePicuteDialog der über einen Button aufgerufen wird.Nun speichert der Dialog aber jedes mal das Picture in einem Format ohne Extension obwohl in den Eigenschaften der einzige Filter "Bitmaps(*.bmp)|*.bmp " ist und der Filterindex auf 1 steht auch die DefaultExt hilft nicht wenn ich sie auf ".bmp" setze. Merkwürdigerweise speichert der Dialog MIT richtiger Fileextension nachdem er einmal zuvor ein File ohne Extension gespeichert hat. Kann da jemand helfen ??

Delphi-Quellcode:

procedure TForm1.BitBtnSaveClick(Sender: TObject);
begin
SavePictureDialog1.Execute;
end;

procedure TForm1.SavePictureDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
begin
ImHintergrund.Picture.Bitmap.SaveToFile(SavePictureDialog1.Filename);
end;

[mkinzler]

Es handelt sich ja nur um einen Anzeigefilter, gespeichert wird unter dem angegebenen Dateinamen

[Loni]

Achso danke erstmal dafür und wie füge ich dem vom benutzer eingegeben Dateinamen die Ext. hinzu ?

[mkinzler]

Erst Überprüfen ob eine existiert (ExtractFileExt) wenn nicht einfach Hinzufügen.

[Loni]

ok mal probieren
danke

[Loni]

Delphi-Quellcode:

procedure TForm1.SavePictureDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
begin
PictureExt:= ExtractFileExt(SavePictureDialog1.Filename);
if PictureExt = '.bmp' then
begin
ImHintergrund.Picture.Bitmap.SaveToFile(SavePictureDialog1.Filename);
end
else if PictureExt <>'.bmp' then
begin
PictureExt:='.bmp';
SavePictureDialog1.Filename:=SavePictureDialog1.Filename+PictureExt;
ImHintergrund.Picture.Bitmap.SaveToFile(SavePictureDialog1.Filename);
end;

jetzt kommen nur noch fehlermeldungen XD ("erst" 6 Monate Info in der Schule )

[mkinzler]

ImHintergrund.Picture.Bitmap.SaveToFile(SavePictureDialog1.Filename+PictureExt);

[Loni]

DNAKE mkinzler ich habe hier schon so oft die suche benutzt und nie was dazu gefunden endlich ^^

[mkinzler]

Ich würde aber, wenn die Endung anders ist diese Ersetzen und nicht eine weitere Anhängen

[Loni]

und wie ?^^