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

//kt -- Modified with SourceScanner on 9/5/2007
unit fSplash;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, DKLang, jpeg;

type
  TfrmSplash = class(TForm)
    Panel1: TPanel;
    lblSplash: TStaticText;
    lblVersion: TStaticText;
    lblCopyright: TStaticText;
    Panel2: TPanel;
    Image1: TImage;
    StaticText1: TStaticText;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSplash: TfrmSplash;

implementation

{$R *.DFM}

uses ORSystem;

procedure TfrmSplash.FormCreate(Sender: TObject);
var SplashFile : string;
begin
//lblVersion.Caption := 'version ' +  <-- original line.  //kt 9/5/2007
  lblVersion.Caption := DKLangConstW('fSplash_version') + //kt added 9/5/2007
                        FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION);
  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
  end;
end;

end.