pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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 Top = 0
Width = 608 Width = 608
Align = alClient Align = alClient
Cyclic = True
DefaultTrackColor = clBlue DefaultTrackColor = clBlue
DefaultTrackWidth = 3 DefaultTrackWidth = 3
DownloadEngine = MapView.BuiltInDLE DownloadEngine = MapView.BuiltInDLE
@ -36,9 +37,9 @@ object MainForm: TMainForm
Height = 640 Height = 640
Top = 0 Top = 0
Width = 275 Width = 275
ActivePage = PgConfig ActivePage = PgData
Align = alRight Align = alRight
TabIndex = 1 TabIndex = 0
TabOrder = 1 TabOrder = 1
object PgData: TTabSheet object PgData: TTabSheet
Caption = 'Data' Caption = 'Data'
@ -859,6 +860,21 @@ object MainForm: TMainForm
TabOrder = 9 TabOrder = 9
Text = 'default' Text = 'default'
end 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
end end
object GeoNames: TMVGeoNames object GeoNames: TMVGeoNames

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

@ -35,6 +35,7 @@ type
CbShowPOIImage: TCheckBox; CbShowPOIImage: TCheckBox;
cbPOITextBgColor: TColorBox; cbPOITextBgColor: TColorBox;
CbZoomToCursor: TCheckBox; CbZoomToCursor: TCheckBox;
CbCyclic: TCheckBox;
FontDialog: TFontDialog; FontDialog: TFontDialog;
GbCenterCoords: TGroupBox; GbCenterCoords: TGroupBox;
GbScreenSize: TGroupBox; GbScreenSize: TGroupBox;
@ -87,6 +88,7 @@ type
procedure CbUseThreadsChange(Sender: TObject); procedure CbUseThreadsChange(Sender: TObject);
procedure CbDistanceUnitsChange(Sender: TObject); procedure CbDistanceUnitsChange(Sender: TObject);
procedure CbZoomToCursorChange(Sender: TObject); procedure CbZoomToCursorChange(Sender: TObject);
procedure CbCyclicChange(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -373,6 +375,12 @@ begin
MapView.ZoomToCursor := CbZoomToCursor.Checked; MapView.ZoomToCursor := CbZoomToCursor.Checked;
end; end;
procedure TMainForm.CbCyclicChange(Sender: TObject);
begin
MapView.Cyclic := CbCyclic.Checked;
MapView.Redraw;
end;
procedure TMainForm.ClearFoundLocations; procedure TMainForm.ClearFoundLocations;
var var
i: Integer; 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"/> <CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<Title Value="MapViewer_Demo"/> <Title Value="mapviewer_demo_with_addons"/>
<Scaled Value="True"/> <Scaled Value="True"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
@ -44,8 +44,9 @@
</RequiredPackages> </RequiredPackages>
<Units Count="4"> <Units Count="4">
<Unit0> <Unit0>
<Filename Value="MapViewer_Demo.lpr"/> <Filename Value="mapviewer_demo_with_addons.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="MapViewer_Demo_with_AddOns"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
@ -72,7 +73,7 @@
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="bin\$(TargetCPU)-$(TargetOS)\MapViewer_Demo"/> <Filename Value="bin\$(TargetCPU)-$(TargetOS)\mapviewer_demo_with_addons"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/> <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+} {$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>