diff --git a/src/ce_infos.lfm b/src/ce_infos.lfm
index 4f8f5196..484ff9bf 100644
--- a/src/ce_infos.lfm
+++ b/src/ce_infos.lfm
@@ -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
diff --git a/src/ce_infos.pas b/src/ce_infos.pas
index f57e516a..59e39bcf 100644
--- a/src/ce_infos.pas
+++ b/src/ce_infos.pas
@@ -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;