Fixed issue #661: Minimal Demo 2 different problems, can't select pro…

…perly on start up, multiple clicks causes error

* DFM file had rootnodecound initialized whereas FormCreate was setting it. Removed from DFM to solve first problem.
* OnStartDrag event didn't ahve any purpose in this minimal demo. Suspected and removed. Problem is no longer occuring.

CHANGES.txt

@@ -1,3 +1,6 @@
+V6.41: (under developement)
+  * Fixed #661: Minimal Demo 2 different problems, can't select on start up, multiple clicks causes error
+
 V6.4: (28 Sep 2016)
   * Fixed #622: [BREAKING CHANGE] Removed all 16x16 fixed sized checkbox-imagelists. 
     The property CheckImageKind supports the values ckSystemDefault and ckCustom only and should be considered deprecated.

Demos/Minimal/Main.dfm

@@ -48,7 +48,6 @@ object MainForm: TMainForm
     HintAnimation = hatNone
     IncrementalSearch = isAll
     ParentBiDiMode = False
-    RootNodeCount = 100
     TabOrder = 0
     TreeOptions.AnimationOptions = [toAnimatedToggle]
     TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking]
@@ -57,7 +56,6 @@ object MainForm: TMainForm
     TreeOptions.SelectionOptions = [toMultiSelect, toCenterScrollIntoView]
     OnFreeNode = VSTFreeNode
     OnInitNode = VSTInitNode
-    OnStartDrag = VSTStartDrag
     Columns = <>
   end
   object ClearButton: TButton

Demos/Minimal/Main.pas

@@ -27,7 +27,6 @@   TMainForm = class(TForm)
     procedure VSTInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
       var InitialStates: TVirtualNodeInitStates);
     procedure CloseButtonClick(Sender: TObject);
-    procedure VSTStartDrag(Sender: TObject; var DragObject: TDragObject);
   end;
 
 var
@@ -175,15 +174,6 @@ procedure TMainForm.CloseButtonClick(Sender: TObject);
   Close;
 end;
 
-//----------------------------------------------------------------------------------------------------------------------
-
-procedure TMainForm.VSTStartDrag(Sender: TObject; var DragObject: TDragObject);
-
-begin
-  DragObject := TDragObject.Create;
-end;
-
-//----------------------------------------------------------------------------------------------------------------------
 
 end.