Fixed incompatible event signature

Fixed incompatible event signature

Author: chuacw

Demos/Advanced/MultilineDemo.pas

@@ -8,7 +8,8 @@ interface
 
 uses
   Windows, SysUtils, Classes, Forms, Controls, Graphics, VirtualTrees,
-  ExtCtrls, StdCtrls, ImgList, VirtualTrees.Types;
+  ExtCtrls, StdCtrls, ImgList, VirtualTrees.Types, VirtualTrees.BaseAncestorVCL,
+  VirtualTrees.BaseTree, VirtualTrees.AncestorVCL;
 
 type
   TNodeForm = class(TForm)
@@ -26,7 +27,7 @@   TNodeForm = class(TForm)
     procedure MLTreeEditing(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
     procedure MLTreeStateChange(Sender: TBaseVirtualTree; Enter, Leave: TVirtualTreeStates);
     procedure MLTreeMeasureItem(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
-      var NodeHeight: Integer);
+      var NodeHeight: TDimension);
     procedure AutoAdjustCheckBoxClick(Sender: TObject);
   end;
 
@@ -128,8 +129,8 @@ procedure TNodeForm.MLTreeStateChange(Sender: TBaseVirtualTree; Enter, Leave: TV
 
 //----------------------------------------------------------------------------------------------------------------------
 
-procedure TNodeForm.MLTreeMeasureItem(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
-  var NodeHeight: Integer);
+procedure TNodeForm.MLTreeMeasureItem(Sender: TBaseVirtualTree; TargetCanvas:
+    TCanvas; Node: PVirtualNode; var NodeHeight: TDimension);
 
 begin
   if Sender.MultiLine[Node] then