・書き込み時の新しい「書きこみ＆クッキー」メッセージに対応

[gikonavigoeson/gikonavi.git] / About.pas

diff --git a/About.pas b/About.pas
index 2eeda52..9903895 100644 (file)
--- a/About.pas
+++ b/About.pas
@@ -68,7 +68,17 @@ const
 //{$R gikoSound.res}
 
 procedure TAboutDialog.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;
        VersionMemo.Clear;
        VersionMemo.Lines.Add('Version ' + BETA_VERSION_NAME_J
                                                                        + FloatToStr(BETA_VERSION)