compilers paths, pops dialog on the current dirs

src/ce_compilers.lfm

@@ -43,6 +43,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 0
+        OnButtonClick = dialogOpen
       end
       object selDMDrt: TDirectoryEdit
         Left = 2
@@ -58,6 +59,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 1
+        OnButtonClick = dialogOpen
       end
       object selDMDstd: TDirectoryEdit
         Left = 2
@@ -73,6 +75,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 2
+        OnButtonClick = dialogOpen
       end
       object StaticText1: TStaticText
         Left = 0
@@ -130,6 +133,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 0
+        OnButtonClick = dialogOpen
       end
       object selGDCrt: TDirectoryEdit
         Left = 2
@@ -145,6 +149,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 1
+        OnButtonClick = dialogOpen
       end
       object selGDCstd: TDirectoryEdit
         Left = 2
@@ -160,6 +165,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 2
+        OnButtonClick = dialogOpen
       end
       object StaticText4: TStaticText
         Left = 0
@@ -217,6 +223,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 0
+        OnButtonClick = dialogOpen
       end
       object selLDCrt: TDirectoryEdit
         Left = 2
@@ -232,6 +239,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 1
+        OnButtonClick = dialogOpen
       end
       object selLDCstd: TDirectoryEdit
         Left = 2
@@ -247,6 +255,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 2
+        OnButtonClick = dialogOpen
       end
       object StaticText7: TStaticText
         Left = 0
@@ -303,6 +312,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 0
+        OnButtonClick = dialogOpen
       end
       object selUSER1rt: TDirectoryEdit
         Left = 2
@@ -317,6 +327,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 1
+        OnButtonClick = dialogOpen
       end
       object selUSER1std: TDirectoryEdit
         Left = 2
@@ -331,6 +342,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 2
+        OnButtonClick = dialogOpen
       end
       object StaticText10: TStaticText
         Left = 0
@@ -387,6 +399,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 0
+        OnButtonClick = dialogOpen
       end
       object selUSER2rt: TDirectoryEdit
         Left = 2
@@ -401,6 +414,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 1
+        OnButtonClick = dialogOpen
       end
       object selUSER2std: TDirectoryEdit
         Left = 2
@@ -415,6 +429,7 @@ object Form1: TForm1
         BorderSpacing.Around = 2
         MaxLength = 0
         TabOrder = 2
+        OnButtonClick = dialogOpen
       end
       object StaticText13: TStaticText
         Left = 0

src/ce_compilers.pas

@@ -114,6 +114,7 @@ type
     StaticText7: TStaticText;
     StaticText8: TStaticText;
     StaticText9: TStaticText;
+    procedure dialogOpen(sender: TObject);
   strict private
     fPaths: TCompilersPaths;
     fPathsBackup: TCompilersPaths;
@@ -150,7 +151,7 @@ var
 const
   optFname = 'compilerspaths.txt';
 
-{$REGION Standard Object/COmponents things -------------------------------------}
+{$REGION Standard Object/Components things -------------------------------------}
 constructor TForm1.create(aOwner: TComponent);
 var
   fname: string;
@@ -523,6 +524,26 @@ begin
   end;
 end;
 
+procedure TForm1.dialogOpen(sender: TObject);
+var
+  fne: TFileNameEdit;
+  dre: TDirectoryEdit;
+begin
+  if sender is TFileNameEdit then
+  begin
+    fne := TFileNameEdit(sender);
+    fne.InitialDir:=fne.FileName.extractFileDir;
+    fne.DialogTitle:='Select a D compiler';
+  end
+  else
+  begin
+    dre := TDirectoryEdit(sender);
+    dre.RootDir:=dre.Directory;
+    dre.ShowHidden:=true;
+    dre.DialogTitle:='Select a library path';
+  end;
+end;
+
 procedure TForm1.selectedExe(sender: TObject; var value: string);
 var
   ctrl: TWinControl;