Changeset 629 for trunk

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

• Database.pas (modified) (1 diff)
• Log.lfm (modified) (1 diff)
• NoTerm.lfm (modified) (1 prop) ( previous)
• Packages/DpiControls/Dpi.Forms.pas (modified) (5 diffs)

trunk/Database.pas

@@ -7 +7 @@
 
 uses
-  SysUtils, Protocol, CmdList, Map;
+  SysUtils, Protocol, CmdList;
 
 const

trunk/Log.lfm

@@ -1 +1 @@
 object LogDlg: TLogDlg
   Left = 256
+  Width = 339
   Top = 187
+  Height = 280
   BorderIcons = [biSystemMenu]
   Caption = 'Log'

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;