From 1ca31d8e2bdf5279e961aa23fa84d23488f46e62 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 22 May 2016 21:50:36 +0000
Subject: [PATCH] *Remove unused vars

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4662 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../virtualtreeview-new/branches/4.8/VirtualTrees.pas | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
index 3ad4fa7e0..b2ec40c4b 100644
--- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
+++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
@@ -13284,7 +13284,7 @@ var
   Size: TSize;
   {$ifdef ThemeSupport}
     //Theme: HTHEME;
-    R: TRect;
+    //R: TRect;
  
 const
   TVP_HOTGLYPH = 4;
@@ -15374,8 +15374,10 @@ procedure TBaseVirtualTree.WMContextMenu(var Message: TLMContextMenu);
 // This method is called when a popup menu is about to be displayed.
 // We have to cancel some pending states here to avoid interferences.
 //lcl: handle mouse up here because MouseUp is not called when popup is show
+{$ifdef ContextMenuBeforeMouseUp}
 var
   HitInfo: THitInfo;
+{$endif}
 
 begin
   {$ifdef DEBUG_VTV}Logger.EnterMethod([lcMessages],'WMContextMenu');{$endif}
@@ -15584,11 +15586,9 @@ var
   ParentControl: TWinControl;
   R: TRect;
   NewCheckState: TCheckState;
-  TempColumn,
   NewColumn: TColumnIndex;
   ActAsGrid: Boolean;
   ForceSelection: Boolean;
-  NewWidth,
   NewHeight: Integer;
   RTLFactor: Integer;
 
@@ -22725,7 +22725,7 @@ var
   FocusRect,
   InnerRect: TRect;
   {$ifdef ThemeSupport}
-    RowRect: TRect;
+    //RowRect: TRect;
     //Theme: HTHEME;
   {$endif ThemeSupport}
 
@@ -31808,7 +31808,6 @@ var
 
   RenderColumns: Boolean;
   Columns: TColumnsArray;
-  ColumnColors: array of String;
   Index: Integer;
   IndentWidth,
   LineStyleText: String;
@@ -31888,12 +31887,10 @@ begin
     Buffer.AddNewLine;
 
     Columns := nil;
-    ColumnColors := nil;
     RenderColumns := FHeader.UseColumns;
     if RenderColumns then
     begin
       Columns := FHeader.FColumns.GetVisibleColumns;
-      SetLength(ColumnColors, Length(Columns));
     end;
 
     GetRenderStartValues(Source, Run, GetNextNode);