OpenDirDialog

[Garfield]

Beschreibung

Für die Auswahl eines Verzeichnisses findet man viele ähnliche Quelltexte, welche ShBrowseForFolder und BrowseInfo verwenden. Dabei hatte ich unter Win2000 immer das Problem mit dem Einstellen der Größe, der Position und ob der Button "Neuer Ordner" angezeigt wird. Das bedeutet, der Button wurde nur angezeigt, wenn das Flag für die NewGUI gesetzt wurde, dann konnte jedoch die Größe nicht eingestellt werden. Die Positionierung habe ich gar nicht hinbekommen.

Vermutlich werden die meisten die Komponente nicht benötigen. Mir geht es allerdings mehr darum, ein paar Verbesserungsvorschläge zu bekommen.

Die Komponente erstellt ein TForm und setzt dessen Caption. Auf dem Formular befindet sich ein Verzeichnisbaum. Dieser wurde bis Build 9 in einem TShellTreeView dargestellt. Ab Build 10 wird der TPathExplorer (eine Erweiterung des FileExplorer) verwendet. Der TPathExplorer zeigt auch bei nicht unicodefähigen Delphi Widestrings an. Darunter befinden sich Button für OK und Abbruch.

Mit "F5" werden die Unerordner des markierten Ordners neu eingelesen. Bis Build 12 konnte man mit der Taste "Einf" den "Neuer Ordner"-Dialog auch ohne entsprechende Option aufrufen und mit "Entf" Ordner löschen.

Der Dialog bietet weiterhin diese Optionen:

• Über dem Verzeichnisbaum kann ein Label mit einem Hinweis angezeigt werden.
• Unter dem Verzeichnisbaum kann ein Edit angezeigt werden. In dieses kann man den Pfad direkt angeben. Sofern dieser existiert, wird er im Verzeichnisbaum aufgeblättert. Existiert er nicht, muss er seit Build 10 selbst angelegt werden.
• Es kann ein Button "Neuer Ordner" eingefügt werden. Über diesen wird ein Dialog zur Erstellung eines Ordners geöffnet.
• Es kann zugelassen werden, dass die Größe des Dialoges vom Anwender verändert werden kann.

Siehe Bild ODD.png unten.

Hinweis

Die aktuelle Version läuft unter Turbo Delphi. Da es nicht unicodefähig ist, werden in der Demo für bestimmte Komponenten die TNT Hack Controls von Himitsu verwendet. Ein direktes Einbinden der TNT Controls sollte ebenfalls funktionieren. Ab Delphi 2009 können die Tnt (Hack) Controls auch aus den uses entfernt werden. In der Demo war es notwendig, die Schriftart der Edits auf Tahoma zu ändern, damit Unicode richtig dargestellt wurde. Unter Delphi 7 funktioniert die Komponente derzeit nur bis Build 9 a.

Demo

In der Demo wird die Komponente dynamisch eingebunden. D.h. die Unit gfOpenDirDlg wurde zum Projekt hinzugefügt und in die uses eingetragen. In der Procedure, in welcher der Dialog benötigt wird, wird eine Variable vom Typ TOpenDirDialog deklariert, die Class erstellt und wieder freigegeben. Für Delphi ohne Unicode, wie dem von mir für die Demo verwendeten Turbo Delphi, werden Unicodekomponenten benötigt. Die Demo verwendet, da die TNT Controls nicht in Turbo Delphi Explorer installiert werden können, die oben bereits erwähnten TNT Hacks von Himitsu. Diese sind in der Demo nicht enthalten. Sie müssen noch hinzugefügt und in den Suchpfad des Projektes eingetragen werden (TntHack und TntHack\Sources).

Eigenschaften ab Build 10

Delphi-Quellcode:

Caption    : String;
Fontname   : String;
Title      : WideString;
Root       : String;
InitialDir : WideString;
Path       : WideString;
Height     : Integer;
Left       : Integer;
Top        : Integer;
Width      : Integer;
Position   : TPosition;
Options    : TOpenDirOptions;

Eigenschaften bis Build 9

Delphi-Quellcode:

Caption    : String;
Title      : String;
Fontname   : String;
Root       : String;
InitialDir : String;
Path       : String;
Height     : Integer;
Left       : Integer;
Top        : Integer;
Width      : Integer;
Position   : TPosition;
Options    : TOpenDirOptions;

InitialDir wird gesetzt und Path ist die Rückgabevariable.

Siehe ebenfalls Bild "odd.png" unten.

Historie

05.10.2010 - Build 15

