Changeset 611 for cprs/branches/GUI-config/AboutU.pas

Timestamp:

Nov 27, 2009, 4:58:08 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Allow user-definable splash.jpg image

File:

• cprs/branches/GUI-config/AboutU.pas (modified) (1 diff)

cprs/branches/GUI-config/AboutU.pas

@@ -97 +97 @@
 
   procedure TAboutForm.FormShow(Sender: TObject);
+  var  FileName : string;
   begin
+    FileName := ExtractFilePath(ParamStr(0))+ 'splash.jpg';
+    if FileExists(FileName) then begin
+      Image1.Picture.LoadFromFile(FileName);
+    end;
+    Image1.Width := Image1.Picture.Width;
+    Image1.Height := Image1.Picture.Height;
+    Self.Width := Image1.Picture.Width;
+    Self.Height := Image1.Picture.Height + Memo1.Height + 35;  //not sure why 35 extra needed...
+    Self.Left:=(Screen.Width - Self.Width) div 2;
+    Self.Top := (Screen.Height - Self.Height) div 2;
     MainForm.Hide;
+
     Timer1.Enabled := true;
     FadeIn := true;