pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazMapViewer: Set version number 0.2.1. Change license to "LGPL 2 or later" instead of "GLP 2 or later" - see forum discussion https://forum.lazarus.freepascal.org/index.php/topic,34297.msg354142.html#msg354142.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7340 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-03-23 23:01:18 +00:00
parent daa694fc2e
commit 7c43c78f0c
7 changed files with 71 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazmapviewer/lazmapviewer_bgra.lpk
View File

@ -13,7 +13,7 @@
</SearchPaths>
</CompilerOptions>
<Description Value="Add-on to LazMapViewer: Contains the drawing engine based on the BGRABitmap library."/>
<Version Minor="2"/>
<Version Minor="2" Release="1"/>
<Files>
<Item>
<Filename Value="source\addons\bgra_drawingengine\mvde_bgra.pas"/>

24
components/lazmapviewer/lazmapviewer_rgbgraphics.lpk
View File

@ -14,25 +14,25 @@
</SearchPaths>
</CompilerOptions>
<Description Value="Add-on to LazMapViewer: Contains the drawing engine based on the RGBGraphics package."/>
<License Value="GPL2 or later"/>
<Version Minor="2"/>
<Files Count="1">
<Item1>
<License Value="LGPL 2 or later"/>
<Version Minor="2" Release="1"/>
<Files>
<Item>
<Filename Value="source\addons\rgbgraphics_drawingengine\mvde_rgbgraphics.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="mvDE_RGBGraphics"/>
</Item1>
</Item>
</Files>
<RequiredPkgs Count="3">
<Item1>
<RequiredPkgs>
<Item>
<PackageName Value="lazMapViewerPkg"/>
</Item1>
<Item2>
</Item>
<Item>
<PackageName Value="rgb_graphics"/>
</Item2>
<Item3>
</Item>
<Item>
<PackageName Value="FCL"/>
</Item3>
</Item>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>

24
components/lazmapviewer/lazmapviewer_synapse.lpk
View File

@ -14,25 +14,25 @@
</SearchPaths>
</CompilerOptions>
<Description Value="Add-on to LazMapViewer: Contains the download engine based on the Synapse library."/>
<License Value="GPL2 or later"/>
<Version Minor="2"/>
<Files Count="1">
<Item1>
<License Value="LGPL 2 or later"/>
<Version Minor="2" Release="1"/>
<Files>
<Item>
<Filename Value="source\addons\synapse_downloadengine\mvdlesynapse.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="mvDLESynapse"/>
</Item1>
</Item>
</Files>
<RequiredPkgs Count="3">
<Item1>
<RequiredPkgs>
<Item>
<PackageName Value="lazMapViewerPkg"/>
</Item1>
<Item2>
</Item>
<Item>
<PackageName Value="laz_synapse"/>
</Item2>
<Item3>
</Item>
<Item>
<PackageName Value="FCL"/>
</Item3>
</Item>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>

84
components/lazmapviewer/lazmapviewerpkg.lpk
View File

@ -13,87 +13,87 @@
</CompilerOptions>
<Description Value="Component for viewing maps (Google, OpenStreetMap, etc).
This is a fork of MapViewer by ti_dic (https://sourceforge.net/p/roadbook/code/ci/master/tree/mapviewer/) which itself is based on the MapViewer by Maciej Kaczkowski (https://github.com/maciejkaczkowski/mapviewer)."/>
<License Value="GPL2 or later"/>
<Version Minor="2"/>
<Files Count="18">
<Item1>
<License Value="LGPL 2 or later"/>
<Version Minor="2" Release="1"/>
<Files>
<Item>
<Filename Value="source/mvcache.pas"/>
<UnitName Value="mvCache"/>
</Item1>
<Item2>
</Item>
<Item>
<Filename Value="source/mvdownloadengine.pas"/>
<UnitName Value="mvDownloadEngine"/>
</Item2>
<Item3>
</Item>
<Item>
<Filename Value="source/mvdragobj.pas"/>
<UnitName Value="mvDragObj"/>
</Item3>
<Item4>
</Item>
<Item>
<Filename Value="source/mvengine.pas"/>
<UnitName Value="mvEngine"/>
</Item4>
<Item5>
</Item>
<Item>
<Filename Value="source/mvgeonames.pas"/>
<UnitName Value="mvGeoNames"/>
</Item5>
<Item6>
</Item>
<Item>
<Filename Value="source/mvgpsobj.pas"/>
<UnitName Value="mvGpsObj"/>
</Item6>
<Item7>
</Item>
<Item>
<Filename Value="source/mvjobqueue.pas"/>
<UnitName Value="mvJobQueue"/>
</Item7>
<Item8>
</Item>
<Item>
<Filename Value="source/mvjobs.pas"/>
<UnitName Value="mvJobs"/>
</Item8>
<Item9>
</Item>
<Item>
<Filename Value="source/mvmapprovider.pas"/>
<UnitName Value="mvMapProvider"/>
</Item9>
<Item10>
</Item>
<Item>
<Filename Value="source/mvtypes.pas"/>
<UnitName Value="mvTypes"/>
</Item10>
<Item11>
</Item>
<Item>
<Filename Value="source/mvmapviewer.pas"/>
<UnitName Value="mvMapViewer"/>
</Item11>
<Item12>
</Item>
<Item>
<Filename Value="source/mvextradata.pas"/>
<UnitName Value="mvExtraData"/>
</Item12>
<Item13>
</Item>
<Item>
<Filename Value="source/mvdlefpc.pas"/>
<UnitName Value="mvDLEFpc"/>
</Item13>
<Item14>
</Item>
<Item>
<Filename Value="source/mvmapviewerreg.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="mvMapViewerReg"/>
</Item14>
<Item15>
</Item>
<Item>
<Filename Value="source/mvgpx.pas"/>
<UnitName Value="mvGPX"/>
</Item15>
<Item16>
</Item>
<Item>
<Filename Value="source/mvdrawingengine.pas"/>
<UnitName Value="mvDrawingEngine"/>
</Item16>
<Item17>
</Item>
<Item>
<Filename Value="source/mvde_intfgraphics.pas"/>
<UnitName Value="mvDE_IntfGraphics"/>
</Item17>
<Item18>
</Item>
<Item>
<Filename Value="source/mvde_lcl.pas"/>
<UnitName Value="mvDE_LCL"/>
</Item18>
</Item>
</Files>
<RequiredPkgs Count="1">
<Item1>
<RequiredPkgs>
<Item>
<PackageName Value="LCLBase"/>
</Item1>
</Item>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>

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

@ -831,7 +831,7 @@ procedure TMapViewerEngine.Redraw(const aWin: TmapWindow);
var
TilesVis: TArea;
x, y : Integer; //int64;
Tiles: TTileIdArray;
Tiles: TTileIdArray = nil;
iTile: Integer;
begin
if not(Active) then
@ -1238,7 +1238,7 @@ var
mins, secs: Double;
i, j, len: Integer;
n: Integer;
s: String;
s: String = '';
res: Integer;
sgn: Double;
begin

2
components/lazmapviewer/source/mvgeonames.pas
View File

@ -199,7 +199,7 @@ end;
function TMVGeoNames.Search(ALocationName: String;
ADownloadEngine: TMvCustomDownloadEngine): TRealPoint;
var
s: string;
s: string = '';
function gs(id: string; Start: integer): string;
var

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

@ -504,7 +504,7 @@ var
DelLst: TGPSObjList;
begin
DelLst := nil;
SetLength(NotFound, 0);
SetLength(NotFound{%H-}, 0);
SetLength(Found, 0);
Lock;
try