diff --git a/components/lazmapviewer/examples/fulldemo_with_addons/main.lfm b/components/lazmapviewer/examples/fulldemo_with_addons/main.lfm
index ea431c69a..aef6b3ef6 100644
--- a/components/lazmapviewer/examples/fulldemo_with_addons/main.lfm
+++ b/components/lazmapviewer/examples/fulldemo_with_addons/main.lfm
@@ -18,6 +18,7 @@ object MainForm: TMainForm
Top = 0
Width = 608
Align = alClient
+ Cyclic = True
DefaultTrackColor = clBlue
DefaultTrackWidth = 3
DownloadEngine = MapView.BuiltInDLE
@@ -36,9 +37,9 @@ object MainForm: TMainForm
Height = 640
Top = 0
Width = 275
- ActivePage = PgConfig
+ ActivePage = PgData
Align = alRight
- TabIndex = 1
+ TabIndex = 0
TabOrder = 1
object PgData: TTabSheet
Caption = 'Data'
@@ -859,6 +860,21 @@ object MainForm: TMainForm
TabOrder = 9
Text = 'default'
end
+ object CbCyclic: TCheckBox
+ AnchorSideLeft.Control = CbZoomToCursor
+ AnchorSideLeft.Side = asrBottom
+ AnchorSideTop.Control = CbZoomToCursor
+ Left = 130
+ Height = 19
+ Top = 150
+ Width = 77
+ BorderSpacing.Left = 24
+ Caption = 'Cyclic view'
+ Checked = True
+ OnChange = CbCyclicChange
+ State = cbChecked
+ TabOrder = 10
+ end
end
end
object GeoNames: TMVGeoNames
diff --git a/components/lazmapviewer/examples/fulldemo_with_addons/main.pas b/components/lazmapviewer/examples/fulldemo_with_addons/main.pas
index eadced45d..4fd65ee29 100644
--- a/components/lazmapviewer/examples/fulldemo_with_addons/main.pas
+++ b/components/lazmapviewer/examples/fulldemo_with_addons/main.pas
@@ -35,6 +35,7 @@ type
CbShowPOIImage: TCheckBox;
cbPOITextBgColor: TColorBox;
CbZoomToCursor: TCheckBox;
+ CbCyclic: TCheckBox;
FontDialog: TFontDialog;
GbCenterCoords: TGroupBox;
GbScreenSize: TGroupBox;
@@ -87,6 +88,7 @@ type
procedure CbUseThreadsChange(Sender: TObject);
procedure CbDistanceUnitsChange(Sender: TObject);
procedure CbZoomToCursorChange(Sender: TObject);
+ procedure CbCyclicChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
@@ -373,6 +375,12 @@ begin
MapView.ZoomToCursor := CbZoomToCursor.Checked;
end;
+procedure TMainForm.CbCyclicChange(Sender: TObject);
+begin
+ MapView.Cyclic := CbCyclic.Checked;
+ MapView.Redraw;
+end;
+
procedure TMainForm.ClearFoundLocations;
var
i: Integer;
diff --git a/components/lazmapviewer/examples/fulldemo_with_addons/MapViewer_Demo.lpi b/components/lazmapviewer/examples/fulldemo_with_addons/mapviewer_demo_with_addons.lpi
similarity index 91%
rename from components/lazmapviewer/examples/fulldemo_with_addons/MapViewer_Demo.lpi
rename to components/lazmapviewer/examples/fulldemo_with_addons/mapviewer_demo_with_addons.lpi
index 4e6398d0d..c89a8411c 100644
--- a/components/lazmapviewer/examples/fulldemo_with_addons/MapViewer_Demo.lpi
+++ b/components/lazmapviewer/examples/fulldemo_with_addons/mapviewer_demo_with_addons.lpi
@@ -8,7 +8,7 @@