paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 23:40:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix treeview plus/minus sign drawing with no themes

Browse Source 
git-svn-id: trunk@30348 -
This commit is contained in:
paul 2011-04-17 13:17:14 +00:00
parent a494e8fc10
commit a96a6545ba
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/themes.pas
View File

@ -2158,6 +2158,13 @@ begin
begin
if Details.Part in [TVP_GLYPH, TVP_HOTGLYPH] then
begin
with ARect do
begin
if not odd(Right - Left) then
Dec(Right);
if not odd(Bottom - Top) then
Dec(Bottom);
end;
Rectangle(DC, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);
Tmp := (ARect.Bottom + ARect.Top) shr 1;
MoveToEx(DC, ARect.Left + 2, Tmp, nil);