source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSplash.pas@ 1706

Last change on this file since 1706 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

File size: 907 bytes
Line 
1unit fSplash;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 ExtCtrls, StdCtrls, fBase508Form, VA508AccessibilityManager;
8
9type
10 TfrmSplash = class(TfrmBase508Form)
11 pnlMain: TPanel;
12 lblVersion: TStaticText;
13 lblCopyright: TStaticText;
14 pnlImage: TPanel;
15 Image1: TImage;
16 Memo1: TMemo;
17 lblSplash: TStaticText;
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 VAUtils;
33
34procedure TfrmSplash.FormCreate(Sender: TObject);
35begin
36 lblVersion.Caption := 'version ' +
37 FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION);
38 lblSplash.Caption := lblSplash.Caption + ' ' + lblVersion.Caption;
39 lblSplash.Invalidate;
40end;
41
42end.
Note: See TracBrowser for help on using the repository browser.