<p style="padding:0 0 0 0; margin:0 0 0 0;">Hi,</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;"> </p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">with this code: </p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;"> </p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">procedure TToolButton.SetStyle(Value: TToolButtonStyle);<br />
begin<br />
  if FStyle = Value then exit;<br />
  FStyle := Value;<br />
  if Value = tbsSeparator then Width := 10;<br />
  if Value = tbsDivider then Width := 5;<br />
  InvalidatePreferredSize;<br />
  if IsControlVisible then<br />
  UpdateVisibleToolbar;<br />
end;</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;"> </p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">It now does deault 10px separators - both design-time and code</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">and 5px dividers from code but still 3px dividers at design-time.</p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;"> </p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">EditorToolBar looks better now. I'll find solution and I'll send a patch to bugtracker. </p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;"> </p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;">Vojtěch </p>

<p style="padding: 0 0 0 0; margin: 0 0 0 0;"><br />
_______________________________________________<br />
Lazarus mailing list<br />
Lazarus@lists.lazarus.freepascal.org<br />
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a></p>