アイコンの設定されていないActionのToolButtonは、アイコン無しのアイコンを使用するようにした。

diff --git a/ToolBarSetting.pas b/ToolBarSetting.pas
index d1b3918..a45246a 100644 (file)
--- a/ToolBarSetting.pas
+++ b/ToolBarSetting.pas
@@ -188,6 +188,9 @@ begin
                        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);

diff --git a/ToolBarUtil.pas b/ToolBarUtil.pas
index bfa2e96..f92fd7c 100644 (file)
--- a/ToolBarUtil.pas
+++ b/ToolBarUtil.pas
@@ -161,6 +161,9 @@ begin
                                        if Action <> nil then begin
                                                ToolButton := TToolButton.Create(ToolBar);
                                                ToolButton.Action := Action;
+                                               if ToolButton.ImageIndex = -1 then
+                                                       ToolButton.ImageIndex := 51;
+
                                                ToolButton.Left := 10000;
                                                SetButtonStyle(Action, ToolButton);
                                                ToolBar.InsertControl(ToolButton);