* Correctly position the header hint when bidimode is rtl

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1051 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-13 03:51:58 +00:00
parent 45b3bd78c7
commit bf720bd525

View File

@ -6243,7 +6243,7 @@ begin
end
else
begin
if Tree.HintMode = hmTooltip then
if (Tree.HintMode = hmTooltip) and (Node <> nil) then
begin
P := Tree.ClientToScreen(Point(Min(Tree.ClientWidth, HintInfo^.CursorRect.Right), 0));
Dec(P.X, Result.Right);