IdAntiFreezeを貼り付けた (ToDo #347)

diff --git a/bottleclient/MainForm.dfm b/bottleclient/MainForm.dfm
index 2a49e29..83b215c 100755 (executable)
--- a/bottleclient/MainForm.dfm
+++ b/bottleclient/MainForm.dfm
@@ -27,7 +27,7 @@ object frmSender: TfrmSender
   TextHeight = 12
   object StatusBar: TStatusBar
     Left = 0
-    Top = 233
+    Top = 241
     Width = 526
     Height = 19
     Panels = <
@@ -50,6 +50,7 @@ object frmSender: TfrmSender
       item
         Width = 50
       end>
+    SimplePanel = False
   end
   object ToolBar: TToolBar
     Left = 0
@@ -170,14 +171,14 @@ object frmSender: TfrmSender
     Left = 0
     Top = 46
     Width = 526
-    Height = 162
+    Height = 170
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 2
     TabOrder = 4
     object tabChannel: TTabControl
       Left = 2
-      Top = 134
+      Top = 142
       Width = 522
       Height = 26
       Align = alBottom
@@ -201,7 +202,7 @@ object frmSender: TfrmSender
       Left = 2
       Top = 2
       Width = 522
-      Height = 132
+      Height = 140
       Cursor = crIBeam
       Align = alClient
       Caret.AutoCursor = True
@@ -338,7 +339,7 @@ object frmSender: TfrmSender
   end
   object pnlPanel: TPanel
     Left = 0
-    Top = 208
+    Top = 216
     Width = 526
     Height = 25
     Align = alBottom
@@ -2780,4 +2781,9 @@ object frmSender: TfrmSender
     Left = 424
     Top = 104
   end
+  object AntiFreeze: TIdAntiFreeze
+    OnlyWhenIdle = False
+    Left = 392
+    Top = 104
+  end
 end

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index c5910d7..65448ff 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -19,7 +19,7 @@ uses
   ScriptConsts, DateUtils, BottleChainRule, BottleChainEvent,
   SakuraSeekerInstance, HEditor, HTSearch, heClasses, heFountain,
   SakuraScriptFountain, SppList, SurfacePreview, XDOM_2_3_J3, SsPlayTime,
-  RegexUtils, StrReplace, StrReplaceDialog;
+  RegexUtils, StrReplace, StrReplaceDialog, IdAntiFreezeBase, IdAntiFreeze;
 
 type
   TSurfacePreviewType = (spHint, spEditor);
@@ -176,6 +176,7 @@ type
     mnUndo: TMenuItem;
     mnRedo: TMenuItem;
     N9: TMenuItem;
+    AntiFreeze: TIdAntiFreeze;
     procedure actConfirmExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -282,8 +283,6 @@ type
     FConstDir: String;
     FSppDir: String;
     //
-    FMutex: THandle; //Mutex\83I\83u\83W\83F\83N\83g\81c\93ñ\8fd\8bN\93®\96h\8e~\97p
-    //
     FNowChannel: String; //\8c»\8dÝ\91I\91ð\82³\82ê\82Ä\82¢\82é\83`\83\83\83\93\83l\83\8b
     JoinChannelsBackup: TStringList; //\88ê\8e\9e\8eg\97p
     //