From d1368d3939abca25159b8d675c9c2ec7f0d38161 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Mon, 14 Sep 2015 15:54:41 +0200 Subject: [PATCH] added ddemangle to to tool infos --- src/ce_infos.lfm | 42 +++++++++++++++++++++--------------------- src/ce_infos.pas | 3 +++ 2 files changed, 24 insertions(+), 21 deletions(-) diff --git a/src/ce_infos.lfm b/src/ce_infos.lfm index b0b685ee..4968d488 100644 --- a/src/ce_infos.lfm +++ b/src/ce_infos.lfm @@ -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 diff --git a/src/ce_infos.pas b/src/ce_infos.pas index d7b3960a..d67736d3 100644 --- a/src/ce_infos.pas +++ b/src/ce_infos.pas @@ -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;