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

LazMapViewer: Some cleanup

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7332 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-03-19 23:23:36 +00:00
parent 5def48c316
commit 35dfdbdf7a
2 changed files with 4 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazmapviewer/example/MapViewer_Demo.lpi
View File

@ -24,7 +24,6 @@
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>

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

@ -383,30 +383,14 @@ const
R = 5; R = 5;
var var
P: TPoint; P: TPoint;
ext: TSize;
begin begin
// Screen coordinates of the GPS point // Screen coordinates of the GPS point
P := TMapView(Sender).LonLatToScreen(APoint.RealPoint); P := TMapView(Sender).LonLatToScreen(APoint.RealPoint);
// Draw the GPS point with MapMarker bitmap // Draw the GPS point as a circle
{ ADrawer.BrushColor := clRed;
if CbShowPOIImage.Checked and not MapView.POIImage.Empty then begin ADrawer.BrushStyle := bsSolid;
ADrawer.DrawBitmap(P.X - MapView.POIImage.Width div 2, P.Y - MapView.POIImage.Height, MapView.POIImage, true); ADrawer.Ellipse(P.X - R, P.Y - R, P.X + R, P.Y + R);
end else begin
}
// Draw the GPS point as a circle
ADrawer.BrushColor := clRed;
ADrawer.BrushStyle := bsSolid;
ADrawer.Ellipse(P.X - R, P.Y - R, P.X + R, P.Y + R);
P.Y := P.Y + R;
//end;
{
// Draw the caption of the GPS point
ext := ADrawer.TextExtent(APoint.Name);
ADrawer.BrushColor := clWhite;
ADrawer.BrushStyle := bsClear;
ADrawer.TextOut(P.X - ext.CX div 2, P.Y + 5, APoint.Name);
}
end; end;
procedure TMainForm.MapViewMouseLeave(Sender: TObject); procedure TMainForm.MapViewMouseLeave(Sender: TObject);