pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

lazMapViewer: Improved layout of demo program

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6837 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-03-25 17:39:31 +00:00
parent e3d62278c5
commit 660e0190e3
3 changed files with 31 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazmapviewer/example/main.pas
View File

@ -16,7 +16,7 @@ type
TMainForm = class(TForm)
BtnSearch: TButton;
BtnGoTo: TButton;
Button1: TButton;
BtnGPSPoints: TButton;
CbDoubleBuffer: TCheckBox;
CbFoundLocations: TComboBox;
CbLocations: TComboBox;
@ -26,7 +26,7 @@ type
GbCenterCoords: TGroupBox;
InfoCenterLatitude: TLabel;
InfoCenterLongitude: TLabel;
Label1: TLabel;
InfoBtnGPSPoints: TLabel;
GPSPointInfo: TLabel;
Label8: TLabel;
LblCenterLatitude: TLabel;
@ -43,7 +43,7 @@ type
ZoomTrackBar: TTrackBar;
procedure BtnGoToClick(Sender: TObject);
procedure BtnSearchClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BtnGPSPointsClick(Sender: TObject);
procedure CbDoubleBufferChange(Sender: TObject);
procedure CbFoundLocationsDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
@ -120,7 +120,7 @@ begin
if CbFoundLocations.Items.Count > 0 then CbFoundLocations.ItemIndex := 0;
end;
procedure TMainForm.Button1Click(Sender: TObject);
procedure TMainForm.BtnGPSPointsClick(Sender: TObject);
var
F: TGpsListViewer;
begin