スレ一覧のポップアップメニューに選択スレのHTML化保存を追加

diff --git a/Giko.dfm b/Giko.dfm
index 7bf2bae..3aacf5d 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -10434,6 +10434,13 @@ object GikoForm: TGikoForm
     object N22: TMenuItem
       Caption = '-'
     end
+    object SelectItemSaveForHTML1: TMenuItem
+      Action = SelectItemSaveForHTML
+      Caption = #36984#25246#12473#12524#12483#12489#12434'HTML'#21270#12375#12390#20445#23384
+    end
+    object N55: TMenuItem
+      Caption = '-'
+    end
     object UrlCopyPMenu: TMenuItem
       Action = SelectItemURLCopyAction
     end
@@ -10481,8 +10488,6 @@ object GikoForm: TGikoForm
         RadioItem = True
       end
     end
-    object na1: TMenuItem
-    end
   end
   object KokoPopupMenu: TPopupMenu
     Left = 68

diff --git a/Giko.pas b/Giko.pas
index 60afbe2..3e130e0 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -541,10 +541,11 @@ type
     BrowserMaxAndFocusAction: TAction;
     UpBoardButton: TToolButton;
     SelectTimer: TTimer;
-    na1: TMenuItem;
     SelectThreadSave: TMenuItem;
     SelectItemSaveForHTML: TAction;
     FileSaveAs1: TFileSaveAs;
+    SelectItemSaveForHTML1: TMenuItem;
+    N55: TMenuItem;
                                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -5508,7 +5509,7 @@ begin
        LPMSep05.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
        DeletePMenu.Visible := (GetActiveList is TBoard);
        LPMSep06.Visible := (GetActiveList is TCategory) or (GetActiveList is TBoard);
-
+       SelectItemSaveForHTML1.Visible := (GetActiveList is TBoard);
        BoardFavoriteAddMenu.Visible := (GetActiveList is TCategory);
        ThreadFavoriteAddMenu.Visible := (GetActiveList is TBoard);