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

LazMapViewer: FPC 3.0.x compatible FMod()

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9511 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alpine-a110 2024-12-04 07:17:41 +00:00
parent f8b09bc698
commit e31e0c3983
1 changed files with 5 additions and 4 deletions

9
components/lazmapviewer/source/mvengine.pas
View File

@ -781,7 +781,8 @@ begin
if FCyclic then
begin
mPointX := FMod(AX - AWin.X, mapWidth);
AX := AX - AWin.X;
mPointX := AX - mapWidth * Int(AX / mapWidth); // FPC 3.0.x compatible FMod()
while mPointX < 0 do
mPointX := mPointX + mapWidth;
while mPointX >= mapWidth do
@ -792,9 +793,9 @@ begin
PType := GetProjectionType(AWin);
case PType of
ptEPSG3857: Result := PixelsToDegreesEPSG3857({mPoint}mPointX, mPointY, AWin.Zoom);
ptEPSG3395: Result := PixelsToDegreesEPSG3395({mPoint}mPointX, mPointY, AWin.Zoom);
else Result := PixelsToDegreesEPSG3857({mPoint}mPointX, mPointY, AWin.Zoom);
ptEPSG3857: Result := PixelsToDegreesEPSG3857(mPointX, mPointY, AWin.Zoom);
ptEPSG3395: Result := PixelsToDegreesEPSG3395(mPointX, mPointY, AWin.Zoom);
else Result := PixelsToDegreesEPSG3857(mPointX, mPointY, AWin.Zoom);
end;
end;