OpenDirDialog

[Garfield]

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.

Für Delphi 7 und Turbo Delphi werden die TNT Hack Controls verwendet. Das sollte kein Problem sein, da der Widestring sonst auch irgendwie angezeigt werden muss. Die falsche Anzeige der Widestrings in der Demo mit D2009 lag an der eingestellten Schrift MS San Serif. Mit Tahoma funcktioniert es richtig.

Jetzt müsste das ganze am besten in nonVCL überführt werden.