add gdmd to the information box

src/ce_dmdwrap.pas

@@ -155,7 +155,7 @@ type
     property versionIdentifiers: TStringList read fVerIds write setVerIds;
     property generateAllTmpCode: boolean read fAllInst write setAllInst default false;
     property addStackStompCode: boolean read fStackStomp write setStackStomp default false;
-    //TODO-cmaintenace: remove deprecated props after next rlz
+    //TODO-cmaintenace: remove deprecated props
     property generateStackFrame: boolean write setGenStack stored false; deprecated;
   public
     constructor create; override;
@@ -192,7 +192,7 @@ type
     property generateInfos: boolean read fGenInfos write setGenInfos default false;
     property generateMapFile: boolean read fGenMap write setGenMap default false;
     property generateStackFrame: boolean read fGenFrame write setGenFrame default false;
-    //TODO-cmaintenace: remove deprecated props after next rlz
+    //TODO-cmaintenace: remove deprecated props
     property debug: boolean write setDebugConditions; deprecated;
     property codeviewDexts: boolean write setGenInfos stored false; deprecated;
     property codeviewCformat: boolean write setDbgC stored false; deprecated;

src/ce_infos.lfm

@@ -1,21 +1,21 @@
 inherited CEInfoWidget: TCEInfoWidget
   Left = 713
-  Height = 423
+  Height = 457
   Top = 245
   Width = 411
   BorderIcons = [biSystemMenu, biMinimize, biMaximize]
   Caption = 'About'
-  ClientHeight = 423
+  ClientHeight = 457
   ClientWidth = 411
   inherited Back: TPanel
-    Height = 423
+    Height = 457
     Width = 411
-    ClientHeight = 423
+    ClientHeight = 457
     ClientWidth = 411
     inherited Content: TPanel
-      Height = 423
+      Height = 457
       Width = 411
-      ClientHeight = 423
+      ClientHeight = 457
       ClientWidth = 411
       object GroupBox1: TGroupBox[0]
         Left = 4
@@ -46,18 +46,18 @@ inherited CEInfoWidget: TCEInfoWidget
       end
       object GroupBox2: TGroupBox[1]
         Left = 4
-        Height = 306
+        Height = 340
         Top = 113
         Width = 403
         Align = alClient
         BorderSpacing.Around = 4
         Caption = 'tools status'
-        ClientHeight = 276
+        ClientHeight = 310
         ClientWidth = 399
         TabOrder = 1
         object boxTools: TScrollBox
           Left = 4
-          Height = 268
+          Height = 302
           Top = 4
           Width = 391
           HorzScrollBar.Page = 1

src/ce_infos.pas

@@ -180,6 +180,11 @@ begin
     'optional, the D source code formater, needed by the Dfmt commander widget');
   toolItem.Parent := boxTools;
   toolItem.ReAlign;
+  // TODO-cmaintenance: remove this entry if GDMD is distributed with GDC
+  toolItem := TToolInfo.Construct(self, tikOptional, 'gdmd',
+    'optional, the GDC wrapper with a DMD command line interface');
+  toolItem.Parent := boxTools;
+  toolItem.ReAlign;
   toolItem := TToolInfo.Construct(self, tikOptional, 'gdc',
     'optional, the GDC D compiler');
   toolItem.Parent := boxTools;