uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil;
+ Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil, ExtCtrls, StrUtils;
type
TKuroutOption = class(TForm)
GroupBox1: TGroupBox;
GengoSupport: TCheckBox;
Label5: TLabel;
- GroupBox2: TGroupBox;
- LocalTrapAtt: TCheckBox;
- RemoteTrapAtt: TCheckBox;
Label6: TLabel;
ReadTimeOut: TEdit;
Label7: TLabel;
+ KakikomiTabSheet: TTabSheet;
+ CookieGroupBox: TGroupBox;
+ Label8: TLabel;
+ FixedCookieEdit: TEdit;
+ Label9: TLabel;
+ GroupBox3: TGroupBox;
+ Label10: TLabel;
+ MoveHistoryMaxEdit: TEdit;
+ Label11: TLabel;
+ AHandredGroupBox: TGroupBox;
+ AHandredLabeledEdit: TLabeledEdit;
+ AHandredUpDown: 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;
+ ExtListLabeledEdit: TLabeledEdit;
+ Label15: TLabel;
+ LogGroupBox: TGroupBox;
+ CheckDatFileCheckBox: TCheckBox;
+ RespopupTabSheet: TTabSheet;
+ RespopuGroupBox: TGroupBox;
+ DeltaXLabeledEdit: TLabeledEdit;
+ DeltaYLabeledEdit: TLabeledEdit;
+ DeltaXUpDown: TUpDown;
+ DeltaYUpDown: TUpDown;
+ Label16: TLabel;
+ RespopupWaitLabeledEdit: TLabeledEdit;
+ RespopupWaitUpDown: TUpDown;
+ Label19: TLabel;
+ RespopupMailToCheckBox: TCheckBox;
+ ResRangeLabeledEdit: TLabeledEdit;
+ ResRangeCountUpDown: TUpDown;
+ UseGobakuCheckBox: TCheckBox;
procedure OkBottonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CDeleteButtonClick(Sender: TObject);
procedure CDownButtonClick(Sender: TObject);
procedure BUpButtonClick(Sender: TObject);
procedure BDownButtonClick(Sender: TObject);
+ procedure MoveHistoryMaxEditExit(Sender: TObject);
+ procedure AHandredLabeledEditExit(Sender: TObject);
+ procedure ExtListLabeledEditExit(Sender: TObject);
+ procedure DeltaXLabeledEditExit(Sender: TObject);
+ procedure DeltaYLabeledEditExit(Sender: TObject);
+ procedure RespopupWaitLabeledEditExit(Sender: TObject);
+ procedure ResRangeLabeledEditExit(Sender: TObject);
private
{ Private \90é\8c¾ }
procedure SetValue;
//FusianaSet
LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
+ // Cookie
+ 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
+ AHandredUpDown.Position := GikoSys.Setting.HeadResCount;
+ // \95\\8e¦\83\8c\83X\90\94
+ ResRangeCountUpDown.Position := GikoSys.Setting.ResRangeExCount;
+ // \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;
+ ExtListLabeledEdit.Text := GikoSys.Setting.ExtList;
+ // Folder.idx\93Ç\82Ý\8d\9e\82Ý\8e\9edat\83`\83F\83b\83N
+ CheckDatFileCheckBox.Checked := GikoSys.Setting.CheckDatFile;
+ DeltaXUpDown.Position := GikoSys.Setting.RespopupDeltaX;
+ DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY;
+ RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait;
+ RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo;
+ // \8cë\94\9a\83`\83F\83b\83N
+ UseGobakuCheckBox.Checked := GikoSys.Setting.UseGobakuCheck;
end;
procedure TKuroutOption.SaveSetting;
else
GikoSys.Setting.TimeAdjustSec := 0;
GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
- //2ch\8c¾\8cê\83T\83|\81[\83g
- GikoSys.Setting.GengoSupport := GengoSupport.Checked;
- GikoSys.SetGikoMessage;
- //\83\8d\81[\83J\83\8b\81E\83\8a\83\82\81[\83g̼±Å\8cx\8d\90
- GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
- GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
-
+ //2ch\8c¾\8cê\83T\83|\81[\83g
+ GikoSys.Setting.GengoSupport := GengoSupport.Checked;
+ GikoSys.SetGikoMessage;
+ //\83\8d\81[\83J\83\8b\81E\83\8a\83\82\81[\83g̼±Å\8cx\8d\90
+ GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
+ GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
+ // Cookie
+ GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;
+
+ // \83\8a\83\93\83N\88Ú\93®\97\9a\97ð
+ 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.ResRangeExCount :=
+ StrToIntDef( ResRangeLabeledEdit.Text , 100 );
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;
+ GikoSys.Setting.ExtList := ExtListLabeledEdit.Text;
+ // Folder.idx\93Ç\82Ý\8d\9e\82Ý\8e\9edat\83`\83F\83b\83N
+ GikoSys.Setting.CheckDatFile := CheckDatFileCheckBox.Checked;
+
+ GikoSys.Setting.RespopupDeltaX := StrToInt(DeltaXLabeledEdit.Text);
+ GikoSys.Setting.RespopupDeltaY := StrToInt(DeltaYLabeledEdit.Text);
+ GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text);
+ GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;
+ GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked;
+ // \8cë\94\9a\83`\83F\83b\83N
+ GikoSys.Setting.UseGobakuCheck := UseGobakuCheckBox.Checked;
+
end;
procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
begin
RecvBufferSizeExit(Sender);
PostTimeEditExit(Sender);
- PostColumnData();
+ MoveHistoryMaxEditExit(Sender);
+ AHandredLabeledEditExit(Sender);
+ ExtListLabeledEditExit(Sender);
+ DeltaXLabeledEditExit(Sender);
+ DeltaYLabeledEditExit(Sender);
+ RespopupWaitLabeledEditExit(Sender);
+ PostColumnData();
SaveSetting;
end;
//\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;
+
+procedure TKuroutOption.ExtListLabeledEditExit(Sender: TObject);
+begin
+ if AnsiEndsStr(';', ExtListLabeledEdit.Text) then begin
+ ExtListLabeledEdit.Text :=
+ Copy(ExtListLabeledEdit.Text, 0,
+ Length(ExtListLabeledEdit.Text) - 1);
+ end;
+end;
+// \83\8c\83X\83|\83b\83v\83A\83b\83v\88Ê\92uX
+procedure TKuroutOption.DeltaXLabeledEditExit(Sender: TObject);
+begin
+ if not GikoSys.IsNumeric(DeltaXLabeledEdit.Text) then
+ DeltaXLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupDeltaX);
+ if StrToInt(DeltaXLabeledEdit.Text) < DeltaXUpDown.Min then
+ DeltaXLabeledEdit.Text := IntToStr(DeltaXUpDown.Min);
+ if StrToInt(DeltaXLabeledEdit.Text) > DeltaXUpDown.Max then
+ DeltaXLabeledEdit.Text:= IntToStr(DeltaXUpDown.Max);
+end;
+// \83\8c\83X\83|\83b\83v\83A\83b\83v\88Ê\92uY
+procedure TKuroutOption.DeltaYLabeledEditExit(Sender: TObject);
+begin
+ if not GikoSys.IsNumeric(DeltaYLabeledEdit.Text) then
+ DeltaYLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupDeltaY);
+ if StrToInt(DeltaYLabeledEdit.Text) < DeltaYUpDown.Min then
+ DeltaYLabeledEdit.Text := IntToStr(DeltaYUpDown.Min);
+ if StrToInt(DeltaYLabeledEdit.Text) > DeltaYUpDown.Max then
+ DeltaYLabeledEdit.Text := IntToStr(DeltaYUpDown.Max);
+end;
+
+procedure TKuroutOption.RespopupWaitLabeledEditExit(Sender: TObject);
+begin
+ if not GikoSys.IsNumeric(RespopupWaitLabeledEdit.Text) then
+ RespopupWaitLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupWait);
+ if StrToInt(RespopupWaitLabeledEdit.Text) < RespopupWaitUpDown.Min then
+ RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Min);
+ if StrToInt(RespopupWaitLabeledEdit.Text) > RespopupWaitUpDown.Max then
+ RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Max);
+end;
+
+procedure TKuroutOption.ResRangeLabeledEditExit(Sender: TObject);
+begin
+ if not GikoSys.IsNumeric(ResRangeLabeledEdit.Text) then
+ ResRangeLabeledEdit.Text := '100';
+ if StrToInt(ResRangeLabeledEdit.Text) < 100 then
+ ResRangeLabeledEdit.Text := '100';
+ if StrToInt(ResRangeLabeledEdit.Text) > 9999 then
+ ResRangeLabeledEdit.Text := '9999';
+end;
end.