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

fix #20 - Try to automatically add ldc import folder when ldc binary is set manually

This commit is contained in:
Basile Burg 2020-04-07 22:02:06 +02:00
parent 146c5ce85b
commit f163751e05
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/u_compilers.pas
View File

@ -126,6 +126,7 @@ type
fPaths: TCompilersPaths; fPaths: TCompilersPaths;
fPathsBackup: TCompilersPaths; fPathsBackup: TCompilersPaths;
fProj: ICommonProject; fProj: ICommonProject;
procedure tryLdcImportFromLdcExeName();
procedure editedExe(sender: TObject); procedure editedExe(sender: TObject);
procedure editedRt(sender: TObject); procedure editedRt(sender: TObject);
procedure editedStd(sender: TObject); procedure editedStd(sender: TObject);
@ -719,6 +720,23 @@ begin
end; end;
end; end;
procedure TCompilersPathsEditor.tryLdcImportFromLdcExeName();
var
d: string;
i: string;
begin
if not fPaths.LdcExeName.fileExists then
exit;
d := fPaths.LdcExeName.extractFileDir.extractFileDir;
i := d + DirectorySeparator + 'import';
if (i + DirectorySeparator + 'object.d').fileExists and
selLDCrt.Directory.isEmpty then
begin
selLDCrt.Directory := i;
fPaths.LdcRuntimePath := i;
end;
end;
procedure TCompilersPathsEditor.selectedExe(sender: TObject; var value: string); procedure TCompilersPathsEditor.selectedExe(sender: TObject; var value: string);
var var
ctrl: TWinControl; ctrl: TWinControl;
@ -746,7 +764,10 @@ begin
else if ctrl.Parent = grpGDC then else if ctrl.Parent = grpGDC then
fPaths.GDCExeName:=selGDCexe.FileName fPaths.GDCExeName:=selGDCexe.FileName
else if ctrl.Parent = grpLDC then else if ctrl.Parent = grpLDC then
fPaths.LdcExeName:=selLDCexe.FileName begin
fPaths.LdcExeName:=selLDCexe.FileName;
tryLdcImportFromLdcExeName;
end
else if ctrl.Parent = grpUSER1 then else if ctrl.Parent = grpUSER1 then
fPaths.User1ExeName:=selUSER1exe.FileName fPaths.User1ExeName:=selUSER1exe.FileName
else if ctrl.Parent = grpUSER2 then else if ctrl.Parent = grpUSER2 then