Changeset 710

Timestamp:

Nov 28, 2025, 10:08:56 PM (3 hours ago)

Author:

chronos

Message:

• Fixed: Disable auto selection of input text in message dialog.

Location:

trunk

Files:

• LocalPlayer/MessgEx.pas (modified) (1 diff)
• Packages/DpiControls/Dpi.StdCtrls.pas (modified) (4 diffs)

trunk/LocalPlayer/MessgEx.pas

@@ -77 +77 @@
   CenterTo := 0;
   OpenSound := '';
+  EInput.AutoSelect := False;
 end;
 

trunk/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;