diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 16.png b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 16.png
new file mode 100644
index 000000000..83b943ba1
Binary files /dev/null and b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 16.png differ
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 16.svg b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 16.svg
new file mode 100644
index 000000000..3355d3948
--- /dev/null
+++ b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 16.svg
@@ -0,0 +1,369 @@
+
+
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 20.png b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 20.png
new file mode 100644
index 000000000..6524b1d9d
Binary files /dev/null and b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 20.png differ
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 20.svg b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 20.svg
new file mode 100644
index 000000000..a74d7e8a7
--- /dev/null
+++ b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 20.svg
@@ -0,0 +1,399 @@
+
+
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 24.png b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 24.png
new file mode 100644
index 000000000..0ca21a306
Binary files /dev/null and b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 24.png differ
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 24.svg b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 24.svg
new file mode 100644
index 000000000..9bddfd49e
--- /dev/null
+++ b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 24.svg
@@ -0,0 +1,397 @@
+
+
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 256.png b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 256.png
new file mode 100644
index 000000000..0bb22bc08
Binary files /dev/null and b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 256.png differ
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 256.svg b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 256.svg
new file mode 100644
index 000000000..04213cdcb
--- /dev/null
+++ b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 256.svg
@@ -0,0 +1,392 @@
+
+
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 32.png b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 32.png
new file mode 100644
index 000000000..44b63a9c4
Binary files /dev/null and b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 32.png differ
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 32.svg b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 32.svg
new file mode 100644
index 000000000..ff8286390
--- /dev/null
+++ b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 32.svg
@@ -0,0 +1,369 @@
+
+
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 40.png b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 40.png
new file mode 100644
index 000000000..7117f079f
Binary files /dev/null and b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 40.png differ
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 40.svg b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 40.svg
new file mode 100644
index 000000000..ee078ab70
--- /dev/null
+++ b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 40.svg
@@ -0,0 +1,399 @@
+
+
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 48.png b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 48.png
new file mode 100644
index 000000000..42acd5dae
Binary files /dev/null and b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 48.png differ
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats 48.svg b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 48.svg
new file mode 100644
index 000000000..d2ae9fae6
--- /dev/null
+++ b/applications/lazstats/icons/svg (Roland Hahn)/LazStats 48.svg
@@ -0,0 +1,397 @@
+
+
diff --git a/applications/lazstats/icons/svg (Roland Hahn)/LazStats.ico b/applications/lazstats/icons/svg (Roland Hahn)/LazStats.ico
new file mode 100644
index 000000000..39266a125
Binary files /dev/null and b/applications/lazstats/icons/svg (Roland Hahn)/LazStats.ico differ
diff --git a/applications/lazstats/source/LazStats.ico b/applications/lazstats/source/LazStats.ico
index 0341321b5..39266a125 100644
Binary files a/applications/lazstats/source/LazStats.ico and b/applications/lazstats/source/LazStats.ico differ
diff --git a/applications/lazstats/source/LazStats.res b/applications/lazstats/source/LazStats.res
index bec39b4a4..608538ce6 100644
Binary files a/applications/lazstats/source/LazStats.res and b/applications/lazstats/source/LazStats.res differ
diff --git a/applications/lazstats/source/forms/help/aboutunit.lfm b/applications/lazstats/source/forms/help/aboutunit.lfm
index 0fd41818d..941ddf992 100644
--- a/applications/lazstats/source/forms/help/aboutunit.lfm
+++ b/applications/lazstats/source/forms/help/aboutunit.lfm
@@ -1,26 +1,29 @@
object AboutBox: TAboutBox
Left = 202
- Height = 170
+ Height = 200
Top = 145
- Width = 295
+ Width = 387
AutoSize = True
BorderStyle = bsDialog
Caption = 'About LazStats'
- ClientHeight = 170
- ClientWidth = 295
+ ClientHeight = 200
+ ClientWidth = 387
Color = clBtnFace
Font.Color = clWindowText
+ OnCreate = FormCreate
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
object OKButton: TButton
- AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
- Left = 111
+ AnchorSideRight.Control = Panel1
+ AnchorSideRight.Side = asrBottom
+ Left = 295
Height = 25
- Top = 134
+ Top = 164
Width = 75
+ Anchors = [akTop, akRight]
BorderSpacing.Bottom = 8
Caption = 'OK'
Default = True
@@ -32,72 +35,96 @@ object AboutBox: TAboutBox
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
Left = 8
- Height = 118
+ Height = 148
Top = 8
- Width = 280
+ Width = 362
AutoSize = True
BorderSpacing.Around = 8
BevelInner = bvRaised
BevelOuter = bvLowered
- ClientHeight = 118
- ClientWidth = 280
+ ClientHeight = 148
+ ClientWidth = 362
Constraints.MinWidth = 280
TabOrder = 1
- object Label1: TLabel
+ object Image1: TImage
AnchorSideLeft.Control = Panel1
- AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Panel1
- Left = 95
- Height = 32
+ Left = 10
+ Height = 128
Top = 10
+ Width = 128
+ BorderSpacing.Around = 8
+ Proportional = True
+ end
+ object Label1: TLabel
+ AnchorSideLeft.Control = Label4
+ AnchorSideLeft.Side = asrCenter
+ Left = 204
+ Height = 32
+ Top = 18
Width = 91
BorderSpacing.Top = 8
Caption = 'LazStats'
Font.CharSet = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -24
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
+ Font.Quality = fqAntialiased
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label2: TLabel
- AnchorSideLeft.Control = Panel1
+ AnchorSideLeft.Control = Label4
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
- Left = 83
+ Left = 192
Height = 21
- Top = 50
+ Top = 54
Width = 115
- BorderSpacing.Top = 8
+ BorderSpacing.Top = 4
Caption = 'William G. Miller'
Font.CharSet = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
+ ParentColor = False
+ ParentFont = False
+ end
+ object Label3: TLabel
+ AnchorSideLeft.Control = Label4
+ AnchorSideLeft.Side = asrCenter
+ AnchorSideTop.Control = Label2
+ AnchorSideTop.Side = asrBottom
+ Left = 188
+ Height = 17
+ Top = 79
+ Width = 122
+ BorderSpacing.Top = 4
+ Caption = 'Copyright 2013-2020'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -13
Font.Pitch = fpVariable
Font.Quality = fqDraft
ParentColor = False
ParentFont = False
end
- object Label3: TLabel
- AnchorSideLeft.Control = Panel1
- AnchorSideLeft.Side = asrCenter
- AnchorSideTop.Control = Label2
+ object Label4: TLabel
+ AnchorSideLeft.Control = Image1
+ AnchorSideLeft.Side = asrBottom
+ AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
- Left = 65
- Height = 21
- Top = 79
- Width = 151
- BorderSpacing.Top = 8
+ Left = 154
+ Height = 17
+ Top = 108
+ Width = 190
+ BorderSpacing.Left = 16
+ BorderSpacing.Top = 12
+ BorderSpacing.Right = 16
BorderSpacing.Bottom = 16
- Caption = 'Copyright 2013-2020'
- Font.CharSet = ANSI_CHARSET
+ Caption = 'Application icon by Roland Hahn'
Font.Color = clWindowText
- Font.Height = -16
- Font.Pitch = fpVariable
- Font.Quality = fqDraft
+ Font.Height = -13
ParentColor = False
ParentFont = False
end
diff --git a/applications/lazstats/source/forms/help/aboutunit.pas b/applications/lazstats/source/forms/help/aboutunit.pas
index 0f7a8c03b..01c13a04d 100644
--- a/applications/lazstats/source/forms/help/aboutunit.pas
+++ b/applications/lazstats/source/forms/help/aboutunit.pas
@@ -13,11 +13,14 @@ type
{ TAboutBox }
TAboutBox = class(TForm)
+ Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
+ Label4: TLabel;
OKButton: TButton;
Panel1: TPanel;
+ procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
@@ -32,6 +35,9 @@ procedure ShowAboutBox;
implementation
+uses
+ Types;
+
procedure ShowAboutBox;
begin
with TAboutBox.Create(nil) do
@@ -42,6 +48,14 @@ begin
end;
end;
+{ TAboutBox }
+
+procedure TAboutBox.FormCreate(Sender: TObject);
+begin
+ Image1.Picture.Icon := Application.Icon;
+ Image1.Picture.Icon.Current := Application.Icon.GetBestIndexForSize(Size(256,256));
+end;
+
initialization
{$I aboutunit.lrs}