From ec6aecbdc0463c94678e1ce278a52c957134ef30 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 1 May 2010 14:45:14 +0000
Subject: [PATCH] LCL: TTreeView: added OnCreateNodeClass for Delphi
 compatibility

git-svn-id: trunk@25098 -
---
 lcl/comctrls.pp          | 33 ++++++++++++++++++++-------------
 lcl/include/treeview.inc |  9 ++++++++-
 2 files changed, 28 insertions(+), 14 deletions(-)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 86b729f741..12c6b13945 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -1927,6 +1927,7 @@ type
   TCustomTreeView = class;
   TTreeNodes = class;
   TTreeNode = class;
+  TTreeNodeClass = class of TTreeNode;
 
   TNodeState = (nsCut, nsDropHilited, nsFocused, nsSelected, nsMultiSelected,
                 nsExpanded, nsHasChildren, nsInTree, nsDeleting, nsBound);
@@ -1957,30 +1958,33 @@ const
 
 type
   TTVChangingEvent = procedure(Sender: TObject; Node: TTreeNode;
-    var AllowChange: Boolean) of object;
+                               var AllowChange: Boolean) of object;
   TTVChangedEvent = procedure(Sender: TObject; Node: TTreeNode) of object;
   TTVEditingEvent = procedure(Sender: TObject; Node: TTreeNode;
-    var AllowEdit: Boolean) of object;
+                              var AllowEdit: Boolean) of object;
   TTVEditedEvent = procedure(Sender: TObject; Node: TTreeNode;
-    var S: string) of object;
+                             var S: string) of object;
   TTVExpandingEvent = procedure(Sender: TObject; Node: TTreeNode;
-    var AllowExpansion: Boolean) of object;
+                                var AllowExpansion: Boolean) of object;
   TTVCollapsingEvent = procedure(Sender: TObject; Node: TTreeNode;
-    var AllowCollapse: Boolean) of object;
+                                 var AllowCollapse: Boolean) of object;
   TTVExpandedEvent = procedure(Sender: TObject; Node: TTreeNode) of object;
   TTVCompareEvent = procedure(Sender: TObject; Node1, Node2: TTreeNode;
-    var Compare: Integer) of object;
+                              var Compare: Integer) of object;
   TTVCustomDrawEvent = procedure(Sender: TCustomTreeView; const ARect: TRect;
-    var DefaultDraw: Boolean) of object;
+                                 var DefaultDraw: Boolean) of object;
   TTVCustomDrawItemEvent = procedure(Sender: TCustomTreeView; Node: TTreeNode;
-    State: TCustomDrawState; var DefaultDraw: Boolean) of object;
+                   State: TCustomDrawState; var DefaultDraw: Boolean) of object;
   TTVAdvancedCustomDrawEvent = procedure(Sender: TCustomTreeView;
-    const ARect: TRect; Stage: TCustomDrawStage;
-    var DefaultDraw: Boolean) of object;
+                                    const ARect: TRect; Stage: TCustomDrawStage;
+                                    var DefaultDraw: Boolean) of object;
   TTVAdvancedCustomDrawItemEvent = procedure(Sender: TCustomTreeView;
-    Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
-    var PaintImages, DefaultDraw: Boolean) of object;
-  TTVCustomCreateNodeEvent = procedure(Sender: TCustomTreeView; var ATreeNode: TTreenode) of object;
+              Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
+              var PaintImages, DefaultDraw: Boolean) of object;
+  TTVCustomCreateNodeEvent = procedure(Sender: TCustomTreeView;
+                                       var ATreeNode: TTreenode) of object;
+  TTVCreateNodeClassEvent = procedure(Sender: TCustomTreeView;
+                                      var NodeClass: TTreeNodeClass) of object;
 
   TTreeNodeCompare = function(Node1, Node2: TTreeNode): integer of object;
 
@@ -2386,6 +2390,7 @@ type
     FOnCollapsed: TTVExpandedEvent;
     FOnCollapsing: TTVCollapsingEvent;
     FOnCompare: TTVCompareEvent;
+    FOnCreateNodeClass: TTVCreateNodeClassEvent;
     FOnCustomCreateItem: TTVCustomCreateNodeEvent;
     FOnCustomDraw: TTVCustomDrawEvent;
     FOnCustomDrawItem: TTVCustomDrawItemEvent;
@@ -2568,6 +2573,7 @@ type
     property OnCollapsed: TTVExpandedEvent read FOnCollapsed write FOnCollapsed;
     property OnCollapsing: TTVCollapsingEvent read FOnCollapsing write FOnCollapsing;
     property OnCompare: TTVCompareEvent read FOnCompare write FOnCompare;
+    property OnCreateNodeClass: TTVCreateNodeClassEvent read FOnCreateNodeClass write FOnCreateNodeClass;
     property OnCustomCreateItem: TTVCustomCreateNodeEvent read FOnCustomCreateItem write FOnCustomCreateItem;
     property OnCustomDraw: TTVCustomDrawEvent read FOnCustomDraw write FOnCustomDraw;
     property OnCustomDrawItem: TTVCustomDrawItemEvent
@@ -2712,6 +2718,7 @@ type
     property OnCollapsing;
     property OnCompare;
     property OnContextPopup;
+    property OnCreateNodeClass;
     property OnCustomCreateItem;
     property OnCustomDraw;
     property OnCustomDrawItem;
diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index d057819338..0904da2ed0 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -4743,12 +4743,19 @@ begin
 end;
 
 function TCustomTreeView.CreateNode: TTreeNode;
+var
+  NewNodeClass: TTreeNodeClass;
 begin
   Result := nil;
   if Assigned(FOnCustomCreateItem) then
     FOnCustomCreateItem(Self, Result);
   if Result = nil then
-    Result := TTreeNode.Create(Items);
+  begin
+    NewNodeClass:=TTreeNode;
+    if Assigned(OnCreateNodeClass) then
+      OnCreateNodeClass(Self,NewNodeClass);
+    Result := NewNodeClass.Create(Items);
+  end;
 end;
 
 procedure TCustomTreeView.ImageListChange(Sender: TObject);