diff --git a/src/ce_infos.lfm b/src/ce_infos.lfm index 5eb07c13..4f8f5196 100644 --- a/src/ce_infos.lfm +++ b/src/ce_infos.lfm @@ -9,39 +9,52 @@ inherited CEInfoWidget: TCEInfoWidget ClientHeight = 147 ClientWidth = 296 inherited Back: TPanel - Height = 147 - Width = 296 + Height = 303 + Width = 287 AutoSize = True - ClientHeight = 147 - ClientWidth = 296 + ClientHeight = 303 + ClientWidth = 287 inherited Content: TPanel - Height = 111 + Height = 267 Top = 36 - Width = 296 - ClientHeight = 111 - ClientWidth = 296 + Width = 287 + ClientHeight = 267 + ClientWidth = 287 object GroupBox1: TGroupBox[0] Left = 4 - Height = 37 + Height = 78 Top = 4 - Width = 288 + Width = 279 Align = alTop AutoSize = True BorderSpacing.Around = 4 Caption = 'about' - ClientHeight = 17 - ClientWidth = 284 + ClientHeight = 59 + ClientWidth = 275 TabOrder = 0 object Label1: TLabel Left = 8 Height = 1 Top = 8 - Width = 268 + Width = 259 + Align = alTop + Alignment = taCenter + BorderSpacing.Around = 8 + Font.Style = [fsBold] + Layout = tlCenter + ParentColor = False + ParentFont = False + end + object Label2: TLabel + Left = 8 + Height = 34 + Top = 17 + Width = 259 Align = alClient Alignment = taCenter BorderSpacing.Around = 8 - Font.Height = -16 - Font.Style = [fsBold] + Caption = 'Licensed under the terms of the BSL-1.0'#10'©Basile Burg, 2014-2018' + Font.Style = [fsItalic] Layout = tlCenter ParentColor = False ParentFont = False @@ -49,21 +62,21 @@ inherited CEInfoWidget: TCEInfoWidget end object GroupBox2: TGroupBox[1] Left = 4 - Height = 62 - Top = 45 - Width = 288 + Height = 177 + Top = 86 + Width = 279 Align = alClient AutoSize = True BorderSpacing.Around = 4 Caption = 'tools status' - ClientHeight = 42 - ClientWidth = 284 + ClientHeight = 158 + ClientWidth = 275 TabOrder = 1 object boxTools: TScrollBox Left = 4 - Height = 34 + Height = 150 Top = 4 - Width = 276 + Width = 267 HorzScrollBar.Page = 1 VertScrollBar.Page = 1 Align = alClient @@ -75,7 +88,7 @@ inherited CEInfoWidget: TCEInfoWidget end end inherited toolbar: TCEToolBar - Width = 288 + Width = 279 end end end diff --git a/src/ce_infos.pas b/src/ce_infos.pas index b9975636..f57e516a 100644 --- a/src/ce_infos.pas +++ b/src/ce_infos.pas @@ -8,7 +8,7 @@ uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, {$IFDEF WINDOWS}Windows,{$ENDIF} StdCtrls, ExtCtrls, Buttons, Menus,ce_widget, ce_common, ce_sharedres, - ce_interfaces; + ce_interfaces, ce_dsgncontrols; type @@ -41,6 +41,7 @@ type GroupBox1: TGroupBox; GroupBox2: TGroupBox; Label1: TLabel; + Label2: TLabel; private procedure RefreshAllStatus; function findCriticalyMissingTool: boolean; @@ -189,6 +190,7 @@ begin toolbarVisible:=false; fIsModal := true; fIsDockable := false; + Label1.Font.Size:= scaleY(15, 96); // with TResourceStream.Create(HINSTANCE, 'VERSION', RT_RCDATA) do try