From b4ff3cb583a4f5af126bb673f865e14221dd364c Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 16 Dec 2009 03:19:41 +0000
Subject: [PATCH] * Partially revert 1063

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1067 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview-new/trunk/VirtualTrees.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas
index 62f557b42..b7cc628bd 100644
--- a/components/virtualtreeview-new/trunk/VirtualTrees.pas
+++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas
@@ -923,7 +923,7 @@ type
   private
     FTree: TBaseVirtualTree;
     FFormatEtcArray: TFormatEtcArray;
-    FCurrentIndex: LongWord;
+    FCurrentIndex: Integer;
   public
     constructor Create(Tree: TBaseVirtualTree; AFormatEtcArray: TFormatEtcArray);
 
@@ -21853,7 +21853,7 @@ begin
       if ([vsSelected, vsDisabled] * NewItems[I].States <> []) or
          (Constrained and (Cardinal(FLastSelectionLevel) <> GetNodeLevel(NewItems[I]))) or
          (SiblingConstrained and (FRangeAnchor.Parent <> NewItems[I].Parent)) then
-        Inc(NewItems[I])
+        Inc(PtrUInt(NewItems[I]))
       else
         Include(NewItems[I].States, vsSelected);
   end;
@@ -22239,7 +22239,7 @@ begin
   if FindNodeInSelection(Node, Index, -1, -1) then
   begin
     Exclude(Node.States, vsSelected);
-    Inc(FSelection[Index]);
+    Inc(PtrUInt(FSelection[Index]));
   end;
 end;