Changeset 710 for trunk/Packages/DpiControls/Dpi.StdCtrls.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

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;