Line | |
---|
1 | unit UAboutForm;
|
---|
2 |
|
---|
3 | interface
|
---|
4 |
|
---|
5 | uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
---|
6 | Buttons, ExtCtrls, UApplicationInfo;
|
---|
7 |
|
---|
8 | type
|
---|
9 | TAboutForm = class(TForm)
|
---|
10 | Panel1: TPanel;
|
---|
11 | OKButton: TButton;
|
---|
12 | Image1: TImage;
|
---|
13 | Memo1: TMemo;
|
---|
14 | procedure OKButtonClick(Sender: TObject);
|
---|
15 | procedure FormShow(Sender: TObject);
|
---|
16 | private
|
---|
17 | { Private declarations }
|
---|
18 | public
|
---|
19 | { Public declarations }
|
---|
20 | end;
|
---|
21 |
|
---|
22 | var
|
---|
23 | AboutForm: TAboutForm;
|
---|
24 |
|
---|
25 | implementation
|
---|
26 |
|
---|
27 | {$R *.dfm}
|
---|
28 |
|
---|
29 | procedure TAboutForm.FormShow(Sender: TObject);
|
---|
30 | begin
|
---|
31 | with Memo1, Lines, ApplicationInfo do begin
|
---|
32 | BeginUpdate;
|
---|
33 | Clear;
|
---|
34 | Add('Název aplikace: ' + Name);
|
---|
35 | Add('Verze: ' + IntToStr(MajorVersion) + '.' +
|
---|
36 | IntToStr(MinorVersion));
|
---|
37 | Add('Datum uvolnìní: ' + ReleaseDate);
|
---|
38 | Add('Firma: ' + CompanyName);
|
---|
39 | Add('Autor: ' + AuthorName);
|
---|
40 | Add('Email: ' + EmailContact);
|
---|
41 | EndUpdate;
|
---|
42 | end;
|
---|
43 | FocusControl(OKButton);
|
---|
44 | end;
|
---|
45 |
|
---|
46 | procedure TAboutForm.OKButtonClick(Sender: TObject);
|
---|
47 | begin
|
---|
48 | Close;
|
---|
49 | end;
|
---|
50 |
|
---|
51 | end.
|
---|
52 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.