From 5610d151584fcf36533fadaa7bb1818b3252936f Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 9 Nov 2016 07:06:08 +0100
Subject: [PATCH] compilers paths, pops dialog on the current dirs

---
 src/ce_compilers.lfm | 15 +++++++++++++++
 src/ce_compilers.pas | 23 ++++++++++++++++++++++-
 2 files changed, 37 insertions(+), 1 deletion(-)

diff --git a/src/ce_compilers.lfm b/src/ce_compilers.lfm
index 92489d80..4e74b75f 100644
--- a/src/ce_compilers.lfm
+++ b/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
diff --git a/src/ce_compilers.pas b/src/ce_compilers.pas
index 3765923a..5c896ead 100644
--- a/src/ce_compilers.pas
+++ b/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;