unit Markers;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Generics.Collections, FMX.Controls.Presentation,
FMX.StdCtrls, FMX.Maps, FMX.Layouts;
type
TForm2 = class(TForm)
GridPanelLayout1: TGridPanelLayout;
MapView1: TMapView;
ButtonAdd: TButton;
ButtonUndo: TButton;
ButtonClear: TButton;
ButtonToggle: TButton;
procedure ButtonAddClick(Sender: TObject);
procedure ButtonUndoClick(Sender: TObject);
procedure ButtonClearClick(Sender: TObject);
procedure ButtonToggleClick(Sender: TObject);
private
{ Private declarations }
FMarkers : TList<TMapMarker>; <<<<<<<<<<<<< !!!!!!!!!!! Problem !!!!!!!!!!!
FShowMarkers: Boolean;
procedure CenterMap;
public
{ Public declarations }
constructor Create(Owner: TComponent); override;
end;
var
Form2: TForm2;
implementation