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

toolbutton: dont draw rectangle around divider in design mode

Browse Source 
git-svn-id: trunk@13905 -
This commit is contained in:
paul 2008-01-29 07:30:02 +00:00
parent 221f810ea1
commit 543c7bfaab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/toolbutton.inc
View File

@ -340,7 +340,7 @@ begin
end;
// draw separator (at runtime: just space, at designtime: a rectangle)
if (Style in [tbsSeparator,tbsDivider]) and (csDesigning in ComponentState) then
if (Style = tbsSeparator) and (csDesigning in ComponentState) then
begin
Canvas.Brush.Color := clBackground;
Canvas.Pen.Color := clBlack;