・応急処置その3で終了時にクラッシュするバグを修正。

　多分これで [ツールバー設定] と絞り込み検索は満足に連動するはず。

diff --git a/Giko.pas b/Giko.pas
index de5fd46..67f3f44 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1183,7 +1183,7 @@ begin
                 begin
                         SelectItemAction.Visible := False;
                         SelectComboBox.Left := SelectItemToolButton.Left;
-                        ListToolBar.InsertControl( SelectComboBox );
+                        SelectComboBox.Parent := ListToolBar;
                         break;
                 end;
         end;
@@ -6497,18 +6497,18 @@ begin
                                BrowserCoolBar.Bands[i].MinWidth := BrowserCoolBar.Bands[i].MinWidth - 1;
                        end;
                        SaveToolBarSetting(StdToolBar);
-                       SaveToolBarSetting(BrowserToolBar);
+                       SaveToolBarSetting(ListToolBar);
                         for i := ListToolBar.ControlCount - 1 downto 0 do
                         begin
                                 if ListToolBar.Controls[ i ].Action = SelectItemAction then
                                 begin
                                         SelectItemAction.Visible := False;
                                         SelectComboBox.Left := SelectItemToolButton.Left;
-                                        ListToolBar.InsertControl( SelectComboBox );
+                                        SelectComboBox.Parent := ListToolBar;
                                         break;
                                 end;
                         end;
-                       SaveToolBarSetting(ListToolBar);
+                       SaveToolBarSetting(BrowserToolBar);
                end;
        finally
                Dlg.Release;