スレッド一覧の右クリックメニューに保存を追加

diff --git a/Giko.dfm b/Giko.dfm
index 97ad9f2..5cf7ae3 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -5162,6 +5162,18 @@ object GikoForm: TGikoForm
     object LPMSep06: TMenuItem
       Caption = '-'
     end
+    object SaveThreadFile: TMenuItem
+      Caption = #36984#25246#12473#12524#12483#12489#12434#20445#23384#12377#12427
+      object HTML1: TMenuItem
+        Action = GikoDM.SelectItemSaveForHTML
+      end
+      object DAT4: TMenuItem
+        Action = GikoDM.SelectItemSaveForDat
+      end
+    end
+    object N79: TMenuItem
+      Caption = '-'
+    end
     object ViewPMenu: TMenuItem
       Caption = #34920#31034'(&V)'
       object LargeIconLPMenu: TMenuItem

diff --git a/Giko.pas b/Giko.pas
index 9a6e5f4..c281c76 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -412,6 +412,10 @@ type
     FavoriteTreeItemNameCopyPopupMenu: TMenuItem;
     N77: TMenuItem;
     N78: TMenuItem;
+    SaveThreadFile: TMenuItem;
+    N79: TMenuItem;
+    HTML1: TMenuItem;
+    DAT4: TMenuItem;
                                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure BrowserStatusTextChange(Sender: TObject;
@@ -3798,7 +3802,7 @@ begin
        LPMSep06.Visible := bCategory or bBoard;
        BoardFavoriteAddMenu.Visible := bCategory;
        ThreadFavoriteAddMenu.Visible := bBoard;
-
+    SaveThreadFile.Visible := bBoard;
        AddRoundNameMenu(ItemReservPMenu);
        AddRoundNameMenu(ListReservPMenu);
 end;