From d420a2d54241032f6e7b2a2029c4d1ed72bcc59e Mon Sep 17 00:00:00 2001
From: christian_u <christian_u@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 29 Jul 2007 16:50:48 +0000
Subject: [PATCH] corrected compilation with latest versions

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@230 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview/virtualstringtree.pas |  2 +-
 components/virtualtreeview/virtualtrees.pas      | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/components/virtualtreeview/virtualstringtree.pas b/components/virtualtreeview/virtualstringtree.pas
index d067d52d9..356421cd6 100644
--- a/components/virtualtreeview/virtualstringtree.pas
+++ b/components/virtualtreeview/virtualstringtree.pas
@@ -1570,7 +1570,7 @@ var
   R: TRect;
   S: WideString;
   DrawFormat: Cardinal;
-  BidiMode: TBidiMode;
+  xxBidiMode: TBidiMode;
 //  xAlignment: TAlignment;
   PaintInfo: TVTPaintInfo;
   Dummy: TColumnIndex;
diff --git a/components/virtualtreeview/virtualtrees.pas b/components/virtualtreeview/virtualtrees.pas
index 0a490053c..2046d13c7 100644
--- a/components/virtualtreeview/virtualtrees.pas
+++ b/components/virtualtreeview/virtualtrees.pas
@@ -1693,7 +1693,7 @@ type
     FOnCompareNodes: TVTCompareEvent;            // used during sort
 
     procedure AdjustCoordinatesByIndent(var PaintInfo: TVTPaintInfo; Indent: Integer);
-    procedure AdjustImageBorder(Images: TCustomImageList; BidiMode: TBidiMode; VAlign: Integer; var R: TRect;
+    procedure AdjustImageBorder(Images: TCustomImageList; xBidiMode: TBidiMode; VAlign: Integer; var R: TRect;
       var ImageInfo: TVTImageInfo);
     procedure AdjustTotalCount(Node: PVirtualNode; Value: Integer; relative: Boolean = False);
     procedure AdjustTotalHeight(Node: PVirtualNode; Value: Integer; relative: Boolean = False);
@@ -2006,7 +2006,7 @@ type
     procedure PaintImage(const PaintInfo: TVTPaintInfo; ImageInfoIndex: TVTImageInfoIndex; Images: TCustomImageList;
       DoOverlay: Boolean); virtual;
     procedure PaintNodeButton(xCanvas: TCanvas; Node: PVirtualNode; const R: TRect; ButtonX, ButtonY: Integer;
-      BidiMode: TBiDiMode); virtual;
+      xBidiMode: TBiDiMode); virtual;
     procedure PaintTreeLines(const PaintInfo: TVTPaintInfo; VAlignment, IndentSize: Integer;
       LineImage: TLineImage); virtual;
     procedure PaintSelectionRectangle(Target: TCanvas; WindowOrgX: Integer; const SelectionRect: TRect;
@@ -3096,7 +3096,7 @@ begin
     // Note: vertical alignment does only work with single line text ouput!
     TextPosY := (lpRect.Top + lpRect.Bottom - TextHeight) div 2;
   end;
-  SetTextAlign(DC, TextAlign);
+//  SetTextAlign(DC, TextAlign);
   if uFormat and DT_SINGLELINE <> 0 then
   begin
     if CalculateRect then
@@ -9894,7 +9894,7 @@ end;
 
 //----------------------------------------------------------------------------------------------------------------------
 
-procedure TBaseVirtualTree.AdjustImageBorder(Images: TCustomImageList; BidiMode: TBidiMode; VAlign: Integer; var R: TRect; 
+procedure TBaseVirtualTree.AdjustImageBorder(Images: TCustomImageList; xBidiMode: TBidiMode; VAlign: Integer; var R: TRect;
   var ImageInfo: TVTImageInfo);
 
 // Depending on the width of the image list as well as the given bidi mode R must be adjusted.
@@ -19259,7 +19259,7 @@ end;
 //----------------------------------------------------------------------------------------------------------------------
 
 procedure TBaseVirtualTree.PaintNodeButton(xCanvas: TCanvas; Node: PVirtualNode; const R: TRect; ButtonX,
-  ButtonY: Integer; BidiMode: TBiDiMode);
+  ButtonY: Integer; xBidiMode: TBiDiMode);
 
 var
   Bitmap: TBitmap;