リストツールバーに [スレッド一覧の表示範囲を設定] を追加。

[gikonavigoeson/gikonavi.git] / Giko.dfm

diff --git a/Giko.dfm b/Giko.dfm
index 5f5de3c..e97ae30 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 177
-  Top = 132
+  Left = -3
+  Top = 235
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
@@ -355,14 +355,14 @@ object GikoForm: TGikoForm
                 Control = ListToolBar
                 ImageIndex = -1
                 MinHeight = 22
-                Width = 536
+                Width = 560
               end
               item
                 Break = False
                 Control = ListNameToolBar
                 ImageIndex = -1
                 MinHeight = 18
-                Width = 162
+                Width = 138
               end>
             EdgeBorders = [ebLeft, ebTop, ebRight]
             EdgeInner = esLowered
@@ -372,7 +372,7 @@ object GikoForm: TGikoForm
             object ListToolBar: TToolBar
               Left = 9
               Top = 0
-              Width = 523
+              Width = 547
               Height = 22
               AutoSize = True
               ButtonWidth = 25
@@ -411,26 +411,33 @@ object GikoForm: TGikoForm
                 Width = 8
                 Style = tbsSeparator
               end
-              object AllItemToolButton: TToolButton
+              object ThreadRangeButton: TToolButton
                 Left = 94
                 Top = 0
+                Action = ThreadRangeAction
+                DropdownMenu = ThreadRangePopupMenu
+                Style = tbsDropDown
+              end
+              object AllItemToolButton: TToolButton
+                Left = 130
+                Top = 0
                 Action = AllItemAction
                 Style = tbsCheck
               end
               object LogItemToolButton: TToolButton
-                Left = 119
+                Left = 155
                 Top = 0
                 Action = LogItemAction
                 Style = tbsCheck
               end
               object NewItemToolButton: TToolButton
-                Left = 144
+                Left = 180
                 Top = 0
                 Action = NewItemAction
                 Style = tbsCheck
               end
               object SelectItemToolButton: TToolButton
-                Left = 169
+                Left = 205
                 Top = 0
                 Action = SelectItemAction
                 Style = tbsCheck
@@ -438,7 +445,7 @@ object GikoForm: TGikoForm
               end
               object SelectComboBox: TComboBox
                 Tag = 1
-                Left = 194
+                Left = 230
                 Top = 1
                 Width = 127
                 Height = 20
@@ -452,7 +459,7 @@ object GikoForm: TGikoForm
               end
               object SelectComboBoxSplitter: TImage
                 Tag = 1
-                Left = 321
+                Left = 357
                 Top = 0
                 Width = 8
                 Height = 22
@@ -462,12 +469,12 @@ object GikoForm: TGikoForm
                 OnMouseUp = SelectComboBoxSplitterMouseUp
               end
               object ToolButton8: TToolButton
-                Left = 329
+                Left = 365
                 Top = 0
                 Action = ThreadEditorAction
               end
               object ToolButton10: TToolButton
-                Left = 354
+                Left = 390
                 Top = 0
                 Width = 8
                 Caption = 'ToolButton10'
@@ -475,18 +482,18 @@ object GikoForm: TGikoForm
                 Style = tbsSeparator
               end
               object ToolButton12: TToolButton
-                Left = 362
+                Left = 398
                 Top = 0
                 Action = BoardIEAction
               end
               object LocalRuleView: TToolButton
-                Left = 387
+                Left = 423
                 Top = 0
                 Caption = #12525#12540#12459#12523#12523#12540#12523#34920#31034
                 ImageIndex = 12
               end
               object ToolButton14: TToolButton
-                Left = 412
+                Left = 448
                 Top = 0
                 Width = 8
                 Caption = 'ToolButton14'
@@ -494,32 +501,32 @@ object GikoForm: TGikoForm
                 Style = tbsSeparator
               end
               object ListDownloadToolButton: TToolButton
-                Left = 420
+                Left = 456
                 Top = 0
                 Action = SelectListReloadAction
               end
               object ListThreadDownloadToolButton: TToolButton
-                Left = 445
+                Left = 481
                 Top = 0
                 Action = SelectThreadReloadAction
               end
               object ToolButton2: TToolButton
-                Left = 470
+                Left = 506
                 Top = 0
                 Width = 8
                 Style = tbsSeparator
               end
               object ToolButton1: TToolButton
-                Left = 478
+                Left = 514
                 Top = 0
                 Action = SelectReservAction
                 DropdownMenu = RoundNamePopupMenu
               end
             end
             object ListNameToolBar: TToolBar
-              Left = 547
+              Left = 571
               Top = 2
-              Width = 149
+              Width = 125
               Height = 18
               AutoSize = True
               ButtonHeight = 16
@@ -10257,6 +10264,16 @@ object GikoForm: TGikoForm
       OnExecute = NewItemActionExecute
       OnUpdate = NewItemActionUpdate
     end
+    object ThreadRangeAction: TAction
+      Category = #26495
+      AutoCheck = True
+      Caption = #12473#12524#12483#12489#12398#34920#31034#31684#22258#12434#35373#23450'(&H)'
+      GroupIndex = 1
+      Hint = #12473#12524#12483#12489#12398#34920#31034#31684#22258#12434#35373#23450
+      ImageIndex = 10
+      OnExecute = ThreadRangeActionExecute
+      OnUpdate = ThreadRangeActionUpdate
+    end
     object SelectItemAction: TAction
       Category = #26495
       AutoCheck = True
@@ -11425,5 +11442,35 @@ object GikoForm: TGikoForm
       Action = OnlyNewResAction
       AutoCheck = True
     end
+    object N69: TMenuItem
+      Caption = '-'
+    end
+    object S7: TMenuItem
+      Action = SelectResAction
+      AutoCheck = True
+    end
+  end
+  object ThreadRangePopupMenu: TPopupMenu
+    Left = 37
+    Top = 436
+    object A15: TMenuItem
+      Action = AllItemAction
+      AutoCheck = True
+    end
+    object L8: TMenuItem
+      Action = LogItemAction
+      AutoCheck = True
+    end
+    object N67: TMenuItem
+      Action = NewItemAction
+      AutoCheck = True
+    end
+    object N68: TMenuItem
+      Caption = '-'
+    end
+    object S6: TMenuItem
+      Action = SelectItemAction
+      AutoCheck = True
+    end
   end
 end