+// \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;