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 ClientHeight = 147
ClientWidth = 296 ClientWidth = 296
inherited Back: TPanel inherited Back: TPanel
Height = 147 Height = 303
Width = 296 Width = 287
AutoSize = True AutoSize = True
ClientHeight = 147 ClientHeight = 303
ClientWidth = 296 ClientWidth = 287
inherited Content: TPanel inherited Content: TPanel
Height = 111 Height = 267
Top = 36 Top = 36
Width = 296 Width = 287
ClientHeight = 111 ClientHeight = 267
ClientWidth = 296 ClientWidth = 287
object GroupBox1: TGroupBox[0] object GroupBox1: TGroupBox[0]
Left = 4 Left = 4
Height = 37 Height = 78
Top = 4 Top = 4
Width = 288 Width = 279
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'about' Caption = 'about'
ClientHeight = 17 ClientHeight = 59
ClientWidth = 284 ClientWidth = 275
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 1 Height = 1
Top = 8 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 Align = alClient
Alignment = taCenter Alignment = taCenter
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Font.Height = -16 Caption = 'Licensed under the terms of the BSL-1.0'#10'©Basile Burg, 2014-2018'
Font.Style = [fsBold] Font.Style = [fsItalic]
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
@ -49,21 +62,21 @@ inherited CEInfoWidget: TCEInfoWidget
end end
object GroupBox2: TGroupBox[1] object GroupBox2: TGroupBox[1]
Left = 4 Left = 4
Height = 62 Height = 177
Top = 45 Top = 86
Width = 288 Width = 279
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'tools status' Caption = 'tools status'
ClientHeight = 42 ClientHeight = 158
ClientWidth = 284 ClientWidth = 275
TabOrder = 1 TabOrder = 1
object boxTools: TScrollBox object boxTools: TScrollBox
Left = 4 Left = 4
Height = 34 Height = 150
Top = 4 Top = 4
Width = 276 Width = 267
HorzScrollBar.Page = 1 HorzScrollBar.Page = 1
VertScrollBar.Page = 1 VertScrollBar.Page = 1
Align = alClient Align = alClient
@ -75,7 +88,7 @@ inherited CEInfoWidget: TCEInfoWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Width = 288 Width = 279
end end
end end
end end

4
src/ce_infos.pas
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
{$IFDEF WINDOWS}Windows,{$ENDIF} {$IFDEF WINDOWS}Windows,{$ENDIF}
StdCtrls, ExtCtrls, Buttons, Menus,ce_widget, ce_common, ce_sharedres, StdCtrls, ExtCtrls, Buttons, Menus,ce_widget, ce_common, ce_sharedres,
ce_interfaces; ce_interfaces, ce_dsgncontrols;
type type
@ -41,6 +41,7 @@ type
GroupBox1: TGroupBox; GroupBox1: TGroupBox;
GroupBox2: TGroupBox; GroupBox2: TGroupBox;
Label1: TLabel; Label1: TLabel;
Label2: TLabel;
private private
procedure RefreshAllStatus; procedure RefreshAllStatus;
function findCriticalyMissingTool: boolean; function findCriticalyMissingTool: boolean;
@ -189,6 +190,7 @@ begin
toolbarVisible:=false; toolbarVisible:=false;
fIsModal := true; fIsModal := true;
fIsDockable := false; fIsDockable := false;
Label1.Font.Size:= scaleY(15, 96);
// //
with TResourceStream.Create(HINSTANCE, 'VERSION', RT_RCDATA) do with TResourceStream.Create(HINSTANCE, 'VERSION', RT_RCDATA) do
try try