added ddemangle to to tool infos

This commit is contained in:
Basile Burg 2015-09-14 15:54:41 +02:00
parent 1254f45ecd
commit d1368d3939
2 changed files with 24 additions and 21 deletions

View File

@ -1,38 +1,38 @@
inherited CEInfoWidget: TCEInfoWidget
Left = 713
Height = 318
Height = 378
Top = 245
Width = 378
Width = 389
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
Caption = 'About'
ClientHeight = 318
ClientWidth = 378
ClientHeight = 378
ClientWidth = 389
inherited Back: TPanel
Height = 318
Width = 378
ClientHeight = 318
ClientWidth = 378
Height = 378
Width = 389
ClientHeight = 378
ClientWidth = 389
inherited Content: TPanel
Height = 318
Width = 378
ClientHeight = 318
ClientWidth = 378
Height = 378
Width = 389
ClientHeight = 378
ClientWidth = 389
object GroupBox1: TGroupBox[0]
Left = 4
Height = 105
Top = 4
Width = 370
Width = 381
Align = alTop
BorderSpacing.Around = 4
Caption = 'about'
ClientHeight = 85
ClientWidth = 366
ClientWidth = 377
TabOrder = 0
object Label1: TLabel
Left = 0
Height = 85
Top = 0
Width = 366
Width = 377
Align = alClient
Alignment = taCenter
AutoSize = False
@ -46,20 +46,20 @@ inherited CEInfoWidget: TCEInfoWidget
end
object GroupBox2: TGroupBox[1]
Left = 4
Height = 201
Height = 261
Top = 113
Width = 370
Width = 381
Align = alClient
BorderSpacing.Around = 4
Caption = 'tools status'
ClientHeight = 181
ClientWidth = 366
ClientHeight = 241
ClientWidth = 377
TabOrder = 1
object boxTools: TScrollBox
Left = 4
Height = 173
Height = 233
Top = 4
Width = 358
Width = 369
HorzScrollBar.Page = 1
VertScrollBar.Page = 1
Align = alClient

View File

@ -162,6 +162,9 @@ begin
fIsModal := true;
fIsDockable := false;
//
toolItem := TToolInfo.Construct(self, tikFindable, 'ddemangle');
toolItem.Parent := boxTools;
toolItem.ReAlign;
toolItem := TToolInfo.Construct(self, tikRunning, 'dcd-server');
toolItem.Parent := boxTools;
toolItem.ReAlign;