paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 07:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

VTV: fixed painting selection

Browse Source 
git-svn-id: trunk@63586 -
This commit is contained in:
pascal 2020-07-17 08:37:56 +00:00
parent e700d7a6f9
commit d5f62b9ccb
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/virtualtreeview/laz.virtualtrees.pas
View File

@ -24811,8 +24811,7 @@ begin
if not IsRectEmpty(InnerRect) then
{$ifdef ThemeSupport}
{$ifdef Windows}
if (tsUseExplorerTheme in FStates)
and (Theme <> 0) then
if (tsUseExplorerTheme in FStates) and (Theme <> 0) then
begin
// If the node is also hot, its background will be drawn later.
if not (toHotTrack in FOptions.FPaintOptions) or (Node <> FCurrentHotNode) or