Changeset 246 for branches/highdpi/Back.pas

Timestamp:

May 21, 2020, 8:17:38 PM (4 years ago)

Author:

chronos

Message:

• Modified: Update from trunk rev 245.
• Modified: Vcl prefix/suffix changed to Native.

File:

• branches/highdpi/Back.pas (modified) (2 diffs)

branches/highdpi/Back.pas

@@ -65 +65 @@
 begin
   if FullScreen then begin
-    WindowState := wsMaximized;
+    WindowState := wsFullScreen;
     if not Assigned(Img) then begin
       FileName := GetGraphicsDir + DirectorySeparator + 'Background.png';
@@ -75 +75 @@
   end else begin
     WindowState := wsNormal;
-    Width := StartDlg.Width + 16;
-    Height := StartDlg.Height + 16;
-    Left := StartDlg.Left - 8;
-    Top := StartDlg.Top - 8;
+    BoundsRect := Bounds(StartDlg.Left - 8, StartDlg.Top - 8,
+      StartDlg.Width + 16, StartDlg.Height + 16);
   end;
 end;