forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

compilers paths, pops dialog on the current dirs

This commit is contained in:
Basile Burg 2016-11-09 07:06:08 +01:00
parent 72d0f95851
commit 5610d15158
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_compilers.lfm
View File

@ -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

23
src/ce_compilers.pas
View File

@ -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;