Changeset 416

Timestamp:

Feb 24, 2019, 8:04:01 PM (6 years ago)

Author:

ataylor

Message:

(ConfigApps) Centre window on startup.

File:

• trunk/ConfigApps/MainFormUnit.pas (modified) (1 diff)

trunk/ConfigApps/MainFormUnit.pas

@@ -347 +347 @@
   LoadCurrentSettings;
 
+  if Width > Screen.Width then
+    Width := Screen.Width;
+  if Height > Screen.Height then
+    Height := Screen.Height;
+  Left := ( Screen.Width - Width ) div 2;
+  Bottom := ( Screen.Height - Height ) div 2;
+
 end;