UsedUnits/uAbout.pas at main · dhdorrough/UsedUnits · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
(* changed on 9/19/2023 - testing it *)
unit uAbout;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    lblVersion: TLabel;
    OKButton: TButton;
  private
    procedure SetVersion(const Value: string);
    { Private declarations }
  public
    property Version: string
             write SetVersion;
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;

implementation

{$R *.DFM}

{ TAboutBox }

procedure TAboutBox.SetVersion(const Value: string);
begin
  lblVersion.Caption := Format('Version %s', [Value]);
end;

end.