単体アクションを追加

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 910598f..3917c86 100755 (executable)
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -382,7 +382,14 @@ begin
   if Log = nil then Exit;
   if Log.LogType <> ltBottle then
     Exit;
-  Script := frmSender.ScriptTransForSSTP(Log.Script, ErrorMes);
+  //\92P\91Ì\83A\83N\83V\83\87\83\93\82ª\97L\8cø\82Å\82 \82ê\82Î\83X\83N\83\8a\83v\83g\82Ì\95Ï\8a·\82µ\82È\82¢
+  if NOT Pref.LogOneAction then
+    Script := frmSender.ScriptTransForSSTP(Log.Script, ErrorMes)
+  else
+  begin
+    Script :=  Log.Script;
+    ErrorMes := '';
+  end;
   if ErrorMes <> '' then
   begin
     Res := MessageDlg('\96â\91è\82Ì\82 \82é\83X\83N\83\8a\83v\83g\82Å\82·\81B\8dÄ\90¶\82Å\82«\82Ü\82¹\82ñ\81B'#13#10+
@@ -396,8 +403,20 @@ begin
 
   CueItem := TLogItem.Create(Log);
   try
-    CueItem.Script := Script;
-    frmSender.BottleSstp.Unshift(CueItem);
+    //\83A\83N\83V\83\87\83\93\82ª\97L\8cø\82Å\82 \82ê\82Î\92Ê\8fí\8f\88\97\9d\8fÈ\97ª
+    if not Pref.LogOneAction then begin
+      CueItem.Script := Script;
+      frmSender.BottleSstp.Unshift(CueItem);
+    end else begin
+      //\8c^\95Ï\8a·\82Æ\8eó\90M
+      frmSender.BottleCnv(CueItem.MID
+                         ,CueItem.Channel
+                         ,CueItem.Ghost
+                         ,Script
+                         ,CueItem.Votes
+                         ,CueItem.Agrees
+                         ,CueItem.LogTime);
+    end;
   except
     CueItem.Free;
   end;