・スレッド絞込みのツールバー配置に関する(今まで応急処置となっていた)処理が完全に完了。

diff --git a/Giko.dfm b/Giko.dfm
index 85e7652..003f134 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 78
-  Top = 150
+  Left = 148
+  Top = 369
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False

diff --git a/Giko.pas b/Giko.pas
index 784dffc..afdae41 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -449,9 +449,6 @@ type
     ToolButton16: TToolButton;
     AllResAction: TAction;
     AllResToolButton: TToolButton;
-    N41: TMenuItem;
-    N42: TMenuItem;
-    N49: TMenuItem;
     N50: TMenuItem;
     A11: TMenuItem;
     S5: TMenuItem;
@@ -6527,8 +6524,8 @@ begin
                         begin
                                 if ListToolBar.Controls[ i ].Action = SelectItemAction then
                                 begin
-                                        SelectItemAction.Visible := False;
-                                        SelectComboBox.Left := SelectItemToolButton.Left;
+                                        ListToolBar.Controls[ i ].Visible := False;
+                                        SelectComboBox.Left := ListToolBar.Controls[ i ].Left;
                                         SelectComboBox.Parent := ListToolBar;
                                         break;
                                 end;