mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Highlight active tab (issue #1351)

Browse source
This commit is contained in:
Alexander Koblov 2023-12-24 15:44:41 +03:00
commit 872078e178
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/ufileviewnotebook.pas
View file

@ -564,7 +564,7 @@ begin
if (Win32MajorVersion >= 10) and (PageIndex > -1) then
begin
ARect:= TabRect(PageIndex);
IntersectClipRect(DC, ARect.Left, ARect.Top, ARect.Right, ARect.Top + 3);
IntersectClipRect(DC, ARect.Left, ARect.Top, ARect.Right, ARect.Top + ScaleY(3, 96));
InflateRect(ARect, ScaleX(8, 96), 0);
DrawThemeBackground(TWin32ThemeServices(ThemeServices).Theme[teToolBar], DC, TP_BUTTON, TS_CHECKED, ARect, nil);
end;