KuroutSetting.pas

   1 unit KuroutSetting;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil, ExtCtrls, StrUtils;
   8
   9 type
  10   TKuroutOption = class(TForm)
  11         PageControl1: TPageControl;
  12         TabSheet1: TTabSheet;
  13         GroupBox11: TGroupBox;
  14         Label17: TLabel;
  15         Label18: TLabel;
  16         RecvBufferSize: TEdit;
  17         ProxyProtocolCheckBox: TCheckBox;
  18         ProtocolCheckBox: TCheckBox;
  19         GroupBox13: TGroupBox;
  20         Label24: TLabel;
  21         Label25: TLabel;
  22         PostTimeLabel: TLabel;
  23         Label27: TLabel;
  24         PostTimeCheckBox: TCheckBox;
  25         PostTimeEdit: TEdit;
  26         PutPostTimeRadioButton: TRadioButton;
  27         BackPostTimeRadioButton: TRadioButton;
  28         OkBotton: TButton;
  29         CancelBotton: TButton;
  30         ApplyButton: TButton;
  31         ColumnTabSheet: TTabSheet;
  32         CategoryColumnGroupBox: TGroupBox;
  33         CUnVisibledListBox: TListBox;
  34         CVisibledListBox: TListBox;
  35         CAddButton: TButton;
  36         CDeleteButton: TButton;
  37         BoardColumnGroupBox: TGroupBox;
  38         BUnVisibledListBox: TListBox;
  39         BVisibledListBox: TListBox;
  40         BAddButton: TButton;
  41         BDeleteButton: TButton;
  42         Label1: TLabel;
  43         Label2: TLabel;
  44         Label3: TLabel;
  45         Label4: TLabel;
  46         CUpButton: TButton;
  47         CDownButton: TButton;
  48         BUpButton: TButton;
  49         BDownButton: TButton;
  50     GroupBox1: TGroupBox;
  51     GengoSupport: TCheckBox;
  52     Label5: TLabel;
  53     Label6: TLabel;
  54     ReadTimeOut: TEdit;
  55     Label7: TLabel;
  56     KakikomiTabSheet: TTabSheet;
  57     CookieGroupBox: TGroupBox;
  58     Label8: TLabel;
  59     FixedCookieEdit: TEdit;
  60     Label9: TLabel;
  61     GroupBox3: TGroupBox;
  62     Label10: TLabel;
  63     MoveHistoryMaxEdit: TEdit;
  64     Label11: TLabel;
  65     AHandredGroupBox: TGroupBox;
  66     AHandredLabeledEdit: TLabeledEdit;
  67     AHandredUpDown: TUpDown;
  68     ThreadGroupBox: TGroupBox;
  69     AddKeywordCheckBox: TCheckBox;
  70     TabSheet2: TTabSheet;
  71     SecurityGroupBox: TGroupBox;
  72     GroupBox2: TGroupBox;
  73     LocalTrapAtt: TCheckBox;
  74     RemoteTrapAtt: TCheckBox;
  75     ReplaceDatCheckBox: TCheckBox;
  76     Label12: TLabel;
  77     GroupBox4: TGroupBox;
  78     SentIniFileSizeEdit: TEdit;
  79     SentIniFileSizeUpDown: TUpDown;
  80     Label13: TLabel;
  81     Label14: TLabel;
  82     ExtListLabeledEdit: TLabeledEdit;
  83     Label15: TLabel;
  84     LogGroupBox: TGroupBox;
  85     CheckDatFileCheckBox: TCheckBox;
  86     RespopupTabSheet: TTabSheet;
  87     RespopuGroupBox: TGroupBox;
  88     DeltaXLabeledEdit: TLabeledEdit;
  89     DeltaYLabeledEdit: TLabeledEdit;
  90     DeltaXUpDown: TUpDown;
  91     DeltaYUpDown: TUpDown;
  92     Label16: TLabel;
  93     RespopupWaitLabeledEdit: TLabeledEdit;
  94     RespopupWaitUpDown: TUpDown;
  95     Label19: TLabel;
  96     RespopupMailToCheckBox: TCheckBox;
  97         procedure OkBottonClick(Sender: TObject);
  98         procedure FormCreate(Sender: TObject);
  99         procedure CDeleteButtonClick(Sender: TObject);
 100         procedure CAddButtonClick(Sender: TObject);
 101         procedure BAddButtonClick(Sender: TObject);
 102         procedure BDeleteButtonClick(Sender: TObject);
 103     procedure CUpButtonClick(Sender: TObject);
 104     procedure CDownButtonClick(Sender: TObject);
 105     procedure BUpButtonClick(Sender: TObject);
 106     procedure BDownButtonClick(Sender: TObject);
 107     procedure MoveHistoryMaxEditExit(Sender: TObject);
 108     procedure AHandredLabeledEditExit(Sender: TObject);
 109     procedure ExtListLabeledEditExit(Sender: TObject);
 110     procedure DeltaXLabeledEditExit(Sender: TObject);
 111     procedure DeltaYLabeledEditExit(Sender: TObject);
 112     procedure RespopupWaitLabeledEditExit(Sender: TObject);
 113   private
 114         { Private \90é\8c¾ }
 115         procedure SetValue;
 116         procedure SaveSetting;
 117         procedure RecvBufferSizeExit(Sender: TObject);
 118         procedure PostTimeEditExit(Sender: TObject);
 119         procedure PostTimeCheckBoxClick(Sender: TObject);
 120         procedure SetColumnData();
 121         procedure PostColumnData();
 122   public
 123         { Public \90é\8c¾ }
 124   end;
 125
 126 var
 127   KuroutOption: TKuroutOption;
 128
 129 implementation
 130
 131 uses
 132         Giko, Setting;
 133
 134 {$R *.dfm}
 135
 136 procedure TKuroutOption.SetValue;
 137 begin
 138         //\8eó\90M\83o\83b\83t\83@\83T\83C\83Y
 139         RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize);
 140         //HTTP1.1\8eg\97p
 141         ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
 142         //\83v\83\8d\83L\83V\90Ú\91±HTTP1.1\8eg\97p
 143         ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
 144         ReadTimeOut.Text := IntToStr(GikoSys.Setting.ReadTimeOut);
 145
 146                 //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
 147         PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
 148         PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec);
 149         if GikoSys.Setting.TimeAdjust then
 150                 PutPostTimeRadioButton.Checked := True
 151         else
 152                 BackPostTimeRadioButton.Checked := True;
 153
 154         SetColumnData();
 155
 156         PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
 157
 158         //2chAnnai
 159         GengoSupport.Checked := GikoSys.Setting.GengoSupport;
 160         //FusianaSet
 161         LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
 162         RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
 163         // Cookie
 164     FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;
 165     // \83\8a\83\93\83N\88Ú\93®\97\9a\97ð
 166     MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
 167     //\81@\90æ\93ª\95\\8e¦\83\8c\83X\90\94
 168     AHandredUpDown.Position := GikoSys.Setting.HeadResCount;
 169     // \8aÖ\98A\83L\81[\83\8f\81[\83h\92Ç\89Á\83t\83\89\83O
 170     AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
 171     // \8cë\94½\89\9e\91Î\8dô
 172     ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat;
 173     SentIniFileSizeUpDown.Position := GikoSys.Setting.SentIniFileSize;
 174     ExtListLabeledEdit.Text := GikoSys.Setting.ExtList;
 175     // Folder.idx\93Ç\82Ý\8d\9e\82Ý\8e\9edat\83`\83F\83b\83N
 176     CheckDatFileCheckBox.Checked := GikoSys.Setting.CheckDatFile;
 177     DeltaXUpDown.Position := GikoSys.Setting.RespopupDeltaX;
 178     DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY;
 179     RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait;
 180     RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo;
 181 end;
 182
 183 procedure TKuroutOption.SaveSetting;
 184 begin
 185         //\8eó\90M\83o\83b\83t\83@\83T\83C\83Y
 186         Gikosys.Setting.RecvBufferSize := StrToIntDef(RecvBufferSize.Text, Gikosys.Setting.RecvBufferSize);
 187         GikoSys.Setting.ReadTimeOut := StrToIntDef(ReadTimeOut.Text, GikoSys.Setting.ReadTimeOut);
 188         //HTTP1.1\8eg\97p
 189         GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
 190         //\83v\83\8d\83L\83V\90Ú\91±HTTP1.1\8eg\97p
 191         Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
 192         //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
 193         GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
 194         if GikoSys.IsNumeric(PostTimeEdit.Text) then
 195                 GikoSys.Setting.TimeAdjustSec := StrToIntDef(PostTimeEdit.Text, GikoSys.Setting.TimeAdjustSec)
 196         else
 197                 GikoSys.Setting.TimeAdjustSec := 0;
 198         GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
 199         //2ch\8c¾\8cê\83T\83|\81[\83g
 200         GikoSys.Setting.GengoSupport := GengoSupport.Checked;
 201         GikoSys.SetGikoMessage;
 202         //\83\8d\81[\83J\83\8b\81E\83\8a\83\82\81[\83gÌ¼±Å\8cx\8d\90
 203         GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
 204         GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
 205         // Cookie
 206         GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;
 207
 208     // \83\8a\83\93\83N\88Ú\93®\97\9a\97ð
 209     GikoSys.Setting.MoveHistorySize :=
 210         StrToIntDef( MoveHistoryMaxEdit.Text, 20 );
 211
 212     //\81@\90æ\93ª\95\\8e¦\83\8c\83X\90\94
 213     GikoSys.Setting.HeadResCount :=
 214         StrToIntDef( AHandredLabeledEdit.Text , 1);
 215
 216         GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
 217     // \8aÖ\98A\83L\81[\83\8f\81[\83h\92Ç\89Á\83t\83\89\83O
 218     GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;
 219     // \8cë\94½\89\9e\91Î\8dô
 220     GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked;
 221     GikoSys.Setting.SentIniFileSize := SentIniFileSizeUpDown.Position;
 222     GikoSys.Setting.ExtList := ExtListLabeledEdit.Text;
 223     // Folder.idx\93Ç\82Ý\8d\9e\82Ý\8e\9edat\83`\83F\83b\83N
 224     GikoSys.Setting.CheckDatFile := CheckDatFileCheckBox.Checked;
 225
 226     GikoSys.Setting.RespopupDeltaX := StrToInt(DeltaXLabeledEdit.Text);
 227     GikoSys.Setting.RespopupDeltaY := StrToInt(DeltaYLabeledEdit.Text);
 228     GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text);
 229     GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;
 230     GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked;
 231 end;
 232
 233 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
 234 begin
 235         if not GikoSys.IsNumeric(RecvBufferSize.Text) then
 236                 RecvBufferSize.Text := '4096';
 237         if StrToInt(RecvBufferSize.Text) < 256 then
 238                 RecvBufferSize.Text := '4096';
 239 end;
 240
 241 procedure TKuroutOption.PostTimeEditExit(Sender: TObject);
 242 begin
 243         if not GikoSys.IsNumeric(PostTimeEdit.Text) then
 244                 PostTimeEdit.Text := '0';
 245 end;
 246
 247 procedure TKuroutOption.PostTimeCheckBoxClick(Sender: TObject);
 248 begin
 249         PostTimeLabel.Enabled := PostTimeCheckBox.Checked;
 250         PostTimeEdit.Enabled := PostTimeCheckBox.Checked;
 251         PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
 252         BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
 253 end;
 254
 255 procedure TKuroutOption.OkBottonClick(Sender: TObject);
 256 begin
 257         RecvBufferSizeExit(Sender);
 258         PostTimeEditExit(Sender);
 259     MoveHistoryMaxEditExit(Sender);
 260     AHandredLabeledEditExit(Sender);
 261     ExtListLabeledEditExit(Sender);
 262     DeltaXLabeledEditExit(Sender);
 263     DeltaYLabeledEditExit(Sender);
 264     RespopupWaitLabeledEditExit(Sender);
 265     PostColumnData();
 266         SaveSetting;
 267 end;
 268
 269 procedure TKuroutOption.FormCreate(Sender: TObject);
 270 begin
 271         SetValue;
 272         PostTimeCheckBoxClick(Sender);
 273
 274 end;
 275 procedure TKuroutOption.SetColumnData();
 276 var
 277         i, j : Integer;
 278         flag : Boolean;
 279 begin
 280
 281         //===== \94Â\83\8a\83X\83g =====
 282         for i := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
 283                 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
 284                         if GikoSys.Setting.CategoryColumnOrder[ i ] = TGikoCategoryColumnID( j ) then begin
 285                                 CVisibledListBox.AddItem(GikoCategoryColumnCaption[ j ], nil);
 286                                 break;
 287                         end;
 288                 end;
 289         end;
 290
 291         for i := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
 292                 flag := false;
 293                 for j := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
 294                         if GikoSys.Setting.CategoryColumnOrder[ j ] = TGikoCategoryColumnID( i ) then begin
 295                                 flag := true;
 296                                 break;
 297                         end;
 298                 end;
 299                 if not flag then
 300                         CUnVisibledListBox.AddItem(GikoCategoryColumnCaption[ i ], nil);
 301         end;
 302
 303         //===== \83X\83\8c\83\8a\83X\83g =====
 304         for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
 305                 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
 306                         if GikoSys.Setting.BoardColumnOrder[ i ] = TGikoBoardColumnID( j ) then begin
 307                                 BVisibledListBox.AddItem(GikoBoardColumnCaption[ j ], nil);
 308                                 Break;
 309                         end;
 310                 end;
 311         end;
 312
 313         for i := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
 314                 flag := false;
 315                 for j := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 0 do begin
 316                         if GikoSys.Setting.BoardColumnOrder[ j ] = TGikoBoardColumnID( i ) then begin
 317                                 flag := true;
 318                                 Break;
 319                         end;
 320                 end;
 321                 if not flag then
 322                         BUnVisibledListBox.AddItem(GikoBoardColumnCaption[ i ], nil);
 323
 324         end;
 325 end;
 326 procedure TKuroutOption.CDeleteButtonClick(Sender: TObject);
 327 var
 328         i: Integer;
 329 begin
 330         for i := 0 to CVisibledListBox.Count - 1 do begin
 331                 if CVisibledListBox.Selected[i] then begin
 332                         CUnVisibledListBox.AddItem(     CVisibledListBox.Items.Strings[ i ], nil);
 333                         CVisibledListBox.DeleteSelected;
 334                         break;
 335                 end;
 336         end;
 337 end;
 338
 339 procedure TKuroutOption.CAddButtonClick(Sender: TObject);
 340 var
 341         i: Integer;
 342 begin
 343         for i := 0 to CUnVisibledListBox.Count - 1 do begin
 344                 if CUnVisibledListBox.Selected[i] then begin
 345                         CVisibledListBox.AddItem(       CUnVisibledListBox.Items.Strings[ i ], nil);
 346                         CUnVisibledListBox.DeleteSelected;
 347                         break;
 348                 end;
 349         end;
 350 end;
 351
 352 procedure TKuroutOption.BAddButtonClick(Sender: TObject);
 353 var
 354         i: Integer;
 355 begin
 356         for i := 0 to BUnVisibledListBox.Count - 1 do begin
 357                 if BUnVisibledListBox.Selected[i] then begin
 358                         BVisibledListBox.AddItem(       BUnVisibledListBox.Items.Strings[ i ], nil);
 359                         BUnVisibledListBox.DeleteSelected;
 360                         break;
 361                 end;
 362         end;
 363 end;
 364
 365 procedure TKuroutOption.BDeleteButtonClick(Sender: TObject);
 366 var
 367         i: Integer;
 368 begin
 369         for i := 0 to BVisibledListBox.Count - 1 do begin
 370                 if BVisibledListBox.Selected[i] then begin
 371                         BUnVisibledListBox.AddItem(     BVisibledListBox.Items.Strings[ i ], nil);
 372                         BVisibledListBox.DeleteSelected;
 373                         break;
 374                 end;
 375         end;
 376 end;
 377
 378 procedure TKuroutOption.CUpButtonClick(Sender: TObject);
 379 var
 380         i: Integer;
 381 begin
 382         for i := 1 to CVisibledListBox.Count - 1 do begin
 383                 if CVisibledListBox.Selected[i] then begin
 384                         CVisibledListBox.Items.Exchange(i, i -1);
 385                         break;
 386                 end;
 387         end;
 388 end;
 389
 390 procedure TKuroutOption.CDownButtonClick(Sender: TObject);
 391 var
 392         i: Integer;
 393 begin
 394         for i := 0 to CVisibledListBox.Count - 2 do begin
 395                 if CVisibledListBox.Selected[i] then begin
 396                         CVisibledListBox.Items.Exchange(i, i + 1);
 397                         break;
 398                 end;
 399         end;
 400 end;
 401
 402 procedure TKuroutOption.BUpButtonClick(Sender: TObject);
 403 var
 404         i: Integer;
 405 begin
 406         for i := 1 to BVisibledListBox.Count - 1 do begin
 407                 if BVisibledListBox.Selected[i] then begin
 408                         BVisibledListBox.Items.Exchange(i, i -1);
 409                         break;
 410                 end;
 411         end;
 412 end;
 413
 414 procedure TKuroutOption.BDownButtonClick(Sender: TObject);
 415 var
 416         i: Integer;
 417 begin
 418         for i := 0 to BVisibledListBox.Count - 2 do begin
 419                 if BVisibledListBox.Selected[i] then begin
 420                         BVisibledListBox.Items.Exchange(i, i + 1);
 421                         break;
 422                 end;
 423         end;
 424 end;
 425
 426
 427 procedure TKuroutOption.PostColumnData();
 428 var
 429         i, j : Integer;
 430 begin
 431         GikoForm.ActiveListColumnSave;
 432
 433         //===== \94Â\83\8a\83X\83g =====
 434         for i := GikoSys.Setting.CategoryColumnOrder.Count -1 downto 1 do
 435                 GikoSys.Setting.CategoryColumnOrder.Delete(i);
 436
 437         for i := 0 to CVisibledListBox.Count - 1 do begin
 438                 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
 439                         if CVisibledListBox.Items.Strings[ i ] = GikoCategoryColumnCaption[ j ] then begin
 440                                 GikoSys.Setting.CategoryColumnOrder.Add(  TGikoCategoryColumnID(j) );
 441                                 break;
 442                         end;
 443                 end;
 444         end;
 445
 446         //===== \83X\83\8c\83\8a\83X\83g =====
 447         for i := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 1 do
 448                 GikoSys.Setting.BoardColumnOrder.Delete(i);
 449
 450         for i := 0 to BVisibledListBox.Count - 1 do begin
 451                 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
 452                         if BVisibledListBox.Items.Strings[ i ] = GikoBoardColumnCaption[ j ] then begin
 453                                 GikoSys.Setting.BoardColumnOrder.Add( TGikoBoardColumnID(j) );
 454                                 Break;
 455                         end;
 456                 end;
 457         end;
 458         //\83X\83\8c\88ê\97\97\82Ì\95`\89æ\82Ì\8dX\90V
 459         GikoForm.SetActiveList(GikoForm.ActiveList);
 460 end;
 461 // \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
 462 procedure TKuroutOption.MoveHistoryMaxEditExit(Sender: TObject);
 463 begin
 464         if not GikoSys.IsNumeric(MoveHistoryMaxEdit.Text) then
 465                 MoveHistoryMaxEdit.Text := '20';
 466     if StrToInt(MoveHistoryMaxEdit.Text) < 1 then
 467         MoveHistoryMaxEdit.Text := '1';
 468 end;
 469 // \90æ\93ª\95\\8e¦\83\8c\83X\90\94\82Ì\95Ò\8fW\8cã\82Ì\90Ý\92è\95¶\8e\9a\97ñ\83`\83F\83b\83N
 470 procedure TKuroutOption.AHandredLabeledEditExit(Sender: TObject);
 471 begin
 472         if not GikoSys.IsNumeric(AHandredLabeledEdit.Text) then
 473                 AHandredLabeledEdit.Text := '1';
 474     if StrToInt(AHandredLabeledEdit.Text) < 1 then
 475         AHandredLabeledEdit.Text := '1';
 476
 477 end;
 478
 479 procedure TKuroutOption.ExtListLabeledEditExit(Sender: TObject);
 480 begin
 481     if AnsiEndsStr(';', ExtListLabeledEdit.Text) then begin
 482         ExtListLabeledEdit.Text :=
 483             Copy(ExtListLabeledEdit.Text, 0,
 484                 Length(ExtListLabeledEdit.Text) - 1);
 485     end;
 486 end;
 487 // \83\8c\83X\83|\83b\83v\83A\83b\83v\88Ê\92uX
 488 procedure TKuroutOption.DeltaXLabeledEditExit(Sender: TObject);
 489 begin
 490         if not GikoSys.IsNumeric(DeltaXLabeledEdit.Text) then
 491                 DeltaXLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupDeltaX);
 492     if StrToInt(DeltaXLabeledEdit.Text) < DeltaXUpDown.Min then
 493         DeltaXLabeledEdit.Text := IntToStr(DeltaXUpDown.Min);
 494     if StrToInt(DeltaXLabeledEdit.Text) > DeltaXUpDown.Max then
 495         DeltaXLabeledEdit.Text:= IntToStr(DeltaXUpDown.Max);
 496 end;
 497 // \83\8c\83X\83|\83b\83v\83A\83b\83v\88Ê\92uY
 498 procedure TKuroutOption.DeltaYLabeledEditExit(Sender: TObject);
 499 begin
 500         if not GikoSys.IsNumeric(DeltaYLabeledEdit.Text) then
 501         DeltaYLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupDeltaY);
 502     if StrToInt(DeltaYLabeledEdit.Text) < DeltaYUpDown.Min then
 503         DeltaYLabeledEdit.Text := IntToStr(DeltaYUpDown.Min);
 504     if StrToInt(DeltaYLabeledEdit.Text) > DeltaYUpDown.Max then
 505         DeltaYLabeledEdit.Text := IntToStr(DeltaYUpDown.Max);
 506 end;
 507
 508 procedure TKuroutOption.RespopupWaitLabeledEditExit(Sender: TObject);
 509 begin
 510         if not GikoSys.IsNumeric(RespopupWaitLabeledEdit.Text) then
 511                 RespopupWaitLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupWait);
 512     if StrToInt(RespopupWaitLabeledEdit.Text) < RespopupWaitUpDown.Min then
 513                 RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Min);
 514     if StrToInt(RespopupWaitLabeledEdit.Text) > RespopupWaitUpDown.Max then
 515                 RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Max);
 516 end;
 517
 518 end.