Dialog Dateierweiterung anpassen

[geskill]

Nabend,
Ich möchte bei einem Dialog (TSavePictureDialog) die Dateierweiterung (FileExtension) automatisch
an die gewählte Anpassen.

z.b.
Dateiname.......: Hallo.jpg
Dateierweiterung: *.jpg

Jetzt ändert der User die Dateierweiterung auf '*.png', jetzt soll
auch gleichzeitig der FileName angepasst werden.

Über das Ereigniss "...TypeChange(Sender: TObject)" werde ich informiert, wenn der Benutzer
die Dateierweiterung ändert.

Über "Dialog.FilterIndex" bekomme ich auch die Dateierweiterung, aber ich kann den Dateinamen
nicht ändern.

z.b.

Delphi-Quellcode:

SavePictureDialog.FileName := ExtractFileDir(SavePictureDialog.FileName) + '\Hallo.png';

ShowMessage(SavePictureDialog.FileName); // jedoch hat sich hier überhaupt nichts geändert!!!

Ich habe per google schon ein wenig gesucht, jedoch erfolglos, ich bin mir aber sicher das
es irgendwie funktionieren muss, weil Adobe macht dies in seinen Programmen auch (Dialoge sind aber vllt auch eigene???)

Naja bin mal gespannt...

[mkinzler]

ChangeFileExt()

[geskill]

Es geht generell darum, dass ich den FileName überhaupt nicht ändern kann,
ich meine wenn der Dialog angezeigt wird.
Und in der DropDownBox die FileExt verändert wird.

Wahrscheinlich muss man sich selber ein Dialog basteln...

[NickelM]

Ja, ich glaube auch das du das machen musst.

Weil FileName des Dialogs wird durch das Edit Feld im Dialog gesetzt(soviel ich weiß)

Du müsstest schon selbst eins basteln und dan halt das Edit.Caption setzen in deinem Dialog.

[himitsu]

SavePictureDialog.FileName setzt vermutlich nur den Dateinamen im OpenFileName-Record, man müßte aber den Text des Edits ändern.

Man könnte jetzt einen ExplorerHook einrichten ... dort bekommt man alles genau mit, und kannn an vielen Stellen eingreifen,

oder das Handle des Edits suchen und via WinAPI die Änderung vornehmen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  SavePictureDialog1.Filter := 'JPEG Image File (*.jpg)|*.jpg|GIF Image File (*.gif)|*.gif|Bitmap (*.bmp)|*.bmp';
  SavePictureDialog1.Execute;
end;

procedure TForm1.OpenPictureDialog1TypeChange(Sender: TObject);
const 
  // damit man nicht die Endung aus .Filters rausbekommen muß
  Filters: Array[1..3] of String = ('.jpg', '.gif', '.bmp');

var 
  H: HWND;
  S, S2: String;

begin
  H := TSavePictureDialog(Sender).Handle;
  H := GetWindowLong(H, GWL_HWNDPARENT);  // get real Window
  H := GetDlgItem(H, 1148);               // get ComboBoxEx32 (entspricht dem "DateinameEdit")
  H := GetDlgItem(H, 1148);               // get ComboBox (Teil der ComboBoxEx32 )
  H := GetDlgItem(H, 1148);               // get Edit (Teil der ComboBox)
  SetLength(S, GetWindowTextLength(H));
  GetWindowText(H, PChar(S), Length(S));
  S2 := Filters[TSavePictureDialog(Sender).FilterIndex];
  S  := ChangeFileExt(S, S2) + IntToStr(TOpenPictureDialog(Sender).FilterIndex);
  SetWindowText(H, PChar(S));
end;
// entspricht diesem
//begin
//  S  := TSavePictureDialog(Sender).FileName;
//  S2 := Filters[TSavePictureDialog(Sender).FilterIndex];
//  S  := ChangeFileExt(S, S2);
//  TSavePictureDialog(Sender).FileName := S;
//end;

Achtung: dieser Code läuft nur, wenn der Dialog im neuen Explorer-Style angezeigt wird.
Delphi verwendet diesen Standardmäßig, aber unter Win9x und wenn der neue Style explizit im System deaktiviert ist, dann geht es nicht, da der alte Dialog anders aufgebaut ist. (z.B. DateiEdit ist wirklich ein Edit und keine ComboBox)

[geskill]

Danke funktioniert super :-D :-D , unter 9x läuft mein Programm sowieso nicht.
Ich habe mir schon eine Lösung in dieser Richtung vorgestellt, leider hatte ich
keine Ahnung wo ich anfangen sollte.

[himitsu]

nja, irgendwie mußt es doch endlich mal was bringen, daß ich mich zuviel mit diesen Dialogen beschäftigt hatte :|

Ach ja, hatte ausversehn noch was vom Debugging in der Zeile mit ChangeFileExt vergessen. (hab's jetzt oben rausgelöscht)




Und dann sag ich auch mal Danke, denn jetzt kann ich meinen ExplorerHock noch etwas aufmotzen ... hatte dieses Problem ganz vergessen :shock: