TBottleChainNoDispatchAction added

diff --git a/bottleclient/BottleChainRule.pas b/bottleclient/BottleChainRule.pas
index da94e02..662dfd2 100755 (executable)
--- a/bottleclient/BottleChainRule.pas
+++ b/bottleclient/BottleChainRule.pas
@@ -237,10 +237,16 @@ type
     property LogNames: TStrings read FLogNames write SetLogNames;
   end;
 
+  TBottleChainNoDispatchAction = class(TBottleChainAction)
+  public
+    class function Title: String; override;
+  end;
+
 const
-  BottleChainActions: array [0..3] of TBottleChainActionClass = (
+  BottleChainActions: array [0..4] of TBottleChainActionClass = (
     TBottleChainLogAction,
     TBottleChainSoundAction,
+    TBottleChainNoDispatchAction,
     TBottleChainAbortRuleAction,
     TBottleChainQuitAction
   );
@@ -951,6 +957,13 @@ begin
   Result := '\83\81\83b\83Z\81[\83W\82Ì\83^\83C\83v\82ª(\8ew\92è)\82Ì\82Æ\82«';
 end;
 
+{ TBottleChainNoDispatchAction }
+
+class function TBottleChainNoDispatchAction.Title: String;
+begin
+  Result := '\82±\82Ì\83\81\83b\83Z\81[\83W\82ðSSTP\83T\81[\83o\82É\93]\91\97\82µ\82È\82¢';
+end;
+
 initialization
 
 RegisterClasses([TBottleChainRule, TBottleChainRuleList]);