・ツールバーをカスタマイズした場合に、スレッド絞込みが出来なくなる問題の応急処置として従来のボタンを配置。

・レス絞込みのインターフェースを追加。

diff --git a/Giko.dfm b/Giko.dfm
index c78e913..e604b6d 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 438
-  Top = 97
+  Left = 93
+  Top = 110
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
@@ -299,14 +299,14 @@ object GikoForm: TGikoForm
                 Control = ListToolBar
                 ImageIndex = -1
                 MinHeight = 22
-                Width = 453
+                Width = 542
               end
               item
                 Break = False
                 Control = ListNameToolBar
                 ImageIndex = -1
                 MinHeight = 18
-                Width = 183
+                Width = 94
               end>
             EdgeBorders = [ebLeft, ebTop, ebRight]
             EdgeInner = esLowered
@@ -316,7 +316,7 @@ object GikoForm: TGikoForm
             object ListToolBar: TToolBar
               Left = 9
               Top = 0
-              Width = 440
+              Width = 529
               Height = 22
               AutoSize = True
               ButtonWidth = 25
@@ -372,8 +372,14 @@ object GikoForm: TGikoForm
                 Action = NewItemAction
                 Style = tbsCheck
               end
-              object SelectComboBox: TComboBox
+              object SelectItemToolButton: TToolButton
                 Left = 169
+                Top = 0
+                Action = SelectItemAction
+                Visible = False
+              end
+              object SelectComboBox: TComboBox
+                Left = 194
                 Top = 1
                 Width = 145
                 Height = 20
@@ -384,18 +390,18 @@ object GikoForm: TGikoForm
                 OnKeyDown = SelectComboBoxKeyDown
               end
               object Sepa02ToolButton: TToolButton
-                Left = 314
+                Left = 339
                 Top = 0
                 Width = 8
                 Style = tbsSeparator
               end
               object ToolButton8: TToolButton
-                Left = 322
+                Left = 347
                 Top = 0
                 Action = ThreadEditorAction
               end
               object ToolButton10: TToolButton
-                Left = 347
+                Left = 372
                 Top = 0
                 Width = 8
                 Caption = 'ToolButton10'
@@ -403,12 +409,12 @@ object GikoForm: TGikoForm
                 Style = tbsSeparator
               end
               object ToolButton12: TToolButton
-                Left = 355
+                Left = 380
                 Top = 0
                 Action = BoardIEAction
               end
               object ToolButton14: TToolButton
-                Left = 380
+                Left = 405
                 Top = 0
                 Width = 8
                 Caption = 'ToolButton14'
@@ -416,32 +422,32 @@ object GikoForm: TGikoForm
                 Style = tbsSeparator
               end
               object ListDownloadToolButton: TToolButton
-                Left = 388
+                Left = 413
                 Top = 0
                 Action = SelectListReloadAction
               end
               object ListThreadDownloadToolButton: TToolButton
-                Left = 413
+                Left = 438
                 Top = 0
                 Action = SelectThreadReloadAction
               end
               object ToolButton2: TToolButton
-                Left = 438
+                Left = 463
                 Top = 0
                 Width = 8
                 Style = tbsSeparator
               end
               object ToolButton1: TToolButton
-                Left = 446
+                Left = 471
                 Top = 0
                 Action = SelectReservAction
                 DropdownMenu = RoundNamePopupMenu
               end
             end
             object ListNameToolBar: TToolBar
-              Left = 464
+              Left = 553
               Top = 2
-              Width = 170
+              Width = 81
               Height = 18
               AutoSize = True
               ButtonHeight = 16
@@ -639,6 +645,11 @@ object GikoForm: TGikoForm
                 Top = 0
                 Action = ItemReloadAction
               end
+              object SelectResToolButton: TToolButton
+                Left = 268
+                Top = 0
+                Action = SelectResAction
+              end
             end
             object BrowserNameToolBar: TToolBar
               Left = 341
@@ -7899,6 +7910,14 @@ object GikoForm: TGikoForm
       Hint = #12484#12540#12523#12496#12540#35373#23450#12480#12452#12450#12525#12464#12434#38283#12367
       OnExecute = ToolBarSettingActionExecute
     end
+    object SelectResAction: TAction
+      Category = #12473#12524#12483#12489
+      Caption = 'SelectResAction'
+      Hint = #12524#12473#12398#20869#23481#12434#32094#36796#12416
+      ImageIndex = 12
+      OnExecute = SelectResActionExecute
+      OnUpdate = SelectResActionUpdate
+    end
   end
   object MainMenu: TMainMenu
     Images = HotToobarImageList