MathgeomGLS
44 строки · 778.0 Байт
1unit fAbout;
2
3interface
4
5uses
6Winapi.Windows,
7Winapi.Messages,
8System.SysUtils,
9System.Variants,
10System.Classes,
11Vcl.Graphics,
12Vcl.Controls,
13Vcl.Forms,
14Vcl.Dialogs,
15Vcl.ExtCtrls,
16Vcl.StdCtrls;
17
18type
19TFormAbout = class(TForm)
20Panel1: TPanel;
21Panel2: TPanel;
22PanelCentre: TPanel;
23MemoContributors: TMemo;
24Button1: TButton;
25procedure Button1Click(Sender: TObject);
26private
27public
28end;
29
30var
31FormAbout: TFormAbout;
32
33//==========================================================================
34implementation
35//==========================================================================
36
37{$R *.dfm}
38
39procedure TFormAbout.Button1Click(Sender: TObject);
40begin
41MemoContributors.Visible := not MemoContributors.Visible;
42end;
43
44end.
45