- Made AdvancedDemo compatible with Delphi 2009+

Author: [email protected]

Demos/Advanced/AlignDemo.dfm

@@ -50,7 +50,7 @@   TAlignForm = class(TForm)
     procedure AlignTreeGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
       var Ghosted: Boolean; var Index: Integer);
     procedure AlignTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
-      var CellText: WideString);
+      var CellText: UnicodeString);
     procedure AlignTreePaintText(Sender: TBaseVirtualTree; const Canvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
       TextType: TVSTTextType);
     procedure AlignTreeGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
@@ -101,7 +101,7 @@ implementation
   TAlignData = record
     MainColumnText,
     GreekText,
-    RTLText: WideString;
+    RTLText: UnicodeString;
     ImageIndex: Integer;
   end;
 
@@ -110,9 +110,9 @@   TAlignData = record
 // Additionally, some greek text for another column is stored here too just because I like how it looks (the text,
 // not the storage ;-)).
 var
-  GreekStrings: array[0..8] of WideString;
-  ArabicStrings: array[0..3] of WideString;
-  HebrewStrings: array[0..2] of WideString;
+  GreekStrings: array[0..8] of UnicodeString;
+  ArabicStrings: array[0..3] of UnicodeString;
+  HebrewStrings: array[0..2] of UnicodeString;
 
 //----------------------------------------------------------------------------------------------------------------------
 
@@ -173,7 +173,7 @@ procedure TAlignForm.AlignTreePaintText(Sender: TBaseVirtualTree; const Canvas:
 //----------------------------------------------------------------------------------------------------------------------
 
 procedure TAlignForm.AlignTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
-  TextType: TVSTTextType; var CellText: WideString);
+  TextType: TVSTTextType; var CellText: UnicodeString);
 
 var
   Data: PAlignData;

Demos/Advanced/AlignDemo.pas

@@ -65,7 +65,7 @@   TDrawTreeForm = class(TForm)
     FDriveStrings: string;
     function CanDisplay(const Name: String): Boolean;
     function GetDriveString(Index: Integer): string;
-    function ReadAttributes(const Name: WideString): Cardinal;
+    function ReadAttributes(const Name: UnicodeString): Cardinal;
     procedure RescaleImage(Source, Target: TBitmap);
   end;
 
@@ -89,12 +89,12 @@ implementation
   PShellObjectData = ^TShellObjectData;
   TShellObjectData = record
     FullPath,
-    Display: WideString;
+    Display: UnicodeString;
     Attributes: Cardinal;
     OpenIndex,
     CloseIndex: Integer;      // image indices into the system image list
     Image: TBitmap;
-    Properties: WideString;   // some image properties, preformatted
+    Properties: UnicodeString;   // some image properties, preformatted
   end;
 
 //----------------- utility functions ----------------------------------------------------------------------------------
@@ -260,7 +260,7 @@ function TDrawTreeForm.GetDriveString(Index: Integer): string;
 
 //----------------------------------------------------------------------------------------------------------------------
 
-function TDrawTreeForm.ReadAttributes(const Name: WideString): Cardinal;
+function TDrawTreeForm.ReadAttributes(const Name: UnicodeString): Cardinal;
 
 // Determines the attributes of the given shell object (file, folder).
 
@@ -422,7 +422,7 @@ procedure TDrawTreeForm.VDT1DrawNode(Sender: TBaseVirtualTree; const PaintInfo:
 var
   Data: PShellObjectData;
   X: Integer;
-  S: WideString;
+  S: UnicodeString;
   R: TRect;
 
 begin   

Demos/Advanced/DrawTreeDemo.dfm

@@ -29,7 +29,7 @@ interface
   PPropertyData = ^TPropertyData;
   TPropertyData = record
     ValueType: TValueType;
-    Value: WideString;      // This value can actually be a date or a number too.
+    Value: UnicodeString;      // This value can actually be a date or a number too.
     Changed: Boolean;
   end;
 
@@ -270,7 +270,7 @@ function TPropertyEditLink.EndEdit: Boolean;
 var
   Data: PPropertyData;
   Buffer: array[0..1024] of Char;
-  S: WideString;
+  S: UnicodeString;
 
 begin
   Result := True;
@@ -433,7 +433,7 @@ function TGridEditLink.EndEdit: Boolean;
 var
   Data: PGridData;
   Buffer: array[0..1024] of Char;
-  S: WideString;
+  S: UnicodeString;
   I: Integer;
 
 begin

Demos/Advanced/DrawTreeDemo.pas

@@ -56,9 +56,9 @@   TGeneralForm = class(TForm)
     procedure VST2InitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
       var InitialStates: TVirtualNodeInitStates);
     procedure VST2InitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode; var ChildCount: Cardinal);
-    procedure VST2NewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; Text: WideString);
+    procedure VST2NewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; Text: UnicodeString);
     procedure VST2GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
-      var CellText: WideString);
+      var CellText: UnicodeString);
     procedure VST2PaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
       TextType: TVSTTextType);
     procedure VST2GetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
@@ -107,7 +107,7 @@ implementation
   TNodeData2 = record
     Caption,
     StaticText,
-    ForeignText: WideString;
+    ForeignText: UnicodeString;
     ImageIndex,
     Level: Integer;
   end;
@@ -184,7 +184,7 @@ procedure TGeneralForm.VST2PaintText(Sender: TBaseVirtualTree; const TargetCanva
 //----------------------------------------------------------------------------------------------------------------------
 
 procedure TGeneralForm.VST2GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
-  TextType: TVSTTextType; var CellText: WideString);
+  TextType: TVSTTextType; var CellText: UnicodeString);
 
 // Returns the text as it is stored in the nodes data record.
 
@@ -327,7 +327,7 @@ procedure TGeneralForm.VST2InitChildren(Sender: TBaseVirtualTree; Node: PVirtual
 //----------------------------------------------------------------------------------------------------------------------
 
 procedure TGeneralForm.VST2NewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
-  Text: WideString);
+  Text: UnicodeString);
 
 // The caption of a node has been changed, keep this in the node record.
 
@@ -483,7 +483,7 @@ procedure TGeneralForm.SaveButtonClick(Sender: TObject);
 
 var
   S: string;
-  WS: WideString;
+  WS: UnicodeString;
   Data: Pointer;
   DataSize: Cardinal;
   TargetName: string;

Demos/Advanced/Editors.pas

@@ -28,7 +28,7 @@   TGridForm = class(TForm)
     procedure VST5FocusChanging(Sender: TBaseVirtualTree; OldNode, NewNode: PVirtualNode; OldColumn,
       NewColumn: TColumnIndex; var Allowed: Boolean);
     procedure VST5GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
-      var CellText: WideString);
+      var CellText: UnicodeString);
     procedure VST5InitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
       var InitialStates: TVirtualNodeInitStates);
     procedure VST5PaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode;
@@ -123,7 +123,7 @@ procedure TGridForm.VST5InitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVi
 //----------------------------------------------------------------------------------------------------------------------
 
 procedure TGridForm.VST5GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
-  TextType: TVSTTextType; var CellText: WideString);
+  TextType: TVSTTextType; var CellText: UnicodeString);
 
 var
   Data: PGridData;