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

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;