Changeset 610 for cprs/branches/GUI-config/frmSplash.pas

Timestamp:

Nov 27, 2009, 4:05:03 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Allow user-definable splash.jpg image

File:

• cprs/branches/GUI-config/frmSplash.pas (modified) (2 diffs)

cprs/branches/GUI-config/frmSplash.pas

@@ -35 +35 @@
     Image1: TImage;
     procedure Image1Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
@@ -53 +54 @@
 end;
 
+procedure TSplashForm.FormCreate(Sender: TObject);
+var  FileName : string;
+begin
+  FileName := ExtractFilePath(ParamStr(0))+ 'splash.jpg';
+  if FileExists(FileName) then begin
+    Image1.Picture.LoadFromFile(FileName);
+  end;
+  Self.Width := Image1.Picture.Width;
+  Self.Height := Image1.Picture.Height;
+  Self.Left:=(Screen.Width - Self.Width) div 2;
+  Self.Top := (Screen.Height - Self.Height) div 2;
+end;
+
 end.