Module

fSplash

Path

C:\CPRS\CPRS30\fSplash.pas

Last Modified

7/15/2014 3:26:38 PM

Units Used in Interface

Name Comments
fBase508Form -

Classes

Name Comments
TfrmSplash -

Procedures

Name Owner Declaration Scope Comments
FormCreate TfrmSplash procedure FormCreate(Sender: TObject); Public/Published -

Global Variables

Name Type Declaration Comments
frmSplash TfrmSplash frmSplash: TfrmSplash; -


Module Source

1     unit fSplash;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       ExtCtrls, StdCtrls, fBase508Form, VA508AccessibilityManager;
8     
9     type
10      TfrmSplash = class(TfrmBase508Form)
11        pnlMain: TPanel;
12        lblVersion: TStaticText;
13        lblCopyright: TStaticText;
14        pnlImage: TPanel;
15        Image1: TImage;
16        lblSplash: TStaticText;
17        pnl508Disclaimer: TPanel;
18        Memo1: TMemo;
19        procedure FormCreate(Sender: TObject);
20      private
21        { Private declarations }
22      public
23        { Public declarations }
24      end;
25    
26    var
27      frmSplash: TfrmSplash;
28    
29    implementation
30    
31    {$R *.DFM}
32    
33    uses VAUtils;
34    
35    procedure TfrmSplash.FormCreate(Sender: TObject);
36    begin
37      lblVersion.Caption := 'version ' +
38                            FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION);
39      lblSplash.Caption := lblSplash.Caption + ' ' + lblVersion.Caption;
40      lblSplash.Invalidate;
41    end;
42    
43    end.

Module Calls (2 levels)


fSplash
 └fBase508Form
   ├uConst
   └uHelpManager

Module Called-By (2 levels)


    fSplash
CPRSChart┘