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

lazMapViewer: Cosmetic changes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6313 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2018-04-16 21:06:30 +00:00
parent 4aba8093da
commit 119046bcbc
4 changed files with 815 additions and 771 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazmapviewer/example/main.lfm
View File

@ -18,7 +18,7 @@ object MainForm: TMainForm
Align = alRight
ClientHeight = 545
ClientWidth = 237
TabOrder = 0
TabOrder = 1
object CbProviders: TComboBox
AnchorSideLeft.Control = LblProviders
AnchorSideLeft.Side = asrBottom

2
components/lazmapviewer/example/main.pas
View File

@ -197,8 +197,6 @@ begin
MapView.Zoom := 1;
CbUseThreads.Checked := MapView.UseThreads;
CbDoubleBuffer.Checked := MapView.DoubleBuffered;
// GeoNames.LocationName := 'New York';
// MapView.Center := GeoNames.Search('New York', MapView.DownloadEngine);
ReadFromIni;
end;

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

File diff suppressed because it is too large Load Diff

31
components/lazmapviewer/source/mvmapprovider.pas
View File

@ -49,17 +49,19 @@ Type
FGetZStr: Array of TGetValStr;
FMinZoom: Array of integer;
FMaxZoom: Array of integer;
function getLayerCount: integer;
function GetLayerCount: integer;
procedure SetLayer(AValue: integer);
public
constructor Create(aName : String);
constructor Create(AName: String);
destructor Destroy; override;
procedure AddURL(Url: String; NbSvr: integer;aMinZoom : integer;aMaxZoom : integer; GetSvrStr: TGetSvrStr; GetXStr: TGetValStr; GetYStr: TGetValStr; GetZStr: TGetValStr);
procedure GetZoomInfos(out zMin:integer;out zMax : integer);
procedure AddURL(Url: String; NbSvr, aMinZoom, aMaxZoom: integer;
GetSvrStr: TGetSvrStr; GetXStr: TGetValStr; GetYStr: TGetValStr;
GetZStr: TGetValStr);
procedure GetZoomInfos(out AZoomMin, AZoomMax: integer);
Function GetUrlForTile(id: TTileId): String;
property Name: String read FName;
property LayerCount : integer read getLayerCount;
property LayerCount: integer read GetLayerCount;
property Layer: integer read FLayer write SetLayer;
end;
@ -131,29 +133,30 @@ begin
FLayer:=low(FUrl);
end;
procedure TMapProvider.GetZoomInfos(out zMin: integer; out zMax: integer);
procedure TMapProvider.GetZoomInfos(out AZoomMin, AZoomMax: integer);
begin
zMin:=FMinZoom[layer];
zMax:=FMaxZoom[layer];
AZoomMin := FMinZoom[layer];
AZoomMax := FMaxZoom[layer];
end;
function TMapProvider.GetUrlForTile(id: TTileId): String;
var i : integer;
var
i: integer;
XVal, yVal, zVal, SvrVal: String;
idsvr: integer;
begin
Result := '';
i := layer;
if (i>high(idServer)) or (i<low(idServer)) or (FNbSvr[i]=0) then
if (i > High(idServer)) or (i < Low(idServer)) or (FNbSvr[i] = 0) then
exit;
idsvr := idServer[i] mod FNbSvr[i];
idServer[i] += 1;
SvrVal:=inttostr(idsvr);
XVal:=inttostr(id.X);
YVal:=inttostr(id.Y);
ZVal:=inttostr(id.Z);
SvrVal := IntToStr(idsvr);
XVal := IntToStr(id.X);
YVal := IntToStr(id.Y);
ZVal := IntToStr(id.Z);
if Assigned(FGetSvrStr[i]) then
SvrVal := FGetSvrStr[i](idsvr);
if Assigned(FGetXStr[i]) then