source: cprs/branches/foia-cprs/CPRS-Chart/fSplash.pas@ 819

Last change on this file since 819 was 459, checked in by Kevin Toppenberg, 16 years ago

Adding foia-cprs branch

File size: 759 bytes
Line 
1unit fSplash;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 ExtCtrls, StdCtrls;
8
9type
10 TfrmSplash = class(TForm)
11 Panel1: TPanel;
12 lblSplash: TStaticText;
13 lblVersion: TStaticText;
14 lblCopyright: TStaticText;
15 Panel2: TPanel;
16 Image1: TImage;
17 Memo1: TMemo;
18 procedure FormCreate(Sender: TObject);
19 private
20 { Private declarations }
21 public
22 { Public declarations }
23 end;
24
25var
26 frmSplash: TfrmSplash;
27
28implementation
29
30{$R *.DFM}
31
32uses ORSystem;
33
34procedure TfrmSplash.FormCreate(Sender: TObject);
35begin
36 lblVersion.Caption := 'version ' +
37 FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION);
38end;
39
40end.
Note: See TracBrowser for help on using the repository browser.