When group (Site/Shared) to which new location profile is added is changed, switching the page to the target group

Source commit: e53ea7722cc95fd74d11f8b4abbff0b289a66e0c

source/forms/LocationProfiles.cpp

@@ -533,8 +533,9 @@ bool __fastcall TLocationProfilesDialog::AddAsBookmark(TObject * Sender, bool In
         if (Initial)
         {
           WinConfiguration->UseSharedBookmarks = Shared;
-          BookmarkList = GetBookmarkList(GetProfilesSheet());
-          ProfilesView = GetProfilesView(GetProfilesSheet());
+          PageControl->ActivePage = GetProfilesSheet();
+          BookmarkList = GetBookmarkList(PageControl->ActivePage);
+          ProfilesView = GetProfilesView(PageControl->ActivePage);
         }
 
         TBookmark * Bookmark = BookmarkList->FindByName(SelectedNode, BookmarkName);