Changeset 793 for cprs/branches/tmg-cprs/CPRS-Chart/fSplash.pas

Timestamp:

Jun 10, 2010, 3:13:12 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

update

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fSplash.pas (modified) (1 diff)

cprs/branches/tmg-cprs/CPRS-Chart/fSplash.pas

@@ -39 +39 @@
   lblVersion.Caption := DKLangConstW('fSplash_version') + //kt added 9/5/2007
                         FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION);
-  SplashFile := ExtractFilePath(ParamStr(0)) + 'splash.jpg';  //kt
+  SplashFile := Trim(ParamSearch('SPLASH'));   //elh
+  if SplashFile <> '' then begin                //elh
+    if ExtractFilePath(SplashFile) = '' then begin  //elh    FileName instead of path
+      SplashFile := ExtractFilePath(ParamStr(0)) + SplashFile;  //kt
+    end;
+  end else begin
+    SplashFile := ExtractFilePath(ParamStr(0)) + 'splash.jpg';  //kt
+  end;
   if FileExists(SplashFile) then begin          //kt
     Image1.Picture.LoadFromFile(SplashFile);    //kt