ResCreator

[wurzelzwerg]

Zitat:

grafisch leicht eingeschränkt kompatibel mit Microsoft© Windows© XP

Wollte das grad mal probieren, aber...
Für TFileOpenDialog ist Windows Vista oder höher erforderlich.

[SimplySimon]

Mmh, das ist natürlich blöd, hatte gedacht der TFileOpenDialog läuft auch unter XP...

[uligerhardt]

Zitat von SimplySimon:

Mmh, das ist natürlich blöd, hatte gedacht der TFileOpenDialog läuft auch unter XP...

Reicht dir denn nicht der normale TOpenDialog? Unter Vista/7 schaut der ja genauso aus wie der TFileOpenDialog.

[SimplySimon]

Nein, da der TFileOpenDialog die Option PickFolders hat...
Sonst müsste ich den anderen Standard FolderPicker nehmen und der ist längst nicht so elegant und benutzerfreundlich...

[himitsu]

OS-abhängig Beide einbauen.

[SimplySimon]

Gute Idee, so wirds gemacht, der Code wird hier mit Sicherheit zu finden sein

[uligerhardt]

Zitat von himitsu:

OS-abhängig Beide einbauen.

Ich hab mal schnell einen Wrapper zusammengeklatscht:

Delphi-Quellcode:

function SelectDirectory(const Caption: string;
  var Directory: string; Options: TSelectDirExtOpts; Parent: TWinControl): Boolean;
var
  dlg: TFileOpenDialog;
begin
  if (Win32MajorVersion >= 6) and UseLatestCommonDialogs then
  begin
    dlg := TFileOpenDialog.Create(nil);
    try
      dlg.Title := Caption;
      dlg.FileName := Directory;
      dlg.Options := dlg.Options + [fdoPickFolders];
      // Außerdem TSelectDirExtOpts auf TFileDialogOptions abbilden
      Result := dlg.Execute(Parent.Handle);
      if Result then
        Directory := dlg.FileName;
    finally
      dlg.Free;
    end;
  end
  else
  begin
    Result := FileCtrl.SelectDirectory(Caption, '', Directory, Options, Parent);
  end;
end;

Das kann man so aufrufen:
SelectDirectory('Test', Directory, [sdNewFolder, sdShowEdit, sdNewUI], Self);

[SimplySimon]

Vielen dank! Werde es demnächst einbinden