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

[OregonGhost]

Zitat:

Es fehlen zudem die Mnemonics.

Wenn ich das gerade nicht durcheinander bringe, sind das diese unterstrichenen Buchstaben, die man verwenden kann, um durch Menüs zu navigieren oder Buttons zu drücken (also z.B. Abbrechen => A drücken).
Um die Konsistenz zu wahren, musst du sie jedoch ausblenden, solange nicht Alt gedrückt wurde, seit Windows XP

[Garfield]

Nach den guten Anregungen von Dezipaitor habe ich die Komponente überarbeitet.

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.
• dto für die Eingaben in der EditBox.
• Fehlermeldung, wenn das Verzeichnis nicht erstellt werden konnte.
• Beenden des Dialogs mit ESC- und Enter-Taste

Zitat von OregonGhost:

Wenn ich das gerade nicht durcheinander bringe, sind das diese unterstrichenen Buchstaben, die man verwenden kann, um durch Menüs zu navigieren oder Buttons zu drücken (also z.B. Abbrechen => A drücken).

Die Vorbilder von Microsoft haben das nicht. Nachdem ESC und Return integriert sind, wäre das eigentlich nur für den Button "Neuer Ordner" sinnvoll.

Zitat von OregonGhost:

Um die Konsistenz zu wahren, musst du sie jedoch ausblenden, solange nicht Alt gedrückt wurde, seit Windows XP

Jetzt stand ich auf dem Schlauch, denn die Anwendungen, welche ich benutze, blenden die Unterstreichungen nicht aus. Musste erst mal im Editor nachschauen. Ich denke, das Ausblenden ist nicht so wichitg.

[Christian Seehase]

Moin Garfield,

Zitat von Garfield:

Während der Eingabe des neuen Ordnernamen wird dieser auf ungültige Zeichen '<', '>', '|', '"', '/', ':', '?' geprüft.

ein / ist ein gültiger Pfadtrenner (auch wenn man fast nur \ verwendet).

[Garfield]

Moin, Moin, da habe ich Datei- und Ordner zusammengehauen. Dann nehme ich mal '/' wieder raus.

[Christian Seehase]

Moin Garfield,

sorry, da hatte ich doch glatt noch etwas vergessen

Ich habe jetzt nicht in den Code geschaut, aber:
Je nachdem, welche Funktionen Du benutzt, kann sich die Verwendung von \ und / auswirken, da so manche Delphi-Funktion als Pfadtrennzeichen nur \ unterstützt

[Garfield]

Das Erstellen der Verzeichnisse erfolgt über ForceDirectories. Das heißt, beim Erstellen über den Button "Neuer Ordner" bzw beim Beenden des Dialogs, wenn die EditBox und die Option odPerformCreate eingestellt sind. Wenn in die EditBox ein Name eingegeben wird, wird die Existenz über DirectoryExists geprüft. Existiert es, wird das Verzeichnis im TShellTreeView mit "ST_Ordner.Path := Ed_Edit.Text;" markiert.

Test: In der EditBox gibt ein '/' einen Fehler, beim Erstellen über "Neuer Ordner" kann das Verzeichnis nicht erstellt werden. Mit '\' funktioniert beides.

Heißt also, wir müssen '/' wieder verbieten.

[FAlter]

Hi,

Zitat von Garfield:

Heißt also, wir müssen '/' wieder verbieten.

ODER durch '\' ersetzen.

Mfg
FAlter

[Garfield]

Wäre vielleicht sinnvoller!?
__

getestet - überzeugt - wird entsprechend geändert.

[Garfield]

Zitat von Dezipaitor:

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

Ich habe eine Option odSizeable hinzugefügt. Damit ist die Form größenveränderlich. Zusätzlich gibt es zwei Variablen für Höhe und Breite, welche von der Class unabhängig sind. Damit werden Größenveränderungen bis zur Beendigung der Anwendung gemerkt. Die Anwendung kann die Werte eventuell in ihrer INI speichern.

Zitat von Garfield:

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.

Der Fehler lag doch bei mir. Genauer bei meiner Pseudo-Autovervollständigenfunktion. Wenn kein gültiger Verzeichnisname in der Editbox stand, wurde dem Pfad des TShellTreeView ein leerer String übergeben.

[Garfield]

Wenn die Option odSizeable gesetzt und das Dialogformular damit größenveränderbar ist, fehlt die Markierung an der rechten unteren Ecke. Beim Original funktioniert das, bei den Delphiforms anscheinend nur, wenn eine TStatusBar vorhanden ist.

Die Eigenschaft heißt SizeGrip.