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

LazMapViewer: Extend demo to show how to add GPS points.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6793 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-01-17 23:09:41 +00:00
parent a858d685fa
commit 9fac446b61
7 changed files with 499 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,6 +16,7 @@ type
TMainForm = class(TForm)
BtnSearch: TButton;
BtnGoTo: TButton;
Button1: TButton;
CbDoubleBuffer: TCheckBox;
CbFoundLocations: TComboBox;
CbLocations: TComboBox;
@ -25,6 +26,7 @@ type
GbCenterCoords: TGroupBox;
InfoCenterLatitude: TLabel;
InfoCenterLongitude: TLabel;
Label1: TLabel;
Label8: TLabel;
LblCenterLatitude: TLabel;
LblPositionLongitude: TLabel;
@ -40,6 +42,7 @@ type
ZoomTrackBar: TTrackBar;
procedure BtnGoToClick(Sender: TObject);
procedure BtnSearchClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure CbDoubleBufferChange(Sender: TObject);
procedure CbFoundLocationsDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
@ -52,6 +55,8 @@ type
const ALoc: TRealPoint);
procedure MapViewMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure MapViewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure MapViewZoomChange(Sender: TObject);
procedure ZoomTrackBarChange(Sender: TObject);
@ -74,7 +79,8 @@ implementation
{$R *.lfm}
uses
LCLType, IniFiles, Math;
LCLType, IniFiles, Math, mvGpsObj, mvExtraData,
gpslistform;
type
TLocationParam = class
@ -110,6 +116,19 @@ begin
UpdateLocationHistory(CbLocations.Text);
end;
procedure TMainForm.Button1Click(Sender: TObject);
var
F: TGpsListViewer;
begin
F := TGpsListViewer.Create(nil);
try
F.MapViewer := MapView;
F.ShowModal;
finally
F.Free;
end;
end;
procedure TMainForm.BtnGoToClick(Sender: TObject);
var
s: String;
@ -245,6 +264,23 @@ begin
InfoCenterLatitude.Caption := Format('%.6f°', [rPt.Lat]);
end;
procedure TMainForm.MapViewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
rPt: TRealPoint;
gpsPt: TGpsPoint;
gpsName: String;
begin
if (Button = mbRight) then begin
if not InputQuery('Name of GPS location', 'Please enter name', gpsName) then
exit;
rPt := MapView.ScreenToLonLat(Point(X, Y));
gpsPt := TGpsPoint.CreateFrom(rPt);
gpsPt.Name := gpsName;
MapView.GpsItems.Add(gpsPt, _CLICKED_POINTS_);
end;
end;
procedure TMainForm.MapViewZoomChange(Sender: TObject);
begin
ZoomTrackbar.Position := MapView.Zoom;