Hi, with this code: procedure TToolButton.SetStyle(Value: TToolButtonStyle); begin if FStyle = Value then exit; FStyle := Value; if Value = tbsSeparator then Width := 10; if Value = tbsDivider then Width := 5; InvalidatePreferredSize; if IsControlVisible then UpdateVisibleToolbar; end; It now does deault 10px separators - both design-time and code and 5px dividers from code but still 3px dividers at design-time. EditorToolBar looks better now. I'll find solution and I'll send a patch to bugtracker. Vojtěch
_______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus <http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus>
-- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
