Changeset 830 for cprs/trunk/CPRS-Chart/fSplash.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fSplash.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/fSplash.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  ExtCtrls, StdCtrls;
+  ExtCtrls, StdCtrls, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmSplash = class(TForm)
-    Panel1: TPanel;
-    lblSplash: TStaticText;
+  TfrmSplash = class(TfrmBase508Form)
+    pnlMain: TPanel;
     lblVersion: TStaticText;
     lblCopyright: TStaticText;
-    Panel2: TPanel;
+    pnlImage: TPanel;
     Image1: TImage;
     Memo1: TMemo;
+    lblSplash: TStaticText;
     procedure FormCreate(Sender: TObject);
   private
@@ -30 +30 @@
 {$R *.DFM}
 
-uses ORSystem;
+uses VAUtils;
 
 procedure TfrmSplash.FormCreate(Sender: TObject);
@@ -36 +36 @@
   lblVersion.Caption := 'version ' +
                         FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION);
+  lblSplash.Caption := lblSplash.Caption + ' ' + lblVersion.Caption;
+  lblSplash.Invalidate;
 end;