NGワードのメニューをキー設定できるようにActionListに追加した。

diff --git a/Giko.dfm b/Giko.dfm
index be077ab..a86684e 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -350,43 +350,43 @@ object GikoForm: TGikoForm
                 Style = tbsDropDown
               end
               object UpFolderButton: TToolButton
-                Left = 63
+                Left = 61
                 Top = 0
                 Action = UpFolderAction
               end
               object Sepa01ToolButton: TToolButton
-                Left = 88
+                Left = 86
                 Top = 0
                 Width = 8
                 Style = tbsSeparator
               end
               object AllItemToolButton: TToolButton
-                Left = 96
+                Left = 94
                 Top = 0
                 Action = AllItemAction
                 Style = tbsCheck
               end
               object LogItemToolButton: TToolButton
-                Left = 121
+                Left = 119
                 Top = 0
                 Action = LogItemAction
                 Style = tbsCheck
               end
               object NewItemToolButton: TToolButton
-                Left = 146
+                Left = 144
                 Top = 0
                 Action = NewItemAction
                 Style = tbsCheck
               end
               object SelectItemToolButton: TToolButton
-                Left = 171
+                Left = 169
                 Top = 0
                 Action = SelectItemAction
                 Style = tbsCheck
                 Visible = False
               end
               object SelectComboBox: TComboBox
-                Left = 196
+                Left = 194
                 Top = 1
                 Width = 145
                 Height = 20
@@ -397,18 +397,18 @@ object GikoForm: TGikoForm
                 OnKeyDown = SelectComboBoxKeyDown
               end
               object Sepa02ToolButton: TToolButton
-                Left = 341
+                Left = 339
                 Top = 0
                 Width = 8
                 Style = tbsSeparator
               end
               object ToolButton8: TToolButton
-                Left = 349
+                Left = 347
                 Top = 0
                 Action = ThreadEditorAction
               end
               object ToolButton10: TToolButton
-                Left = 374
+                Left = 372
                 Top = 0
                 Width = 8
                 Caption = 'ToolButton10'
@@ -416,12 +416,12 @@ object GikoForm: TGikoForm
                 Style = tbsSeparator
               end
               object ToolButton12: TToolButton
-                Left = 382
+                Left = 380
                 Top = 0
                 Action = BoardIEAction
               end
               object ToolButton14: TToolButton
-                Left = 407
+                Left = 405
                 Top = 0
                 Width = 8
                 Caption = 'ToolButton14'
@@ -429,23 +429,23 @@ object GikoForm: TGikoForm
                 Style = tbsSeparator
               end
               object ListDownloadToolButton: TToolButton
-                Left = 415
+                Left = 413
                 Top = 0
                 Action = SelectListReloadAction
               end
               object ListThreadDownloadToolButton: TToolButton
-                Left = 440
+                Left = 438
                 Top = 0
                 Action = SelectThreadReloadAction
               end
               object ToolButton2: TToolButton
-                Left = 465
+                Left = 463
                 Top = 0
                 Width = 8
                 Style = tbsSeparator
               end
               object ToolButton1: TToolButton
-                Left = 473
+                Left = 471
                 Top = 0
                 Action = SelectReservAction
                 DropdownMenu = RoundNamePopupMenu
@@ -663,13 +663,13 @@ object GikoForm: TGikoForm
                 Style = tbsDropDown
               end
               object ToolButton5: TToolButton
-                Left = 295
+                Left = 293
                 Top = 0
                 Width = 8
                 Style = tbsSeparator
               end
               object ItemReloadButton: TToolButton
-                Left = 303
+                Left = 301
                 Top = 0
                 Action = ItemReloadAction
               end
@@ -7933,6 +7933,16 @@ object GikoForm: TGikoForm
       Hint = #12484#12540#12523#12496#12540#35373#23450#12480#12452#12450#12525#12464#12434#38283#12367
       OnExecute = ToolBarSettingActionExecute
     end
+    object AllResAction: TAction
+      Category = #12473#12524#12483#12489
+      AutoCheck = True
+      Caption = #12377#12409#12390#34920#31034'(&A)'
+      GroupIndex = 2
+      Hint = #12473#12524#12483#12489#12434#12377#12409#12390#34920#31034#12377#12427
+      ImageIndex = 9
+      OnExecute = AllResActionExecute
+      OnUpdate = AllResActionUpdate
+    end
     object SelectResAction: TAction
       Category = #12473#12524#12483#12489
       AutoCheck = True
