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

[gikonavigoeson/gikonavi.git] / FavoriteAdd.pas

diff --git a/FavoriteAdd.pas b/FavoriteAdd.pas
index 2bf2192..89d3f09 100644 (file)
--- 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 \82Ì\83t\83H\83\8b\83_\8aK\91w\82ð\83R\83s\81[