Changeset 717 for branches/zoom/Packages/DpiControls

Timestamp:

Jan 10, 2026, 12:15:35 PM (4 weeks ago)

Author:

chronos

Message:

Merged revision(s) 705-716 from trunk:

• Fixed: Subversion properties.
• Fixed: Better start screen location calculation for lower than 800x600 resolutions to make visible entire window.
• Fixed: Memory overflow in minimap drawing with some higher DPI settings.
• Fixed: Crashes with mini map drawing in Start screen with some DPI resolutions.
• Added: Enter key confirms battle dialog window.
• Fixed: Potential battle dialog drawing issue.
• Modified: Code cleanup.
• Fixed: Disable auto selection of input text in message dialog.
• Fixed: Edit boxes to have black background and blue selection.
• Fixed: Automatically create Saved and Maps user data directories if they don't exist yet.
• Modified: Code cleanup.
• Fixed: Wrong unit models opened after click on Military report foreign units.
• Modified: Do not store .png file extension in graphics names in book files. This is for compatibility with older C-evo versions.
• Fixed: Support both books with graphics name with and without .png file extensions.

Location:

branches/zoom

Files:

• . (modified) (1 prop)
• Packages/DpiControls/Dpi.StdCtrls.pas (modified) (4 diffs)

branches/zoom/Packages/DpiControls/Dpi.StdCtrls.pas

@@ -38 +38 @@
   TEdit = class(TWinControl)
   private
+    function GetAutoSelect: Boolean;
     function GetSelLength: Integer;
     function GetSelStart: Integer;
+    procedure SetAutoSelect(AValue: Boolean);
     procedure SetSelLength(AValue: Integer);
     procedure SetSelStart(AValue: Integer);
@@ -56 +58 @@
     property BorderStyle default bsSingle;
     property ParentFont;
+    property AutoSelect: Boolean read GetAutoSelect write SetAutoSelect default True;
   end;
 
@@ -303 +306 @@
 end;
 
+function TEdit.GetAutoSelect: Boolean;
+begin
+  Result := GetNativeEdit.AutoSelect;
+end;
+
 function TEdit.GetSelLength: Integer;
 begin
@@ -311 +319 @@
 begin
   Result := GetNativeEdit.SelStart;
+end;
+
+procedure TEdit.SetAutoSelect(AValue: Boolean);
+begin
+  GetNativeEdit.AutoSelect := AValue;
 end;