@@ -7943,15 +7953,29 @@ object GikoForm: TGikoForm
       OnExecute = SelectResActionExecute
       OnUpdate = SelectResActionUpdate
     end
-    object AllResAction: TAction
-      Category = #12473#12524#12483#12489
-      AutoCheck = True
-      Caption = #12377#12409#12390#34920#31034'(&A)'
-      GroupIndex = 2
-      Hint = #12473#12524#12483#12489#12434#12377#12409#12390#34920#31034#12377#12427
-      ImageIndex = 9
-      OnExecute = AllResActionExecute
-      OnUpdate = AllResActionUpdate
+    object EditAction: TAction
+      Category = 'NGword'
+      Caption = 'EditAction'
+      Hint = 'NG'#12527#12540#12489#12501#12449#12452#12523#32232#38598
+      OnExecute = NG1Click
+    end
+    object ReloadAction: TAction
+      Category = 'NGword'
+      Caption = 'ReloadAction'
+      Hint = 'NG'#12527#12540#12489#35501#12415#36796#12415#65288#20877#35501#12415#36796#12415#65289
+      OnExecute = ReloadClick
+    end
+    object GoFowardAction: TAction
+      Category = 'NGword'
+      Caption = 'GoFowardAction'
+      Hint = 'NG'#12527#12540#12489#35501#12415#36796#12415#65288#19968#12388#24460#12429#65289
+      OnExecute = GoFowardClick
+    end
+    object GoBackAction: TAction
+      Category = 'NGword'
+      Caption = 'GoBackAction'
+      Hint = 'NG'#12527#12540#12489#35501#12415#36796#12415#65288#19968#12388#21069#65289
+      OnExecute = GoBackClick
     end
   end
   object MainMenu: TMainMenu
@@ -8363,17 +8387,17 @@ object GikoForm: TGikoForm
       end
       object NG2: TMenuItem
         Caption = 'NG'#12527#12540#12489#35501#12415#36796#12415
-        object N42: TMenuItem
+        object GoBack: TMenuItem
           Caption = #19968#12388#21069
-          OnClick = N42Click
+          OnClick = GoBackClick
         end
-        object N41: TMenuItem
+        object Reload: TMenuItem
           Caption = #20877#35501#12415#36796#12415
-          OnClick = N41Click
+          OnClick = ReloadClick
         end
-        object N49: TMenuItem
+        object GoFoward: TMenuItem
           Caption = #19968#12388#24460#12429
-          OnClick = N49Click
+          OnClick = GoFowardClick
         end
       end
       object N43: TMenuItem

diff --git a/Giko.pas b/Giko.pas
index a9206ab..8d4ac96 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -449,9 +449,13 @@ type
     ToolButton16: TToolButton;
     AllResAction: TAction;
     AllResToolButton: TToolButton;
-    N41: TMenuItem;
-    N42: TMenuItem;
-    N49: TMenuItem;
+    Reload: TMenuItem;
+    GoBack: TMenuItem;
+    GoFoward: TMenuItem;
+    EditAction: TAction;
+    ReloadAction: TAction;
+    GoFowardAction: TAction;
+    GoBackAction: TAction;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -695,9 +699,9 @@ type
       Shift: TShiftState);
     procedure AllResActionExecute(Sender: TObject);
     procedure AllResActionUpdate(Sender: TObject);
-    procedure N41Click(Sender: TObject);
-    procedure N42Click(Sender: TObject);
-    procedure N49Click(Sender: TObject);
+    procedure ReloadClick(Sender: TObject);
+    procedure GoBackClick(Sender: TObject);
+    procedure GoFowardClick(Sender: TObject);
        private
                { Private \90é\8c¾ }
 
@@ -6788,7 +6792,7 @@ begin
        AllResAction.Enabled := GetActiveContent <> nil;
 end;
 
-procedure TGikoForm.N41Click(Sender: TObject);
+procedure TGikoForm.ReloadClick(Sender: TObject);
 var
         ThreadItem : TThreadItem;
 begin
@@ -6803,7 +6807,7 @@ begin
 
 end;
 
-procedure TGikoForm.N42Click(Sender: TObject);
+procedure TGikoForm.GoBackClick(Sender: TObject);
 var
     ThreadItem : TThreadItem;
 begin
@@ -6819,7 +6823,7 @@ begin
 
 end;
 
-procedure TGikoForm.N49Click(Sender: TObject);
+procedure TGikoForm.GoFowardClick(Sender: TObject);
 var
     ThreadItem : TThreadItem;
 begin