Made project compile again.

Author: Joachim Marder

Demos/Objects/MVCTypes.pas

@@ -214,7 +214,7 @@      TMVCTreeView=class(TBaseVirtualTree)
            details on what they do and why they are overridden. }
          function DoGetNodeWidth(Node: PVirtualNode; Column: TColumnIndex; Canvas: TCanvas = nil): Integer; override;
          procedure DoPaintNode(var PaintInfo: TVTPaintInfo); override;
-         procedure DoInitChildren(Node:PVirtualNode;var ChildCount:Cardinal); override;
+         function DoInitChildren(Node: PVirtualNode; var ChildCount: Cardinal): Boolean; override;
          procedure DoInitNode(aParent,aNode:PVirtualNode;
                               var aInitStates:TVirtualNodeInitStates); override;
          procedure DoFreeNode(aNode:PVirtualNode); override;
@@ -727,10 +727,11 @@ procedure TMVCTreeView.DoFreeNode(aNode:PVirtualNode);
   inherited DoFreeNode(aNode);
 end;
 
-procedure TMVCTreeView.DoInitChildren(Node:PVirtualNode;var ChildCount:Cardinal);
+function TMVCTreeView.DoInitChildren(Node: PVirtualNode; var ChildCount: Cardinal): Boolean;
 begin
   inherited DoInitChildren(Node,ChildCount);
   ChildCount:=MVCNode[Node].ChildCount;
+  Result := True;
 end;
 
 procedure TMVCTreeView.DoInitNode(aParent,aNode:PVirtualNode;