Changeset 629 for trunk/Packages

Timestamp:

Oct 4, 2024, 2:55:11 PM (7 weeks ago)

Author:

chronos

Message:

• Fixed: Log and AI turnament windows were not shown correctly.

File:

• trunk/Packages/DpiControls/Dpi.Forms.pas (modified) (5 diffs)

trunk/Packages/DpiControls/Dpi.Forms.pas

@@ -86 +86 @@
     function GetRestoredTop: Integer;
     function GetRestoredWidth: Integer;
+    function GetScaled: Boolean;
     function GetShowInTaskbar: TShowInTaskbar;
     function GetWindowState: TWindowState;
@@ -104 +105 @@
     procedure FormMessageHandler(var TheMessage: TLMessage);
     procedure SetPosition(AValue: TPosition);
+    procedure SetScaled(AValue: Boolean);
     procedure SetShowInTaskBar(AValue: TShowInTaskbar);
     procedure SetWindowState(AValue: TWindowState);
@@ -159 +161 @@
     property ShowInTaskBar: TShowInTaskbar read GetShowInTaskbar write SetShowInTaskBar
                                         default stDefault;
+    property Scaled: Boolean read GetScaled write SetScaled default True;
   end;
 
@@ -624 +627 @@
 end;
 
+function TForm.GetScaled: Boolean;
+begin
+  Result := GetNativeForm.Scaled;
+end;
+
 function TForm.GetShowInTaskbar: TShowInTaskbar;
 begin
@@ -713 +721 @@
 begin
   GetNativeForm.Position := AValue;
+end;
+
+procedure TForm.SetScaled(AValue: Boolean);
+begin
+  GetNativeForm.Scaled := AValue;
 end;