lazarus-ccr/components/lazmapviewer/example/gpsptform.lfm

168 lines
4.2 KiB
Plaintext

object GPSPointForm: TGPSPointForm
Left = 720
Height = 199
Top = 322
Width = 226
ActiveControl = edGPSPointLabel
AutoSize = True
BorderStyle = bsDialog
Caption = 'GPS Location'
ClientHeight = 199
ClientWidth = 226
OnShow = FormShow
LCLVersion = '2.1.0.0'
object ButtonPanel1: TButtonPanel
AnchorSideTop.Control = cbSymbols
AnchorSideTop.Side = asrBottom
Left = 6
Height = 34
Top = 159
Width = 214
Anchors = [akLeft, akRight]
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
ShowButtons = [pbOK, pbCancel]
end
object Panel1: TPanel
Left = 12
Height = 141
Top = 12
Width = 202
Align = alClient
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 12
BorderSpacing.Right = 12
BevelOuter = bvNone
ClientHeight = 141
ClientWidth = 202
TabOrder = 0
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 0
Height = 15
Top = 0
Width = 104
Caption = 'Name of GPS point:'
ParentColor = False
end
object edGPSPointLabel: TEdit
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 0
Height = 23
Top = 17
Width = 200
BorderSpacing.Top = 2
TabOrder = 0
end
object clbSymbolColor: TColorBox
AnchorSideLeft.Control = cbSymbols
AnchorSideTop.Control = edGPSPointLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edGPSPointLabel
AnchorSideRight.Side = asrBottom
Left = 51
Height = 22
Top = 44
Width = 149
Style = [cbStandardColors, cbExtendedColors, cbPrettyNames]
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
DropDownCount = 24
ItemHeight = 16
TabOrder = 1
end
object Label2: TLabel
AnchorSideLeft.Control = edGPSPointLabel
AnchorSideTop.Control = clbSymbolColor
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 48
Width = 32
BorderSpacing.Top = 8
Caption = 'Color:'
ParentColor = False
end
object lblSymbol: TLabel
AnchorSideLeft.Control = edGPSPointLabel
AnchorSideTop.Control = cbSymbols
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 101
Width = 43
BorderSpacing.Top = 8
Caption = 'Symbol:'
ParentColor = False
end
object cbSymbols: TComboBox
AnchorSideLeft.Control = lblSymbol
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seSize
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edGPSPointLabel
AnchorSideRight.Side = asrBottom
Left = 51
Height = 23
Top = 97
Width = 149
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'plus ( + )'
'corss (⛌)'
'filled circle (⚫)'
'open circle (⚪)'
'filled square (■)'
'open square (□)'
)
Style = csDropDownList
TabOrder = 3
Text = 'plus ( + )'
end
object lblSize: TLabel
AnchorSideLeft.Control = edGPSPointLabel
AnchorSideTop.Control = seSize
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 74
Width = 20
Caption = 'Size'
ParentColor = False
end
object seSize: TSpinEdit
AnchorSideLeft.Control = cbSymbols
AnchorSideTop.Control = clbSymbolColor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = clbSymbolColor
AnchorSideRight.Side = asrBottom
Left = 51
Height = 23
Top = 70
Width = 149
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
MaxValue = 50
MinValue = 1
TabOrder = 2
Value = 1
end
end
end