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

LazMapViewer: Replace method TMapView.GetIDsArea by .GetAreaOfIDs (deprecate the old one).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9657 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-03-04 08:56:22 +00:00
parent 223a1ca884
commit 688e0e2303
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazmapviewer/source/mvgpsobj.pas
View File

@ -231,7 +231,8 @@ type
procedure GetArea(out Area: TRealArea); override;
procedure Draw({%H-}AView: TObject; {%H-}Area: TRealArea); override;
function GetObjectsInArea(const Area: TRealArea; AClass: TGPSObjClass = nil): TGPSObjList;
function GetIdsArea(const Ids: TIdArray; AIdOwner: integer): TRealArea;
function GetIDsArea(const IDs: TIdArray; AIdOwner: integer): TRealArea; deprecated 'Use GetAreaOfIDs';
function GetAreaOfIDs(const IDs: TIdArray; AIdOwner: Integer): TRealArea;
function Add(aItem: TGpsObj; AIdOwner: Integer; AZOrder: Integer = 0): Integer;
function Delete(AItem: TGPSObj): Boolean;
@ -756,6 +757,11 @@ begin
end;
function TGPSObjectList.GetIdsArea(const Ids: TIdArray; AIdOwner: integer): TRealArea;
begin
Result := GetAreaOfIDs(IDs, AIDOwner);
end;
function TGPSObjectList.GetAreaOfIDs(const IDs: TIdArray; AIdOwner: Integer): TRealArea;
var
Objs: TGPSObjarray;
i: integer;
@ -763,7 +769,7 @@ begin
Result.Init(0, 0, 0, 0);
Lock;
try
IdsToObj(Ids, Objs, AIdOwner);
IdsToObj(IDs, Objs, AIdOwner);
if Length(Objs) > 0 then
begin
Result := Objs[0].BoundingBox;