This commit was manufactured by cvs2svn to create branch 'Bb55'.

[gikonavigoeson/gikonavi.git] / KuroutSetting.pas

diff --git a/KuroutSetting.pas b/KuroutSetting.pas
index 1edd79d..d8d8872 100644 (file)
--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -74,6 +74,11 @@ type
     RemoteTrapAtt: TCheckBox;
     ReplaceDatCheckBox: TCheckBox;
     Label12: TLabel;
+    GroupBox4: TGroupBox;
+    SentIniFileSizeEdit: TEdit;
+    SentIniFileSizeUpDown: TUpDown;
+    Label13: TLabel;
+    Label14: TLabel;
        procedure OkBottonClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure CDeleteButtonClick(Sender: TObject);
@@ -146,6 +151,7 @@ begin
     AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
     // \8cë\94½\89\9e\91Î\8dô
     ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat;
+    SentIniFileSizeUpDown.Position := GikoSys.Setting.SentIniFileSize;
 end;
 
 procedure TKuroutOption.SaveSetting;
@@ -186,6 +192,7 @@ begin
     GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;
     // \8cë\94½\89\9e\91Î\8dô
     GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked;
+    GikoSys.Setting.SentIniFileSize := SentIniFileSizeUpDown.Position;
 end;
 
 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);