SavePictureDialog - Dateityp wird nicht gesetzt

[peterbelow]

Zitat von Andreas13:

Hi Pytroxis,

versuch es mal mit:

Delphi-Quellcode:

CONST
  Extension = 'Mpic';  // MyPicture

With SavePictureDialog1 Do 
Begin
  …
  Filter    := 'MeineBildDateien (*.' + Extension + ')|*.' + Extension;
  FileName  := 'MeineBildDateien  *';
  DefaultExt:= Extension;

  …
End;

Gruß

Andreas

Lass den Filename leer, dann sollte der Dialog auch die zu dem gewählten Filter passenden Dateien anzeigen. Wenn Du direkt auf ein bestimmtes Verzeichnis wechseln willst, setze die InitialDir-Eigenschaft und lass Filename leer. Wenn Du direkt auf Dateien mit bestimmten Namensteilen filtern willst mußt Du das so machen:

Filename := 'MeineBildDateien*.'+Extension;

In deinem Fall sucht der Dialog nur nach Dateien ohne Extension.