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

lazMapViewer: Remove dependence on synapse

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6308 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-16 15:15:27 +00:00
parent c76a4f904a
commit 60e3e16e2d
9 changed files with 313 additions and 165 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,13 +5,19 @@ unit Main;
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls;
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, mvgeonames,
mvMapViewer;
type
{ TForm1 }
TForm1 = class(TForm)
MapView1: TMapView;
GeoNames: TMVGeoNames;
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
public
@ -25,5 +31,23 @@ implementation
{$R *.lfm}
uses
mvTypes;
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
MapView1.DoubleBuffered := true;
MapView1.Zoom := 7;
GeoNames.LocationName := 'New York';
MapView1.Center := GeoNames.Search(MapView1.DownloadEngine);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
MapView1.Active := true;
end;
end.