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

[gikonavigoeson/gikonavi.git] / KuroutSetting.pas

diff --git a/KuroutSetting.pas b/KuroutSetting.pas
index 156cf66..d8d8872 100644 (file)
--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil;
+  Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil, ExtCtrls;
 
 type
   TKuroutOption = class(TForm)
@@ -50,9 +50,6 @@ type
     GroupBox1: TGroupBox;
     GengoSupport: TCheckBox;
     Label5: TLabel;
-    GroupBox2: TGroupBox;
-    LocalTrapAtt: TCheckBox;
-    RemoteTrapAtt: TCheckBox;
     Label6: TLabel;
     ReadTimeOut: TEdit;
     Label7: TLabel;
@@ -65,6 +62,23 @@ type
     Label10: TLabel;
     MoveHistoryMaxEdit: TEdit;
     Label11: TLabel;
+    AHandredGroupBox: TGroupBox;
+    AHandredLabeledEdit: TLabeledEdit;
+    UpDown1: TUpDown;
+    ThreadGroupBox: TGroupBox;
+    AddKeywordCheckBox: TCheckBox;
+    TabSheet2: TTabSheet;
+    SecurityGroupBox: TGroupBox;
+    GroupBox2: TGroupBox;
+    LocalTrapAtt: TCheckBox;
+    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);
@@ -75,6 +89,8 @@ type
     procedure CDownButtonClick(Sender: TObject);
     procedure BUpButtonClick(Sender: TObject);
     procedure BDownButtonClick(Sender: TObject);
+    procedure MoveHistoryMaxEditExit(Sender: TObject);
+    procedure AHandredLabeledEditExit(Sender: TObject);
   private
        { Private \90é\8c¾ }
        procedure SetValue;
@@ -129,6 +145,13 @@ begin
     FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;
     // \83\8a\83\93\83N\88Ú\93®\97\9a\97ð
     MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
+    //\81@\90æ\93ª\95\\8e¦\83\8c\83X\90\94
+    AHandredLabeledEdit.Text := IntToStr( GikoSys.Setting.HeadResCount );
+    // \8aÖ\98A\83L\81[\83\8f\81[\83h\92Ç\89Á\83t\83\89\83O
+    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;
@@ -160,7 +183,16 @@ begin
     GikoSys.Setting.MoveHistorySize :=
         StrToIntDef( MoveHistoryMaxEdit.Text, 20 );
 
+    //\81@\90æ\93ª\95\\8e¦\83\8c\83X\90\94
+    GikoSys.Setting.HeadResCount :=
+        StrToIntDef( AHandredLabeledEdit.Text , 1);
+
        GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
+    // \8aÖ\98A\83L\81[\83\8f\81[\83h\92Ç\89Á\83t\83\89\83O
+    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);
@@ -189,7 +221,9 @@ procedure TKuroutOption.OkBottonClick(Sender: TObject);
 begin
        RecvBufferSizeExit(Sender);
        PostTimeEditExit(Sender);
-        PostColumnData();
+    MoveHistoryMaxEditExit(Sender);
+    AHandredLabeledEditExit(Sender);
+    PostColumnData();
        SaveSetting;
 end;
 
@@ -385,5 +419,22 @@ begin
        //\83X\83\8c\88ê\97\97\82Ì\95`\89æ\82Ì\8dX\90V
        GikoForm.SetActiveList(GikoForm.ActiveList);
 end;
+// \83\8a\83\93\83N\88Ú\93®\97\9a\97ð\82Ì\95Ò\8fW\8cã\82Ì\90Ý\92è\95¶\8e\9a\97ñ\83`\83F\83b\83N
+procedure TKuroutOption.MoveHistoryMaxEditExit(Sender: TObject);
+begin
+       if not GikoSys.IsNumeric(MoveHistoryMaxEdit.Text) then
+               MoveHistoryMaxEdit.Text := '20';
+    if StrToInt(MoveHistoryMaxEdit.Text) < 1 then
+        MoveHistoryMaxEdit.Text := '1';
+end;
+// \90æ\93ª\95\\8e¦\83\8c\83X\90\94\82Ì\95Ò\8fW\8cã\82Ì\90Ý\92è\95¶\8e\9a\97ñ\83`\83F\83b\83N
+procedure TKuroutOption.AHandredLabeledEditExit(Sender: TObject);
+begin
+       if not GikoSys.IsNumeric(AHandredLabeledEdit.Text) then
+               AHandredLabeledEdit.Text := '1';
+    if StrToInt(AHandredLabeledEdit.Text) < 1 then
+        AHandredLabeledEdit.Text := '1';
+
+end;
 
 end.