Fixes incompatible event signature

Fixes incompatible event signature, missing unit scopes
and change file format from ANSI to UTF8

Author: chuacw

Demos/Advanced/GeneralAbilitiesDemo.pas

@@ -1,4 +1,4 @@
-unit GeneralAbilitiesDemo;
+unit GeneralAbilitiesDemo;
 
 // Virtual Treeview sample form demonstrating following features:
 //   - General use and feel of TVirtualStringTree.
@@ -25,10 +25,12 @@ interface
 {$ifend}
 
 uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, Buttons, VirtualTrees, ComCtrls, ExtCtrls, ImgList, Menus,
-  StdActns, ActnList, VirtualTrees.HeaderPopup, UITypes, System.ImageList, VirtualTrees.BaseTree,
-  VirtualTrees.Types, VirtualTrees.BaseAncestorVCL, VirtualTrees.AncestorVCL;
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, VirtualTrees,
+  Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.ImgList, Vcl.Menus, Vcl.StdActns, Vcl.ActnList,
+  VirtualTrees.HeaderPopup, System.UITypes, System.ImageList,
+  VirtualTrees.BaseTree, VirtualTrees.Types, VirtualTrees.BaseAncestorVCL,
+  VirtualTrees.AncestorVCL;
 
 type
   TGeneralForm = class(TForm)
@@ -259,7 +261,7 @@ procedure TGeneralForm.VST2InitNode(Sender: TBaseVirtualTree; ParentNode, Node:
       4:
         begin
           ForeignText := WideChar($20AC);
-          ForeignText := 'nichts ist unmöglich ' + ForeignText;
+          ForeignText := 'nichts ist unmöglich ' + ForeignText;
         end;
       5:
         begin

Demos/Advanced/GridDemo.pas

@@ -10,8 +10,9 @@
 interface
 
 uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, VirtualTrees, ImgList, Menus, System.ImageList, VirtualTrees.BaseTree, VirtualTrees.Types,
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, VirtualTrees,
+  Vcl.ImgList, Vcl.Menus, System.ImageList, VirtualTrees.BaseTree, VirtualTrees.Types,
   VirtualTrees.BaseAncestorVCL, VirtualTrees.AncestorVCL;
 
 type
@@ -48,7 +49,7 @@   TGridForm = class(TForm)
     procedure AutoSpanCheckBoxClick(Sender: TObject);
     procedure DisplayFullNameCheckBoxClick(Sender: TObject);
     procedure VST5ColumnHeaderSpanning(Sender: TVTHeader; Column: TColumnIndex;
-      var Count: Cardinal);
+      var Count: Integer);
   end;
 
 var
@@ -190,7 +191,7 @@ procedure TGridForm.VST5BeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas:
 
 //----------------------------------------------------------------------------------------------------------------------
 
-procedure TGridForm.VST5ColumnHeaderSpanning(Sender: TVTHeader; Column: TColumnIndex; var Count: Cardinal);
+procedure TGridForm.VST5ColumnHeaderSpanning(Sender: TVTHeader; Column: TColumnIndex; var Count: Integer);
 begin
   case Column of
     2: