paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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'
Width = 150
end>
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end

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

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

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