• destructor TOpenDirDialog.Destroy entfernt.
• procedure TOpenDirDialog.FormClose eingefügt.
• Auswertung von DelphiCompilerVersionen eingefügt.
• Root war als String anstelle als Widestring deklariert.

15.07.2010 - Build 14

• Nach dem Löschen eines Ordners wird auch der übergeordnete neu gescannt.
• Beim Aktualisieren per F5 wird auch der übergeordnete Ordner neu gescannt.
• Workaround dafür, dass bei sofortiger Erstellung des ersten dieser zweimal angezeigt wird.
• Button beim Formular für den Namen des neuen Ordners auf normale Größe gesetzt und Formularhöhe angepasst.

04.05.2010 - Build 13

• Option odPerformCreate entfernt. Funktionierte mit dem PathExplorer nicht mehr, da nicht der Text aus dem Edit sondern der Folder aus dem PathExplorer verwendet wurde.
• Ist die Option odCaption nicht gesetzt, wird die Caption der MainForm verwendet.
• Das Einfügen und Löschen über "Einf" und "Entf" ist nur noch möglich, wenn die Option "odNewFolder" gesetzt ist.
• Beim ReScan wurden die gefundenen Einträge nur hinzugefügt. Jetzt werden erst die besehenden Einträge gelöscht.
• Mit F5 wird der markierte Ordner aktualisiert.
• Variable OpenDirDlg_Build für die Versionsabfrage eingefügt.

03.05.2010 - Build 12

• function ExtractDir eingefügt.
• function ForceDirectoryW eingefügt.
• ForceDirectories durch ForceDirectoryW ersetzt.
• Beim NewFolder Dialog war die Variable für den Pfad noch als String deklariert.
• Beim Setzen des InitialDir wurde LowerCase anstelle von WideLowerCase verwendet.

17.04.2010 - Build 11

• Auswertung der Compilerdirektive Unicode zum Laden der Unit TntHackStdCtrls.
• Wegen der Verwendung der Unit TntHackStdCtrls wird das TWideLabel nicht mehr benötigt und wurde deshalb entfernt.
• Komponente PathExplorer integriert um zweite Unit einzusparen.

11.04.2010 - Build 10

• Unit ShellCtrls mit TShellTreeView gegen Unit uPathExplorer mit TPathExplorer ausgetauscht.
• Die Property FInitialDir und FPath auf WideString geändert.
• Function DirExists für Namen in Widestring eingefügt und DirectoryExists entfernt.
• Function DeleteDirectory in DirDelete umbenannt und für Widestring geändert.
• ExtractFileDrive aus Unit SysUtils als ExtractDrive übernommen, auf Widestrings geändert und abschließenden Pathdelim hinzugefügt.
• TRootFolder und nFolder aus der Unit ShellCtrls übernommen, damit die Verzeichnisnamen nicht geändert werden müssen.
• FRoot wird nicht als String sondern CSIDL angegeben.
• OpenDirDlg: TreeKeyDown um Einfg ergänzt.
• NewFolder: TLabel in TWideLabel geändert.
• NewFolder: NewFolderKeyDown eingefügt.
• Existiert der im Edit eingetragene Ordner, wird er aufgeschlagen.
• Nicht existierende Ordner werden im Edit rot angezeigt.

29.08.2010 - Build 9a

• Schutzverletzung beim Schließen des Dialoges beseitigt. Trat nur unter D7 auf.
• WideLabel entfernt.
• Variablen vereinheitlicht.
• Nach dem Setzen des Borderstyles war das InitialDir nicht mehr voreingestellt.

11.09.2008 - Build 9 (Versionen für D7/TD2006 und D2009)

• ST_OrdnerChange war nicht eingebunden.
• Property OnCreate entfernt.
• : aus der Liste der verbotenen Keys herausgenommen, weil sonst immer das Laufwerk angeklickt werden muss.
• (D2009) TWideLabel entfernt.
• (D2009) WideString in String geändert.
• (D2009) In EditChange wird auch die Länge des Pfades überprüft, da DirectoryExists beim Laufwerk kein \ benötigt.
• (D2009) In EditKeyPress wird CharInSet verwendet.

15.08.2008 - Build 8

• Beim Resize wurde nicht geprüft, ob odNewFolder in FOptions enthalten ist.
• Breite des TShellTreeView beim Execute korrigiert.
• Beim Resize wird eine Mindestgröße beachtet.

19.09.2007 - Build 7

• Initialvariablen und Sizegrip umbenannt.
• Erstellung des Labels für den Title geändert. Dadurch funktioniert nun der Zeilenumbruch.
• TLabel für den Title gegen TWideLabel - ein modifiziertes TCustomLabel - ausgetauscht.

