・板一覧更新の処理メッセージを追加

[gikonavigoeson/gikonavi.git] / UpdateCheck.pas

diff --git a/UpdateCheck.pas b/UpdateCheck.pas
index 2fb5e86..dd25272 100644 (file)
--- a/UpdateCheck.pas
+++ b/UpdateCheck.pas
@@ -78,9 +78,11 @@ end;
 function TUpdateCheckForm.CheckUpdate(nightbuild :Boolean): Boolean;
 const
 {$IFDEF DEBUG}
-       CHECK_URL = 'http://gikonavi.sourceforge.jp/updater/debug.txt';
+//     CHECK_URL = 'http://gikonavi.sourceforge.jp/updater/debug.txt';
+       CHECK_URL = 'http://gikonavigoeson.sourceforge.jp/updater/debug.txt';
 {$ELSE}
-       CHECK_URL = 'http://gikonavi.sourceforge.jp/updater/latest.txt';
+//     CHECK_URL = 'http://gikonavi.sourceforge.jp/updater/latest.txt';
+       CHECK_URL = 'http://gikonavigoeson.sourceforge.jp/updater/latest.txt';
 {$ENDIF}
 var
     value, url : string;
@@ -279,7 +281,18 @@ end;
 
 //! Form\83R\83\93\83X\83g\83\89\83N\83^
 procedure TUpdateCheckForm.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;
+
     ResultMemo.Lines.Clear;
     FExecPath := '';
     FExecArgs := '';