ToolBarItem.ToolBar := ToolBar;
ToolBarItem.ToolType := ToolType;
for i := 0 to ToolBar.ControlCount - 1 do
- if ToolBar.Controls[ i ] is TToolButton Then
+ if ToolBar.Controls[ i ] is TToolButton Then
+ if not (ToolBar.Controls[ i ].Name = 'SelectComboBoxDummy') Then
ToolBarITem.ButtonActionList.Add(ToolBar.Controls[i].Action);
ToolBarComboBox.Items.AddObject(ToolBar.Caption, ToolBarItem);
end;
end else if TObject(ToolBarItem.ButtonActionList[j]) is TCustomAction then begin
ToolButton := TToolButton.Create(ToolBarItem.ToolBar);
ToolButton.Action := TCustomAction(ToolBarItem.ButtonActionList[j]);
+ if ToolButton.ImageIndex = -1 then
+ ToolButton.ImageIndex := 51;
+
ToolButton.Left := 10000;
SetButtonStyle(ToolBarItem.ButtonActionList[j], ToolButton);
ToolBarItem.ToolBar.InsertControl(ToolButton);