まちBBSでエラー文字列を受信した場合に削除レスと同じ扱いにしてしまう不具合を修正

[gikonavigoeson/gikonavi.git] / KuroutSetting.pas

diff --git a/KuroutSetting.pas b/KuroutSetting.pas
index 8117d10..bf4b88d 100644 (file)
--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -96,6 +96,7 @@ type
     RespopupMailToCheckBox: TCheckBox;
     ResRangeLabeledEdit: TLabeledEdit;
     ResRangeCountUpDown: TUpDown;
+    UseGobakuCheckBox: TCheckBox;
        procedure OkBottonClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure CDeleteButtonClick(Sender: TObject);
@@ -183,6 +184,8 @@ begin
     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;
@@ -234,6 +237,9 @@ begin
     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);
@@ -273,7 +279,18 @@ begin
 end;
 
 procedure TKuroutOption.FormCreate(Sender: TObject);
+var
+    CenterForm: TCustomForm;
 begin
+    CenterForm := TCustomForm(Owner);
+    if Assigned(CenterForm) then begin
+        Left := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
+        Top := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
+    end else begin
+        Left := (Screen.Width - Width) div 2;
+        Top := (Screen.Height - Height) div 2;
+    end;
+
        SetValue;
        PostTimeCheckBoxClick(Sender);