* IS operator has been lowered in precedence since 2020-03-06 to match documentation, so this now requires parentheses for FPC 3.3.1+

git-svn-id: trunk@62712 -
This commit is contained in:
marco 2020-03-08 10:06:59 +00:00
parent 4aaaa6c59a
commit c32c9ddf16

View File

@ -6067,7 +6067,7 @@ procedure TVirtualTreeHintWindow.Paint;
begin
with FHintData do
begin
if Tree is TCustomVirtualDrawTree and Assigned(Node) then
if (Tree is TCustomVirtualDrawTree) and Assigned(Node) then
begin
// The draw tree has by default no hint text so let it draw the hint itself.
// HintBorderWidth is a private constant in hint code and is set to two