Confirm option added

diff --git a/bottleclient/SettingForm.dfm b/bottleclient/SettingForm.dfm
index 2690766..6016a36 100755 (executable)
--- a/bottleclient/SettingForm.dfm
+++ b/bottleclient/SettingForm.dfm
@@ -27,7 +27,7 @@ object frmSetting: TfrmSetting
     Top = 8
     Width = 379
     Height = 306
-    ActivePage = tstChannel
+    ActivePage = tstReceive
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 0
     object tstGeneral: TTabSheet
@@ -259,7 +259,7 @@ object frmSetting: TfrmSetting
       ImageIndex = 4
       object lblWaitScriptEnd: TLabel
         Left = 16
-        Top = 208
+        Top = 240
         Width = 175
         Height = 12
         Caption = #12473#12463#12522#12503#12488#12398#26368#24460#12395#12454#12455#12452#12488#25407#20837'(&W)'
@@ -267,7 +267,7 @@ object frmSetting: TfrmSetting
       end
       object spnWaitScriptEnd: TSpinEdit
         Left = 208
-        Top = 202
+        Top = 234
         Width = 65
         Height = 21
         Hint = #21336#20301#12399'50ms'#12290'9'#12391'\w9'#12434#25407#20837#12377#12427
@@ -280,7 +280,7 @@ object frmSetting: TfrmSetting
         Left = 8
         Top = 8
         Width = 353
-        Height = 185
+        Height = 217
         Images = frmSender.imgIcon
         Indent = 19
         Options = []
@@ -315,7 +315,9 @@ object frmSetting: TfrmSetting
           686F7374416674657253656E6402000100080200000108001054435043436865
           636B426F784E6F64650122837B8367838B9197904D8CE382C98358834E838A83
           768367979382F0834E838A83410E436C656172416674657253656E6402000100
-          0802000001080000090200000102110000}
+          080200000108001054435043436865636B426F784E6F646501269197904D914F
+          82C9836083838393836C838B82C68353815B8358836782F08A6D944682B782E9
+          07436F6E6669726D020001000802000001080000090200000102110000}
       end
     end
     object tstChannel: TTabSheet

diff --git a/bottleclient/SettingForm.pas b/bottleclient/SettingForm.pas
index 74ab451..a916955 100755 (executable)
--- a/bottleclient/SettingForm.pas
+++ b/bottleclient/SettingForm.pas
@@ -119,6 +119,7 @@ begin
       (GetNodeFromKeyPath('Arrive\FixMessySurface') as TCPCCheckBoxNode).Checked := Pref.FixMessySurface;
       (GetNodeFromKeyPath('Out\ResetIfGhostAfterSend') as TCPCCheckBoxNode).Checked := Pref.ResetIfGhostAfterSend;
       (GetNodeFromKeyPath('Out\ClearAfterSend') as TCPCCheckBoxNode).Checked := Pref.ClearAfterSend;
+      (GetNodeFromKeyPath('Out\Confirm') as TCPCCheckBoxNode).Checked := not Pref.NoConfirm;
     end;
   except
     on E: Exception do ShowMessage(E.Message);
@@ -172,6 +173,7 @@ begin
       Pref.FixMessySurface := (GetNodeFromKeyPath('Arrive\FixMessySurface') as TCPCCheckBoxNode).Checked;
       Pref.ResetIfGhostAfterSend := (GetNodeFromKeyPath('Out\ResetIfGhostAfterSend') as TCPCCheckBoxNode).Checked;
       Pref.ClearAfterSend := (GetNodeFromKeyPath('Out\ClearAfterSend') as TCPCCheckBoxNode).Checked;
+      Pref.NoConfirm := not (GetNodeFromKeyPath('Out\Confirm') as TCPCCheckBoxNode).Checked;
     end;
   except
     on E: Exception do ShowMessage(E.Message);