X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=FavoriteAdd.pas;h=89d3f09975b85fde1c197fc3d2cd2608e6eb0601;hb=refs%2Fheads%2Fmaster;hp=2bf2192287fe009b0a46417f0aff770f9da6281f;hpb=01e9b7a4a2856c2540fb9ad5c7427317d6a46abe;p=gikonavigoeson%2Fgikonavi.git

diff --git a/FavoriteAdd.pas b/FavoriteAdd.pas
index 2bf2192..89d3f09 100644
--- a/FavoriteAdd.pas
+++ b/FavoriteAdd.pas
@@ -63,7 +63,17 @@ procedure TFavoriteAddDialog.FormCreate(Sender: TObject);
 var
 	src		: TTreeNode;
 	node	: TTreeNode;
+    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;
+
 	FolderTreeView.Items.BeginUpdate;
 
 	// FavoriteDM ‚̃tƒHƒ‹ƒ_ŠK‘w‚ðƒRƒs[