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

lazmapviewer: Cleanup, less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8105 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-09-29 21:51:08 +00:00
parent fc027d9ceb
commit d6c8a34a63
6 changed files with 26 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
components/lazmapviewer/examples/fulldemo/main.pas
View File

@ -90,9 +90,9 @@ type
procedure MapViewDrawGpsPoint(Sender: TObject;
ADrawer: TMvCustomDrawingEngine; APoint: TGpsPoint);
procedure MapViewMouseLeave(Sender: TObject);
procedure MapViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure MapViewMouseMove(Sender: TObject; {%H-}Shift: TShiftState; X, Y: Integer);
procedure MapViewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
{%H-}Shift: TShiftState; X, Y: Integer);
procedure MapViewZoomChange(Sender: TObject);
procedure BtnLoadMapProvidersClick(Sender: TObject);
procedure BtnSaveMapProvidersClick(Sender: TObject);
@ -576,54 +576,8 @@ begin
end;
end;
gpsPt.Name := gpsName;
MapView.GpsItems.Add(gpsPt, _CLICKED_POINTS_);
WriteLn(MapView.GPSItems.Count);
(*
if rgPOIMode.ItemIndex in [0, 1] then
begin
if not InputQuery('Name of GPS location', 'Please enter name', gpsName) then
exit;
gpsPt := TGpsPoint.CreateFrom(rPt);
gpsPt.Name := gpsName;
end else
begin
if GPSPointForm = nil then begin
GPSPointForm := TGPSPointForm.Create(Application);
GPSPointForm.Position := poMainformCenter;
end;
if rgPOIMode.ItemIndex = 2 then
GPSPointForm.SetImageIndexData('', POIImages, -1)
else
GPSPointForm.SetSymbolData('', clRed, gpsPlus, 10);
if GPSPointForm.ShowModal <> mrOK then
exit;
if rgPOIMode.ItemIndex = 2 then // Image from imagelist
begin
gpsPt := TGpsPointOfInterest.CreateFrom(rPt);
GPSPointForm.GetImageIndexData(gpsName, gpsImageIndex);
//gpsImageIndex := Random(POIImages.Count); // to be removed...
TGPSPointOfInterest(gpsPt).ImageIndex := gpsImageIndex;
end else
begin // Symbols
gpsPt := TGpsPoint.CreateFrom(rPt);
GPSPointForm.GetSymbolData(gpsName, gpsColor, gpsSymbol, gpsSize); // to be aktivated
//GPSPointForm.GetData(gpsName, gpsColor, gpsSymbol, gpsSize); // to be removed
gpsPt.ExtraData := TGPSExtraData.Create(_CLICKED_POINTS_);
with TGPSExtraData(gpsPt.ExtraData) do
begin
Color := gpsColor;
Symbol := gpsSymbol;
Size := gpsSize;
end;
end;
gpsPt.Name := gpsName;
end;
MapView.GpsItems.Add(gpsPt, _CLICKED_POINTS_);
*)
end;
end;
@ -814,7 +768,6 @@ end;
procedure TMainForm.WriteToIni;
var
ini: TCustomIniFile;
L: TStringList;
i: Integer;
begin
ini := TMemIniFile.Create(CalcIniName);