From 4ec44f84562a26406cdbb0606fb493d307477bea Mon Sep 17 00:00:00 2001 From: blikblum Date: Sun, 23 Sep 2012 22:27:49 +0000 Subject: [PATCH] * Remove obsolete LCLVersion check: it was preventing RTL Hint Windows git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2535 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/virtualtreeview-new/branches/4.8/VirtualTrees.pas | 3 --- 1 file changed, 3 deletions(-) diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas index f2f5dcac4..773024aac 100644 --- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas +++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas @@ -332,7 +332,6 @@ uses LclExt, {$endif} virtualpanningwindow, - LCLVersion, VTGraphics, //alpha blend functions {$ifdef DEBUG_VTV} vtlogger, @@ -5569,7 +5568,6 @@ begin else begin //todo remove this define as soon as 0.9.30 is released to avoid future problems - {$if lcl_release >= 29} if Column <= NoColumn then begin BidiMode := Tree.BidiMode; @@ -5580,7 +5578,6 @@ begin BidiMode := Tree.Header.Columns[Column].BidiMode; Alignment := Tree.Header.Columns[Column].Alignment; end; - {$endif} //select font according to the type of hint if (Node = nil) or (Tree.FHintMode <> hmToolTip) then Canvas.Font := Screen.HintFont