MathgeomGLS

1
unit fAbout;
2

3
interface
4

5
uses
6
  Winapi.Windows,
7
  Winapi.Messages,
8
  System.SysUtils,
9
  System.Variants,
10
  System.Classes,
11
  Vcl.Graphics,
12
  Vcl.Controls,
13
  Vcl.Forms,
14
  Vcl.Dialogs,
15
  Vcl.ExtCtrls,
16
  Vcl.StdCtrls;
17

18
type
19
  TFormAbout = class(TForm)
20
    Panel1: TPanel;
21
    Panel2: TPanel;
22
    PanelCentre: TPanel;
23
    MemoContributors: TMemo;
24
    Button1: TButton;
25
    procedure Button1Click(Sender: TObject);
26
  private
27
  public
28
  end;
29

30
var
31
  FormAbout: TFormAbout;
32

33
//==========================================================================
34
implementation
35
//==========================================================================
36

37
{$R *.dfm}
38

39
procedure TFormAbout.Button1Click(Sender: TObject);
40
begin
41
  MemoContributors.Visible := not MemoContributors.Visible;
42
end;
43

44
end.
45