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

lcl: draw non-focused selection state if treeview has no focus (todo: invalidate on focus lose)

Browse Source 
git-svn-id: trunk@24818 -
This commit is contained in:
paul 2010-04-22 09:34:39 +00:00
parent 0e21a3965e
commit be2511dff9
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/treeview.inc
View File

@ -4476,7 +4476,10 @@ var
if (tvoRowSelect in Options) and IsSelected then
if tvoThemedDraw in Options then
begin
Details := ThemeServices.GetElementDetails(ttItemSelected);
if Focused then
Details := ThemeServices.GetElementDetails(ttItemSelected)
else
Details := ThemeServices.GetElementDetails(ttItemSelectedNotFocus);
ThemeServices.DrawElement(Canvas.Handle, Details, ARect, nil);
Exit;
end
@ -4497,7 +4500,10 @@ var
begin
if IsSelected then
begin
Details := ThemeServices.GetElementDetails(ttItemSelected);
if Focused then
Details := ThemeServices.GetElementDetails(ttItemSelected)
else
Details := ThemeServices.GetElementDetails(ttItemSelectedNotFocus);
if not (tvoRowSelect in Options) then
if (tvoThemedDraw in Options) then
ThemeServices.DrawElement(Canvas.Handle, Details, NodeRect, nil)