[Solved] TCoolBar: overlap panels

[zoltanleo]

Try to put multiple toolbars on TCoolBar. After moving the panels manually, get the picture That they overlap each other. 

How can I fix it?

[Blaazen]

Try set proper MinWidth to each band. Also, in trunk, there are methods TCoolBar.AutosizeBands; and TCoolBand.AutosizeWidth;. These methods, together with FixedSize=True should solve it.

[zoltanleo]

Wow 

After the Lazarus updating (rev 46993) I wrote such code (see attachment)

Code: [Select]

  with CoolBar1 do
    begin
      Bands[0].Control:= ToolBar1;
      Bands[1].Control:= ToolBar2;

      AutoSize:= True;
      Bands[0].FixedSize:= True;
      Bands[0].MinWidth:= ToolBar1.Width;
      Bands[0].Width:= ToolBar1.Width;

      Bands[1].FixedSize:= True;
      Bands[1].MinWidth:= ToolBar2.Width;
      Bands[1].Width:= ToolBar2.Width;

      AutosizeBands;
    end; 

that works correctly. However, thus I can't change Bands width manually.

Thank you very much

[marcov]

I think you should set the minwidth to the sum of width of the icons + the sum of the spaces between the icons and few slack pixels. Not to the toolbar width.

[zoltanleo]

I tried to count TToolBar width manually

Code: [Select]

procedure TForm1.CalcSize;
var
  k: Integer;
  i: Integer;
begin

  k:= ToolBar1.Indent * 2 + 2;
  for i := 0 to Pred(ToolBar1.ButtonCount) do k:= k + ToolBar1.Buttons[i].Width;

  k:= ToolBar2.Indent * 2 + 2;
  for i := 0 to Pred(ToolBar2.ButtonCount) do k:= k + ToolBar2.Buttons[i].Width;
end;
There is no difference