1unit AboutForm;
 2
 3interface
 4
 5uses
 6  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,
 7  Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.BaseImageCollection, Vcl.ImageCollection,
 8  System.ImageList, Vcl.ImgList, Vcl.VirtualImageList, Vcl.Buttons;
 9
10type
11  TfrmAbout = class(TForm)
12    pnlCopyright: TPanel;
13    pnlCaption: TPanel;
14    Image1: TImage;
15    btnOk: TButton;
16    procedure FormCreate(Sender: TObject);
17  private
18    { Private declarations }
19  public
20    { Public declarations }
21    function Execute: TModalResult;
22  end;
23
24var
25  frmAbout: TfrmAbout;
26
27implementation
28
29uses
30  TL.Components;
31
32{$R *.dfm}
33
34procedure TfrmAbout.FormCreate(Sender: TObject);
35begin
36  Self.pnlCaption.Caption:= 'Financiële Administratie - ' + TL.Components.Folder.AppVersion;
37end;
38
39function TfrmAbout.Execute: TModalResult;
40begin
41  frmAbout:= TfrmAbout.Create(nil);
42  try
43    Result:= frmAbout.Showmodal;
44  finally
45    frmAbout.Free;
46  end;
47end;
48
49end.
50