46e39361c5
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9607 8e941d3f-bd1b-0410-a28a-d453659cc2b4
101 lines
2.4 KiB
Plaintext
101 lines
2.4 KiB
Plaintext
object Form1: TForm1
|
|
Left = 314
|
|
Height = 603
|
|
Top = 130
|
|
Width = 686
|
|
Caption = 'Restricted Zooming and Panning'
|
|
ClientHeight = 603
|
|
ClientWidth = 686
|
|
LCLVersion = '4.99.0.0'
|
|
OnCreate = FormCreate
|
|
object MapView1: TMapView
|
|
Left = 0
|
|
Height = 511
|
|
Top = 69
|
|
Width = 686
|
|
Align = alClient
|
|
Cyclic = True
|
|
DownloadEngine = MapView1.BuiltInDLE
|
|
DrawingEngine = MapView1.BuiltInDE
|
|
Layers = <>
|
|
Font.Color = clBlack
|
|
MapProvider = 'OpenStreetMap Standard'
|
|
OnChange = MapView1Change
|
|
end
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Height = 23
|
|
Top = 580
|
|
Width = 686
|
|
Panels = <
|
|
item
|
|
Width = 200
|
|
end
|
|
item
|
|
Width = 200
|
|
end
|
|
item
|
|
Width = 200
|
|
end>
|
|
SimplePanel = False
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 69
|
|
Top = 0
|
|
Width = 686
|
|
Align = alTop
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 69
|
|
ClientWidth = 686
|
|
TabOrder = 2
|
|
object Label1: TLabel
|
|
AnchorSideLeft.Control = rgCenter
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Panel1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 190
|
|
Height = 30
|
|
Top = 19
|
|
Width = 295
|
|
BorderSpacing.Left = 12
|
|
BorderSpacing.Around = 6
|
|
Caption = 'London cannot be moved out of the window at zoom 8.'#13#10'Only zoom levels > 8 allowed.'
|
|
end
|
|
object rgCenter: TRadioGroup
|
|
AnchorSideLeft.Control = Panel1
|
|
AnchorSideTop.Control = Panel1
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 12
|
|
Height = 45
|
|
Top = 12
|
|
Width = 160
|
|
AutoFill = True
|
|
AutoSize = True
|
|
BorderSpacing.Around = 12
|
|
Caption = 'Center'
|
|
ChildSizing.LeftRightSpacing = 12
|
|
ChildSizing.TopBottomSpacing = 3
|
|
ChildSizing.HorizontalSpacing = 12
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 2
|
|
ClientHeight = 25
|
|
ClientWidth = 156
|
|
Columns = 2
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'London'
|
|
'Dateline'
|
|
)
|
|
TabOrder = 0
|
|
OnClick = rgCenterClick
|
|
end
|
|
end
|
|
end
|