* Extracted procedure that controls the initial selection of the edit…

… field. This should allow deriving classes to adjust this behavior more easily.

Source/VirtualTrees.EditLink.pas

@@ -148,6 +148,8 @@   TStringEditLink = class(TWinControlEditLink)
     FTextBounds : TRect;                      //Smallest rectangle around the text.
     function GetEdit: TVTEdit;                //Getter for the FEdit member;
     procedure SetEdit(const Value : TVTEdit); //Setter for the FEdit member;
+
+    procedure InitializeSelection; virtual;
   public
     constructor Create;
 
@@ -740,6 +742,13 @@ function TStringEditLink.GetEdit: TVTEdit;
 
 //----------------------------------------------------------------------------------------------------------------------
 
+procedure TStringEditLink.InitializeSelection;
+begin
+  Edit.SelectAll;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
 procedure TStringEditLink.SetEdit(const Value : TVTEdit);
 begin
   inherited SetEdit(Value);
@@ -752,7 +761,7 @@ function TStringEditLink.BeginEdit : Boolean;
   Result := inherited;
   if Result then
   begin
-    Edit.SelectAll;
+    InitializeSelection;
     Edit.AutoAdjustSize;
   end;
 end;