paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 11:36:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

VTV: better fix for painting selection

Browse Source 
git-svn-id: trunk@63609 -
This commit is contained in:
pascal 2020-07-21 05:18:41 +00:00
parent 950091831c
commit ac1050003a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24715,7 +24715,9 @@ begin
RowRect.Right := Max(ClientWidth, RowRect.Right); RowRect.Right := Max(ClientWidth, RowRect.Right);
if toShowVertGridLines in FOptions.PaintOptions then if toShowVertGridLines in FOptions.PaintOptions then
Dec(RowRect.Right); Dec(RowRect.Right);
end; end
else
Theme := 0;
{$endif} {$endif}
{$endif ThemeSupport} {$endif ThemeSupport}
@ -24811,7 +24813,7 @@ begin
if not IsRectEmpty(InnerRect) then if not IsRectEmpty(InnerRect) then
{$ifdef ThemeSupport} {$ifdef ThemeSupport}
{$ifdef Windows} {$ifdef Windows}
if (tsUseExplorerTheme in FStates) and (Theme <> 0) then if Theme <> 0 then
begin begin
// If the node is also hot, its background will be drawn later. // If the node is also hot, its background will be drawn later.
if not (toHotTrack in FOptions.FPaintOptions) or (Node <> FCurrentHotNode) or if not (toHotTrack in FOptions.FPaintOptions) or (Node <> FCurrentHotNode) or