paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 13:29:37 +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; end;
// draw separator (at runtime: just space, at designtime: a rectangle) // 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 begin
Canvas.Brush.Color := clBackground; Canvas.Brush.Color := clBackground;
Canvas.Pen.Color := clBlack; Canvas.Pen.Color := clBlack;