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

LCL: Toolbutton tbsDropDown drawing problem. Issue #19600, patch from Samuel Herzog

Browse Source 
git-svn-id: trunk@38099 -
This commit is contained in:
juha 2012-07-31 21:03:10 +00:00
parent 8fae5b8320
commit 93a55c46a9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/themes.pas
View File

@ -2093,6 +2093,8 @@ begin
Bevel := bvNone; Bevel := bvNone;
Frame3D(DC, ARect, 1, Bevel); Frame3D(DC, ARect, 1, Bevel);
ARect:=R;
InflateRect(ARect, -1, -1);
DrawDropDownArrow(ARect); DrawDropDownArrow(ARect);
end; end;
TP_SEPARATOR: TP_SEPARATOR: