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

LCL: Improve TTreeView expand/collapse node arrows in Hi-DPI mode. Issue #30866, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@53459 -
This commit is contained in:
juha 2016-11-25 21:01:31 +00:00
parent 9a379ab39a
commit 7ac7d691f9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/treeview.inc
View File

@ -4855,7 +4855,7 @@ var
tvestTheme:
begin
// draw a themed expand sign. Todo: track hot
R := Rect(ALeft, ATop, ARight + 1, ABottom + 1);
R := Rect(ALeft, ATop, ARight, ABottom);
Details := ThemeServices.GetElementDetails(PlusMinusDetail[False, CollapseSign]);
ThemeServices.DrawElement(Canvas.Handle, Details, R, nil);
end;
@ -4993,6 +4993,7 @@ var
CurBackgroundColor,bclr: TColor;
begin
bclr:=Canvas.Brush.Color;
CurBackgroundColor:=clNone;
try
if (tvoRowSelect in Options) and IsSelected then
if tvoThemedDraw in Options then
@ -5056,7 +5057,11 @@ var
if (tvoThemedDraw in Options) then
ThemeServices.DrawText(Canvas, Details, AText, NodeRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE or DT_NOPREFIX, 0)
else
begin
if isSelected then
Canvas.Brush.Style:=bsClear;
DrawText(Canvas.Handle, PChar(AText), -1, NodeRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE or DT_NOPREFIX);
end;
end;