--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/unit_Editor_as_BrowseDir.pas	Sun Dec 03 21:54:43 2006 +0100
@@ -0,0 +1,150 @@
+unit unit_Editor_as_BrowseDir;
+
+interface//####################################################################################
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, Buttons, FileCtrl;
+
+type
+  Tform_Editor_as_BrowseDir = class(TForm)
+    dirlbx_1: TDirectoryListBox;
+    tbx_Path: TEdit;
+    btn_NewDir: TBitBtn;
+    btn_Apply: TButton;
+    btn_Cancel: TButton;
+    dcobx_1: TDriveComboBox;
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure dcobx_1Change(Sender: TObject);
+    procedure btn_NewDirClick(Sender: TObject);
+    procedure btn_ApplyClick(Sender: TObject);
+    procedure dirlbx_1Change(Sender: TObject);
+    procedure btn_CancelClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  form_Editor_as_BrowseDir: Tform_Editor_as_BrowseDir;
+
+implementation//###############################################################################
+uses unit_Editor_as, unit_Start, unit_Editor;
+{$R *.dfm}//###################################################################################
+
+//------------------------------------------------------------------------------ Form Create
+procedure Tform_Editor_as_BrowseDir.FormCreate(Sender: TObject);
+begin
+  // disable autorun settings
+    form_editor_as.Enabled := false;
+
+  // set language
+    if form_editor.englisch = true then
+      begin // English
+        form_editor_as_BrowseDir.Caption := 'Chose Directory';
+        btn_NewDir.Caption := 'Create new Dir';
+        btn_Apply.Caption := 'Apply Changes';
+        btn_Cancel.Caption := 'Cancel Changes';
+      end
+    else
+      begin // German
+        form_editor_as_BrowseDir.Caption := 'Wähle ein Verzeichnis';
+        btn_NewDir.Caption := 'Ordner erstellen';
+        btn_Apply.Caption := 'Übernehmen';
+        btn_Cancel.Caption := 'Abbrechen';
+      end;
+end;//--------------------------------------------------------------------------
+//------------------------------------------------------------------------------ Form Show
+procedure Tform_Editor_as_BrowseDir.FormShow(Sender: TObject);
+  var i : integer;
+      typ : cardinal;
+begin
+{
+  // dont show floppy and cdrom drives
+    for i := 0 to 25 do
+      begin
+        typ := getdrivetype(pchar(chr(i + 65) + ':\')) ;
+        if (typ = Drive_Removable) or (typ = Drive_CDRom) then
+          begin
+            dcobx_1.Drive := chr(i+65);               // this must be avoided
+            dcobx_1.Items.Delete(dcobx_1.ItemIndex);  // how to delete without setting the item??
+          end;
+      end;
+}
+  // Init
+    dcobx_1.Drive := 'c';
+    dirlbx_1.Drive := 'c';
+    tbx_path.Text := dirlbx_1.Directory;
+end;//--------------------------------------------------------------------------
+//------------------------------------------------------------------------------ Form Close
+procedure Tform_Editor_as_BrowseDir.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  // activate autorun settings
+    form_editor_as.enabled := true;
+end;//--------------------------------------------------------------------------
+
+//#############################################################################################
+
+//------------------------------------------------------------------------------ Change Drive
+procedure Tform_Editor_as_BrowseDir.dcobx_1Change(Sender: TObject);
+begin
+  dirlbx_1.Drive := dcobx_1.drive ;
+  dirlbx_1.Refresh;
+end;//--------------------------------------------------------------------------
+//------------------------------------------------------------------------------ Change Dir
+procedure Tform_Editor_as_BrowseDir.dirlbx_1Change(Sender: TObject);
+begin
+  tbx_path.Text := dirlbx_1.Directory;
+end;//--------------------------------------------------------------------------
+
+//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+//------------------------------------------------------------------------------ New Dir
+procedure Tform_Editor_as_BrowseDir.btn_NewDirClick(Sender: TObject);
+  var NewDir : string;
+begin
+  // create new dir
+    if form_editor.englisch = true then
+      begin // english
+        if inputquery('Create new Dir','Enter the name of the new Dir', NewDir) then
+          begin
+            if not directoryexists(dirlbx_1.directory + '\' + NewDir) then
+              begin
+                mkdir(dirlbx_1.directory + '\' + NewDir);
+              end;
+          end;
+      end
+    else
+      begin // German
+        if inputquery('Neuen Ordner erstellen','Name des neuen Ordners', NewDir) then
+          begin
+            if not directoryexists(dirlbx_1.directory + '\' + NewDir) then
+              begin
+                mkdir(dirlbx_1.directory + '\' + NewDir);
+              end;
+          end;
+      end; 
+  // go to new dir and refresh
+    dirlbx_1.Directory := dirlbx_1.directory + '\' + NewDir;
+    dirlbx_1.Update;
+end;//--------------------------------------------------------------------------
+
+//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+//------------------------------------------------------------------------------ apply
+procedure Tform_Editor_as_BrowseDir.btn_ApplyClick(Sender: TObject);
+begin
+  form_editor_as.tbx_CDRootPath.Text := tbx_path.text;
+  form_editor_as_browsedir.Close;
+end;//--------------------------------------------------------------------------
+//------------------------------------------------------------------------------ cancel
+procedure Tform_Editor_as_BrowseDir.btn_CancelClick(Sender: TObject);
+begin
+  form_editor_as_browsedir.Close;
+end;//--------------------------------------------------------------------------
+
+end.//#########################################################################################