forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add license and copyright to about box

This commit is contained in:
Basile Burg 2018-04-16 17:12:41 +02:00
parent 76273ffa49
commit 333f3147d3
2 changed files with 39 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
src/ce_infos.lfm
View File

@ -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

4
src/ce_infos.pas
View File

@ -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