From 7e17f8556375cdf51ad2bc87270f45fc21f93de7 Mon Sep 17 00:00:00 2001
From: naru <bottle@mikage.to>
Date: Mon, 21 Apr 2003 19:52:19 +0000
Subject: [PATCH] Added actResetPlugins

---
 bottleclient/MainForm.dfm | 11 +++++++++++
 bottleclient/MainForm.pas | 10 ++++++++++
 2 files changed, 21 insertions(+)

diff --git a/bottleclient/MainForm.dfm b/bottleclient/MainForm.dfm
index fe50b74..976ccce 100755
--- a/bottleclient/MainForm.dfm
+++ b/bottleclient/MainForm.dfm
@@ -563,10 +563,16 @@ object frmSender: TfrmSender
       object N4: TMenuItem
         Caption = '-'
       end
+      object mnResetPlugins: TMenuItem
+        Action = actResetPlugins
+      end
       object mnGetNewId: TMenuItem
         Caption = '&LUID'#21462#24471
         OnClick = mnGetNewIdClick
       end
+      object N7: TMenuItem
+        Caption = '-'
+      end
       object mnAbout: TMenuItem
         Caption = #12496#12540#12472#12519#12531#24773#22577'(&A)...'
         Hint = #12496#12540#12472#12519#12531#24773#22577
@@ -775,6 +781,11 @@ object frmSender: TfrmSender
       ImageIndex = 42
       OnExecute = actEditorPreviewExecute
     end
+    object actResetPlugins: TAction
+      Caption = #12503#12521#12464#12452#12531#12522#12475#12483#12488'(&P)'
+      Hint = #12503#12521#12464#12452#12531#12434#20877#35501#36796#12375#12289#12469#12540#12501#12451#12473#12461#12515#12483#12471#12517#12434#12463#12522#12450
+      OnExecute = actResetPluginsExecute
+    end
   end
   object mnPopUp: TPopupMenu
     Images = imgIcon
diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 4a0c591..5764e8f 100755
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -155,6 +155,9 @@ type
     tbtnEditorPreview: TToolButton;
     actEditorPreview: TAction;
     mnEditorPreview: TMenuItem;
+    actResetPlugins: TAction;
+    N7: TMenuItem;
+    mnResetPlugins: TMenuItem;
     procedure actConfirmExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -238,6 +241,7 @@ type
       Y: Integer);
     procedure actRecallScriptBufferExecute(Sender: TObject);
     procedure actEditorPreviewExecute(Sender: TObject);
+    procedure actResetPluginsExecute(Sender: TObject);
   private
     FSleeping: boolean;
     FStatusText: String;
@@ -2661,4 +2665,10 @@ begin
   EditorPreview;
 end;
 
+procedure TfrmSender.actResetPluginsExecute(Sender: TObject);
+begin
+  Spps.ClearImagePool;
+  Spps.LoadFromDirectory(FSppDir);
+end;
+
 end.
-- 
2.11.0