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

fix #316 - "the tool cannot be found" although the correct compiler path is provided BUG

This commit is contained in:
Basile Burg 2018-05-01 23:11:01 +02:00
parent 55965f119c
commit 67bcd6e8bd
2 changed files with 48 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/ce_infos.lfm
View File

@ -9,34 +9,34 @@ inherited CEInfoWidget: TCEInfoWidget
ClientHeight = 147
ClientWidth = 296
inherited Back: TPanel
Height = 303
Width = 287
Height = 147
Width = 296
AutoSize = True
ClientHeight = 303
ClientWidth = 287
ClientHeight = 147
ClientWidth = 296
inherited Content: TPanel
Height = 267
Height = 111
Top = 36
Width = 287
ClientHeight = 267
ClientWidth = 287
Width = 296
ClientHeight = 111
ClientWidth = 296
object GroupBox1: TGroupBox[0]
Left = 4
Height = 78
Height = 77
Top = 4
Width = 279
Width = 288
Align = alTop
AutoSize = True
BorderSpacing.Around = 4
Caption = 'about'
ClientHeight = 59
ClientWidth = 275
ClientWidth = 286
TabOrder = 0
object Label1: TLabel
Left = 8
Height = 1
Top = 8
Width = 259
Width = 270
Align = alTop
Alignment = taCenter
BorderSpacing.Around = 8
@ -49,7 +49,7 @@ inherited CEInfoWidget: TCEInfoWidget
Left = 8
Height = 34
Top = 17
Width = 259
Width = 270
Align = alClient
Alignment = taCenter
BorderSpacing.Around = 8
@ -62,21 +62,21 @@ inherited CEInfoWidget: TCEInfoWidget
end
object GroupBox2: TGroupBox[1]
Left = 4
Height = 177
Top = 86
Width = 279
Height = 22
Top = 85
Width = 288
Align = alClient
AutoSize = True
BorderSpacing.Around = 4
Caption = 'tools status'
ClientHeight = 158
ClientWidth = 275
ClientHeight = 4
ClientWidth = 286
TabOrder = 1
object boxTools: TScrollBox
Left = 4
Height = 150
Top = 4
Width = 267
Height = 1
Top = 2
Width = 278
HorzScrollBar.Page = 1
VertScrollBar.Page = 1
Align = alClient
@ -88,7 +88,7 @@ inherited CEInfoWidget: TCEInfoWidget
end
end
inherited toolbar: TCEToolBar
Width = 279
Width = 288
end
end
end

33
src/ce_infos.pas
View File

@ -12,7 +12,7 @@ uses
type
TToolInfoKind = (tikRunning, tikFindable, tikOptional);
TToolInfoKind = (tikRunning, tikFindable, tikOptional, tikCompiler);
TToolInfo = class(TWinControl)
private
@ -118,6 +118,7 @@ end;
procedure TToolInfo.refreshStatus;
var
pth: string;
cmp: DCompiler;
begin
if fLabel.isNil or fStatus.isNil then exit;
//
@ -154,6 +155,24 @@ begin
fPresent := true;
end;
end;
tikCompiler:
begin
case fToolName of
'ldc2' : cmp := DCompiler.ldc;
'gdc' : cmp := DCompiler.gdc;
'dmd' : cmp := DCompiler.dmd;
end;
if getCompilerSelector.isCompilerValid(cmp) then
begin
fStatus.Caption:= ' the paths for this compiler look valid';
AssignPng(fIco, 'BULLET_GREEN');
end
else
begin
fStatus.Caption:= ' the paths for this compiler dont look valid';
AssignPng(fIco, 'BULLET_YELLOW');
end;
end;
tikRunning:
begin
pth := exeFullName(fToolName + exeExt);
@ -219,12 +238,12 @@ begin
'optional, the D source code formater, needed by the Dfmt commander widget');
itm.Parent := boxTools;
itm.ReAlign;
itm := TToolInfo.Construct(self, tikOptional, 'gdc',
'optional, the GDC D compiler');
itm := TToolInfo.Construct(self, tikCompiler, 'gdc',
'optional, the GDC D compiler, setup in "Options - Compilers paths"');
itm.Parent := boxTools;
itm.ReAlign;
itm := TToolInfo.Construct(self, tikOptional, 'ldc2',
'optional, the LDC D compiler');
itm := TToolInfo.Construct(self, tikCompiler, 'ldc2',
'optional, the LDC D compiler, setup in "Options - Compilers paths"');
itm.Parent := boxTools;
itm.ReAlign;
itm := TToolInfo.Construct(self, tikFindable, 'ddemangle',
@ -248,8 +267,8 @@ begin
'the D package manager, mandatory to compile project in DUB format');
itm.Parent := boxTools;
itm.ReAlign;
itm := TToolInfo.Construct(self, tikFindable, 'dmd',
'mandatory, the reference D compiler');
itm := TToolInfo.Construct(self, tikCompiler, 'dmd',
'the reference D compiler, setup in "Options - Compilers paths"');
itm.Parent := boxTools;
itm.ReAlign;