MathgeomGLS

1
unit ABOUT;
2

3
interface
4

5
uses
6
  Winapi.Windows, System.Classes, Vcl.Graphics, Vcl.Forms, Vcl.Controls,
7
  Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls;
8

9
type
10
  TAboutBox = class(TForm)
11
    Panel1: TPanel;
12
    OKButton: TButton;
13
    ProgramIcon: TImage;
14
    ProductName: TLabel;
15
    Version: TLabel;
16
    Copyright: TLabel;
17
  private
18
    { Private declarations }
19
  public
20
    { Public declarations }
21
  end;
22

23
var
24
  AboutBox: TAboutBox;
25

26
implementation
27

28
{$R *.dfm}
29

30
end.
31

32