pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Remove obsolete LCLVersion check: it was preventing RTL Hint Windows

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2535 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-09-23 22:27:49 +00:00
parent 2af3b6009e
commit 4ec44f8456
1 changed files with 0 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@@ -332,7 +332,6 @@ uses
LclExt, LclExt,
{$endif} {$endif}
virtualpanningwindow, virtualpanningwindow,
LCLVersion,
VTGraphics, //alpha blend functions VTGraphics, //alpha blend functions
{$ifdef DEBUG_VTV} {$ifdef DEBUG_VTV}
vtlogger, vtlogger,
@@ -5569,7 +5568,6 @@ begin
else else
begin begin
//todo remove this define as soon as 0.9.30 is released to avoid future problems //todo remove this define as soon as 0.9.30 is released to avoid future problems
{$if lcl_release >= 29}
if Column <= NoColumn then if Column <= NoColumn then
begin begin
BidiMode := Tree.BidiMode; BidiMode := Tree.BidiMode;
@@ -5580,7 +5578,6 @@ begin
BidiMode := Tree.Header.Columns[Column].BidiMode; BidiMode := Tree.Header.Columns[Column].BidiMode;
Alignment := Tree.Header.Columns[Column].Alignment; Alignment := Tree.Header.Columns[Column].Alignment;
end; end;
{$endif}
//select font according to the type of hint //select font according to the type of hint
if (Node = nil) or (Tree.FHintMode <> hmToolTip) then if (Node = nil) or (Tree.FHintMode <> hmToolTip) then
Canvas.Font := Screen.HintFont Canvas.Font := Screen.HintFont