[Lazarus] Toolbar divider issues

[Vojtěch Čihák]

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 at lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus <http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20141109/6bc2b074/attachment-0003.html>