source: cprs/branches/tmg-cprs/CPRS-Chart/fSplash.pas@ 737

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.1 KB
Line 
1//kt -- Modified with SourceScanner on 9/5/2007
2unit fSplash;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 ExtCtrls, StdCtrls, DKLang, jpeg;
9
10type
11 TfrmSplash = class(TForm)
12 Panel1: TPanel;
13 lblSplash: TStaticText;
14 lblVersion: TStaticText;
15 lblCopyright: TStaticText;
16 Panel2: TPanel;
17 Image1: TImage;
18 StaticText1: TStaticText;
19 procedure FormCreate(Sender: TObject);
20 private
21 { Private declarations }
22 public
23 { Public declarations }
24 end;
25
26var
27 frmSplash: TfrmSplash;
28
29implementation
30
31{$R *.DFM}
32
33uses ORSystem;
34
35procedure TfrmSplash.FormCreate(Sender: TObject);
36var SplashFile : string;
37begin
38//lblVersion.Caption := 'version ' + <-- original line. //kt 9/5/2007
39 lblVersion.Caption := DKLangConstW('fSplash_version') + //kt added 9/5/2007
40 FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION);
41 SplashFile := ExtractFilePath(ParamStr(0)) + 'splash.jpg'; //kt
42 if FileExists(SplashFile) then begin //kt
43 Image1.Picture.LoadFromFile(SplashFile); //kt
44 end;
45end;
46
47end.
Note: See TracBrowser for help on using the repository browser.