最小送信バイト数の設定を追加（主にポカミス防止用 ToDo ID=380）

[winbottle/winbottle.git] / bottleclient / SettingForm.pas

diff --git a/bottleclient/SettingForm.pas b/bottleclient/SettingForm.pas
index f76a538..277c028 100755 (executable)
--- a/bottleclient/SettingForm.pas
+++ b/bottleclient/SettingForm.pas
@@ -114,6 +114,8 @@ type
     edtProxyPass: TEdit;
     lblProxyUser: TLabel;
     lblProxyPass: TLabel;
+    lblMinScriptLength: TLabel;
+    spnMinScriptLength: TSpinEdit;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure edtProxyPortKeyPress(Sender: TObject; var Key: Char);
     procedure ctvBottleNodeChecked(Sender: TObject;
@@ -233,6 +235,8 @@ begin
   end;
   //cbxIgnoreFrequentYenS.Checked := Pref.IgnoreFrequentYenS;
   spnWaitScriptEnd.Value := Pref.WaitScriptEnd;
+  spnMinScriptLength.Value := Pref.MinScriptLength;
+  spnMinScriptLength.MinValue := DefaultMinScriptLength;
   //
   rgpWhenReturn.ItemIndex := Ord(Pref.WhenReturn);
   rgpWhenShiftReturn.ItemIndex := Ord(Pref.WhenShiftReturn);
@@ -331,6 +335,7 @@ begin
   end;
   //Pref.IgnoreFrequentYenS := cbxIgnoreFrequentYenS.Checked;
   Pref.WaitScriptEnd := spnWaitScriptEnd.Value;
+  Pref.MinScriptLength := spnMinScriptLength.Value;
   //
   Pref.WhenReturn := TReturnKeyFunction(rgpWhenReturn.ItemIndex);
   Pref.WhenShiftReturn := TReturnKeyFunction(rgpWhenShiftReturn.ItemIndex);