02.09.2007 - Build 6

• Eigenschaft Fontname für das TLabel Title eingefügt.
• Vor dem Setzen der Größe des TLabel für den Title wird die Höhe der gewählten Schriftart ermittelt.

29.08.2007 - Build 5

• TSizeGripPanel durch TPaintBox ersetzt. Nach http://www.delphi3000.com/article.asp?ID=3785

24.08.2007 - Build 4

• Zwei von der Klasse unabhängige Variablen eingefügt, welche sich die Größe des OpenDirDialoges "merken".
• SizeGrip mit TSizeGripPanel eingefügt.

17.08.2007 - Build 3

• Bei BorderIcon biMinimize und biMaximize entfernt.
• War der Text in der Editbox kein gültiges Verzeichnis wurde dem TShellTreeView in der Procedure EditChange ein leerer String übergeben.
• Enthält der Path des TShellTreeView beim Beenden des Dialogs am Ende keinen : oder \\ wird er nicht an FPath übergeben.
• Die Komponenten, welche im Execute ohne Namen erstellt wurden sind in der Class deklariert.
• Dadurch konnte OpenDirDlgResize eingefügt werden. Die Größenverstellung wird mit der Option odSizeable erlaubt.
• Variablen für Höhe und Breite ausserhalb der Klasse angelegt. Diese werden bei der Initialisation gesetzt und beim Resize geändert. Dadurch bleiben sie bis zum Schliessen der Application unabhängig von der Klasse erhalten.

04.08.2007 - Build 2

• Das in der EditBox bei Crtl + Space eingegebene Leerzeichen wird entfernt.
• Während der Eingabe des neuen Ordnernamen wird dieser auf ungültige Zeichen '<', '>', '|', '/', '"', ':', '?' geprüft, wobei '/' in '\' geändert wird.
• dto für die Eingaben in der EditBox.
• Fehlermeldung, wenn das Verzeichnis nicht erstellt werden konnte.
• Beenden des Dialogs mit ESC- und Enter-Taste

22.07.2007 - Build 1

• Scalierung entfernt.
• Endlosschleife bei Änderung des Root berichtigt.
• Rootänderung funktioniert, wurde beim Execute aufgehoben.
• Das fehlende Initialdir wird abgefangen.

22.07.2007 - Initial

[FAlter]

Hi,

