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

LCL: Draw themed Toolbar separator. Issue #27329, patch from Derit Agustin.

Browse Source 
git-svn-id: trunk@47539 -
This commit is contained in:
juha 2015-01-27 00:02:13 +00:00
parent 0787f7aa1e
commit bfa5d4b89b
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -2008,7 +2008,7 @@ type
procedure CMVisibleChanged(var Message: TLMessage); message CM_VISIBLECHANGED;
procedure CMHitTest(var Message: TCMHitTest); message CM_HITTEST;
protected const
cDefSeparatorWidth = 10;
cDefSeparatorWidth = 8;
cDefDividerWidth = 5;
protected
FToolBar: TToolBar;

6
lcl/include/toolbutton.inc
View File

@ -337,7 +337,11 @@ begin
else
if Style = tbsSeparator then
begin
DrawSeparator(Details, ButtonRect);
if ThemeServices.ThemesEnabled then begin
Details:=ThemeServices.GetElementDetails(ttbSeparatorNormal);
ThemeServices.DrawElement(Canvas.Handle,Details,ClientRect)
end else
DrawSeparator(Details, ButtonRect);
ButtonRect := Rect(0, 0, 0, 0); // nothing can be drawn on separator
end;