LazMapViewer: Issue #39092 - RemoveFreeNotification rather than checking csDestroying in ComponentState
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9630 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
parent
5298368052
commit
8d32ebf01d
@ -991,6 +991,7 @@ 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;
|
||||||
@ -1357,8 +1358,7 @@ end;
|
|||||||
procedure TMvPluginManager.RemoveMapView(AMapView: TMapView);
|
procedure TMvPluginManager.RemoveMapView(AMapView: TMapView);
|
||||||
begin
|
begin
|
||||||
RemoveMouseButton(AMapView);
|
RemoveMouseButton(AMapView);
|
||||||
if not (csDestroying in ComponentState) then
|
FMapList.Remove(AMapView);
|
||||||
FMapList.Remove(AMapView);
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMvPluginManager.SetChildOrder(Child: TComponent; Order: Integer);
|
procedure TMvPluginManager.SetChildOrder(Child: TComponent; Order: Integer);
|
||||||
|
Loading…
Reference in New Issue
Block a user