Ich musste die Anweisungen zur Skalierung auskommentieren, ansonsten war es zu große Schrift ("Neuer Ordner" passte nicht mehr in den Button rein. (Ich habe bei mit 120 dpi eingestellt).

Den zweiten Screenshot habe ich also mit folgender Änderung aufgenommen:

Delphi-Quellcode:

//  if Screen.PixelsPerInch <> 96
//  then OpenDirDlg.ScaleBy(Screen.PixelsPerInch, 96);

Klick mal z. B. auf die "Systemsteuerung", das was dann passiert ist wohl nicht so toll.

Mfg
FAlter

[halinchen]

Mir gefällts. Vor allem das Editfeld unter der Liste finde ich gut. Ich hasse Programme, wo man das nicht per Copy & Paste selber einfügen kann und immer 100 Klicks machen muss.



edit: Wenn ich in der Demo Root auf was anderes außer rfDesktop setze, hängt sich das Programm auf.

[Garfield]

Zitat von FAlter:

Ich musste die Anweisungen zur Skalierung auskommentieren, ansonsten war es zu große Schrift ("Neuer Ordner" passte nicht mehr in den Button rein. (Ich habe bei mit 120 dpi eingestellt).

Ich habe die Zeilen herausgenommen.

Zitat von halinchen:

edit: Wenn ich in der Demo Root auf was anderes außer rfDesktop setze, hängt sich das Programm auf.

Es hat sich nicht aufgehängt. Viel schlimmer. War eine Endlos-While-Schleife.

Musste jetzt auch feststellen, dass sich bei mir das Root nicht ändert. Ausserdem wird das Fehlen eines InitialDir nicht abgefangen.

Habe oben die Dateien ausgetauscht.

[Garfield]

Zitat von Garfield:

Musste jetzt auch feststellen, dass sich bei mir das Root nicht ändert. Ausserdem wird das Fehlen eines InitialDir nicht abgefangen.

Bei der Ausführung von Execute wurde das Root wieder zurück gesetzt. Ist kein Initialdir gesetzt, wird es beim Erstellen des TShellTreeView auch nicht gesetzt. Ausserdem wird AutoRefresh nicht auf True gesetzt.

Vielen Dank für Eure Tests.

[dominikkv]

öhmmm... was mach ich falsch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  odd : TOpenDirDialog;
begin
  odd            := TOpenDirDialog.Create(Self);
  odd.Caption    := 'Ordner auswählen';
  odd.Title      := 'Einen Ordner auswählen:';
  odd.Root       := 'rfDesktop';
  odd.InitialDir := 'D:\';
  odd.Height     := 365;
  odd.Left       := 0;
  odd.Top        := 0;
  odd.Width      := 330;
  odd.Position   := TPosition(4);

  odd.Options    := [odCaption, odTitle, odEdit];

  if odd.Execute then
    Edit1.Text   := odd.Path;

  FreeAndNil(odd);
end;

Zitat:

Access violation at address 0050070A in module 'Test.exe'. Read of address 00000008.

[Garfield]

Entschuldigung, bin gerade von Montage zurück.

Zitat von dominikkv:

öhmmm... was mach ich falsch:

Es ist kein Fehler zu sehen und wenn ich den Source übernehme, bekomme ich auch keinen Fehler.

[Luckie]

Mit ShBrowseForFolder und BrowseInfo kann man doch genau das gleiche erreichen, wenn ich ich nicht irre.

[Dezipaitor]

Zitat von Luckie:

Mit ShBrowseForFolder und BrowseInfo kann man doch genau das gleiche erreichen, wenn ich ich nicht irre.

man kann aber nicht den Pfad direkt eingeben, sondern muss immer per Maus durch die Ordner gehen.

@Garfield:

Leider fehlt die Möglichkeit mit Enter und ESC den Dialog zu bestätigen bzw. abzubrechen.
Es fehlen zudem die Mnemonics.
Zudem wäre es wohl gleich am besten, den Dialog vom Benutzer in der größe verändern zu lassen.

Gut finde ich, dass man bei neuen Ordner erstellen gleich auch mehrere Ordner erstellen kann (123\123\123).
Leider gibt es keine Fehlermeldung, wenn der Ordner nicht erstellt wurde, oder der Ordnername ungültig ist (z.b. C:\windows, ???)

Wenn ich bei Root "rfNetwork" einstelle, und dann einen Pfad anklicke, kommt das :
---------------------------
Opendirdialog
---------------------------
Fehler beim Festlegen des Pfades: ""
---------------------------
OK
---------------------------


so das wars erstmal

Aber sonst echt gut.

[Garfield]

Zitat von Luckie:

Mit ShBrowseForFolder und BrowseInfo kann man doch genau das gleiche erreichen, wenn ich ich nicht irre.

Das steht auch gleich im allerersten Satz dieses Threads:

Zitat von Garfield:

Beschreibung
Für die Auswahl eines Verzeichnisses findet man viele ähnliche Quelltexte, welche ShBrowseForFolder und BrowseInfo verwenden. Dabei hatte ich unter Win2000 immer das Problem mit dem Einstellen der Größe, der Position und ob der Button "Neuer Ordner" angezeigt wird. Das bedeutet, der Button wurde nur angezeigt, wenn das Flag für die NewGUI gesetzt wurde, dann konnte jedoch die Größe nicht eingestellt werden. Die Positionierung habe ich gar nicht hinbekommen. Da Turbo Delphi Probleme hatte die Unit ShellCtrls.pas zu finden, ist diese ebenfalls enthalten.

Zitat von Dezipaitor:

Leider fehlt die Möglichkeit mit Enter und ESC den Dialog zu bestätigen bzw. abzubrechen.

Das stimmt. Muss ich noch ergänzen.

Zitat von Dezipaitor:

Es fehlen zudem die Mnemonics.

Damit weiß ich im Moment nichts anzufangen.

Zitat von Dezipaitor:

Zudem wäre es wohl gleich am besten, den Dialog vom Benutzer in der größe verändern zu lassen.

So wie es bei den Originalen von Windows ist? Da müsste die Formgröße veränderlich gemacht und die Größenangaben in vermutlich in der Registry gespeichert werden!?

Zitat von Dezipaitor:

eider gibt es keine Fehlermeldung, wenn der Ordner nicht erstellt wurde, oder der Ordnername ungültig ist (z.b. C:\windows, ???)

Da muss ich dann noch eine Prufung integrieren.

Zitat von Dezipaitor:

Wenn ich bei Root "rfNetwork" einstelle, und dann einen Pfad anklicke, kommt das :
...

Der Fehler liegt leider beim TShellTreeView. Dem Projekt liegt die Unit aus Turbo Delphi bei. Vielleicht gibt es andere Version ohne den Fehler? Sonst muss ich versuchen den Fehler zu finden.

Zitat von Dezipaitor:

Aber sonst echt gut.

Danke.