Changeset 468 for trunk/Back.pas

Timestamp:

Dec 3, 2023, 11:28:08 AM (5 months ago)

Author:

chronos

Message:

• Added: High DPI support integrated into trunk branch. It can be enabled by adding DPI define to compiler parameters for main project and packages.

File:

• trunk/Back.pas (modified) (4 diffs)

trunk/Back.pas

@@ -5 +5 @@
 
 uses
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Forms, Controls;
+  LCLIntf, LCLType, SysUtils, Classes,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Forms, Dpi.Controls{$ELSE}
+  Graphics, Forms, Controls{$ENDIF};
 
 type
@@ -25 +27 @@
 var
   Background: TBackground;
+
 
 implementation
@@ -65 +68 @@
 begin
   if FullScreen then begin
-    WindowState := wsFullScreen;
+    WindowState := TWindowState.wsFullScreen;
     if not Assigned(Img) then begin
       FileName := GetGraphicsDir + DirectorySeparator + 'Background.png';
@@ -75 +78 @@
     end;
   end else begin
-    if WindowState <> wsMaximized then begin
-      WindowState := wsNormal;
-      WindowState := wsFullScreen;
+    if WindowState <> TWindowState.wsMaximized then begin
+      WindowState := TWindowState.wsNormal;
+      WindowState := TWindowState.wsFullScreen;
     end;
-    WindowState := wsNormal;
+    WindowState := TWindowState.wsNormal;
     BoundsRect := Bounds(StartDlg.Left - 8, StartDlg.Top - 8,
       StartDlg.Width + 16, StartDlg.Height + 16);