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

2
components/lazmapviewer/example/gpslistform.lfm
View File

@ -32,6 +32,8 @@ object GPSListViewer: TGPSListViewer
Caption = 'Longitude' Caption = 'Longitude'
Width = 150 Width = 150
end> end>
ReadOnly = True
RowSelect = True
TabOrder = 0 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport
end end

34
components/lazmapviewer/example/main.lfm
View File

@ -346,31 +346,47 @@ object MainForm: TMainForm
OnClick = BtnGoToClick OnClick = BtnGoToClick
TabOrder = 9 TabOrder = 9
end end
object Label1: TLabel object InfoBtnGPSPoints: TLabel
AnchorSideLeft.Control = BtnGPSPoints
AnchorSideTop.Control = BtnGPSPoints
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnGoTo
AnchorSideRight.Side = asrBottom
Left = 8 Left = 8
Height = 48 Height = 52
Top = 400 Top = 380
Width = 219 Width = 220
Anchors = [akTop, akLeft, akRight]
AutoSize = False AutoSize = False
BorderSpacing.Top = 8
Caption = 'Click with right mouse button to add a GPS point.' Caption = 'Click with right mouse button to add a GPS point.'
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
object Button1: TButton object BtnGPSPoints: TButton
AnchorSideTop.Control = CbFoundLocations
AnchorSideTop.Side = asrBottom
Left = 8 Left = 8
Height = 25 Height = 25
Top = 368 Top = 347
Width = 92 Width = 92
AutoSize = True AutoSize = True
BorderSpacing.Top = 8
Caption = 'GPS points...' Caption = 'GPS points...'
OnClick = Button1Click OnClick = BtnGPSPointsClick
TabOrder = 10 TabOrder = 10
end end
object GPSPointInfo: TLabel object GPSPointInfo: TLabel
AnchorSideLeft.Control = InfoBtnGPSPoints
AnchorSideTop.Control = InfoBtnGPSPoints
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = InfoBtnGPSPoints
AnchorSideRight.Side = asrBottom
Left = 8 Left = 8
Height = 80 Height = 80
Top = 456 Top = 432
Width = 222 Width = 220
Anchors = [akTop, akLeft, akRight]
AutoSize = False AutoSize = False
Caption = 'GPSPointInfo' Caption = 'GPSPointInfo'
ParentColor = False ParentColor = False

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

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