mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: KASToolBar - separator in vertical mode without themes

Browse source
This commit is contained in:
Alexander Koblov 2020-01-11 17:33:39 +00:00
commit 3ab052bc3b
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
components/KASToolBar/kastoolbar.pas
View file

@ -1127,6 +1127,16 @@ begin
DividerRect.Top := (DividerRect.Top + DividerRect.Bottom) div 2 - 3;
DividerRect.Bottom := DividerRect.Top + 5;
end;
if not ThemeServices.ThemesEnabled then
begin
InflateRect(DividerRect, -2, 0);
Canvas.Pen.Color := clBtnShadow;
Canvas.Line(DividerRect.Left, DividerRect.Top + 1, DividerRect.Right, DividerRect.Top + 1);
Canvas.Pen.Color := clBtnHighlight;
Canvas.Line(DividerRect.Left, DividerRect.Top + 2, DividerRect.Right, DividerRect.Top + 2);
Exit;
end;
end
else begin
Details:= ThemeServices.GetElementDetails(ttbSeparatorNormal);