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

lcl: implement treeview item drawing for default theme manager

Browse Source 
git-svn-id: trunk@24839 -
This commit is contained in:
paul 2010-04-23 00:24:27 +00:00
parent 5d0f6c878d
commit 7f820b7f3f
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/themes.pas
View File

@ -2124,7 +2124,7 @@ begin
end;
teTreeView:
begin
if Details.Part = TVP_GLYPH then
if Details.Part in [TVP_GLYPH, TVP_HOTGLYPH] then
begin
Rectangle(DC, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);
Tmp := (ARect.Bottom + ARect.Top) shr 1;
@ -2136,6 +2136,18 @@ begin
MoveToEx(DC, Tmp, ARect.Top + 2, nil);
LineTo(DC, Tmp, ARect.Bottom - 2);
end;
end
else
if Details.Part = TVP_TREEITEM then
begin
case Details.State of
TREIS_NORMAL: FillWithColor(ARect, clWindow);
TREIS_HOT: FillWithColor(ARect, clHotLight);
TREIS_SELECTED: FillWithColor(ARect, clHighlight);
TREIS_DISABLED: FillWithColor(ARect, clWindow);
TREIS_SELECTEDNOTFOCUS: FillWithColor(ARect, clBtnFace);
TREIS_HOTSELECTED: FillWithColor(ARect, clHighlight);
end;
end;
end;
teToolTip: