paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazMapViewer: Add project group with all packages, sample files and unit test project

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8814 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2023-04-26 14:18:35 +00:00
parent acf3f801a4
commit 1dee56cfe6
5 changed files with 67 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/lazmapviewer/examples/fulldemo_with_addons/main.lfm
View File

@ -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

8
components/lazmapviewer/examples/fulldemo_with_addons/main.pas
View File

@ -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;

7
components/lazmapviewer/examples/fulldemo_with_addons/MapViewer_Demo.lpi → components/lazmapviewer/examples/fulldemo_with_addons/mapviewer_demo_with_addons.lpi
View File

@ -8,7 +8,7 @@
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="MapViewer_Demo"/>
<Title Value="mapviewer_demo_with_addons"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
@ -44,8 +44,9 @@
</RequiredPackages>
<Units Count="4">
<Unit0>
<Filename Value="MapViewer_Demo.lpr"/>
<Filename Value="mapviewer_demo_with_addons.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="MapViewer_Demo_with_AddOns"/>
</Unit0>
<Unit1>
<Filename Value="main.pas"/>
@ -72,7 +73,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="bin\$(TargetCPU)-$(TargetOS)\MapViewer_Demo"/>
<Filename Value="bin\$(TargetCPU)-$(TargetOS)\mapviewer_demo_with_addons"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

2
components/lazmapviewer/examples/fulldemo_with_addons/MapViewer_Demo.lpr → components/lazmapviewer/examples/fulldemo_with_addons/mapviewer_demo_with_addons.lpr
View File

@ -1,4 +1,4 @@
program MapViewer_Demo;
program MapViewer_Demo_with_AddOns;
{$mode objfpc}{$H+}

36
components/lazmapviewer/lazmapviewer_all.lpg Normal file
View File

@ -0,0 +1,36 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectGroup FileVersion="2">
<Targets>
<Target FileName="lazmapviewerpkg.lpk"/>
<Target FileName="lazmapviewer_rgbgraphics.lpk"/>
<Target FileName="lazmapviewer_bgra.lpk"/>
<Target FileName="lazmapviewer_synapse.lpk"/>
<Target FileName="examples\colored_tracks\coloredtracks_demo.lpi">
<BuildModes>
<Mode Name="Default"/>
</BuildModes>
</Target>
<Target FileName="examples\trackdemo\track_demo.lpi">
<BuildModes>
<Mode Name="Default"/>
</BuildModes>
</Target>
<Target FileName="examples\fulldemo\MapViewer_Demo.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="examples\fulldemo_with_addons\mapviewer_demo_with_addons.lpi">
<BuildModes>
<Mode Name="default"/>
</BuildModes>
</Target>
<Target FileName="unittests\mapviewer_tests.lpi">
<BuildModes>
<Mode Name="Default"/>
</BuildModes>
</Target>
</Targets>
</ProjectGroup>
</CONFIG>