paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazMapViewer: #39092 again: Revert previous commit (RemoveFreeNotifications does not exist in FPC 3.2.2).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9631 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-02-12 13:25:37 +00:00
parent 8d32ebf01d
commit 2f44bae778
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazmapviewer/source/mvplugincommon.pas
View File

@ -991,7 +991,6 @@ end;
destructor TMvPluginManager.Destroy; destructor TMvPluginManager.Destroy;
begin begin
RemoveFreeNotifications;
while FPluginList.Count > 0 do while FPluginList.Count > 0 do
FPluginList[FPluginList.Count-1].Free; FPluginList[FPluginList.Count-1].Free;
FPluginList.Free; FPluginList.Free;
@ -1358,7 +1357,8 @@ end;
procedure TMvPluginManager.RemoveMapView(AMapView: TMapView); procedure TMvPluginManager.RemoveMapView(AMapView: TMapView);
begin begin
RemoveMouseButton(AMapView); RemoveMouseButton(AMapView);
FMapList.Remove(AMapView); if not (csDestroying in ComponentState) then
FMapList.Remove(AMapView);
end; end;
procedure TMvPluginManager.SetChildOrder(Child: TComponent; Order: Integer); procedure TMvPluginManager.SetChildOrder(Child: TComponent; Order: Integer);