object MainForm: TMainForm Left = 390 Height = 555 Top = 139 Width = 936 Caption = 'Map Scale Demo' ClientHeight = 555 ClientWidth = 936 LCLVersion = '4.99.0.0' OnCreate = FormCreate object MapView: TMapView Left = 336 Height = 555 Top = 0 Width = 600 Align = alClient DownloadEngine = MapView.BuiltInDLE DrawingEngine = MapView.BuiltInDE Layers = < item PointsOfInterest = <> Areas = <> Tracks = <> end> Font.Color = clBlack MapProvider = 'Open Topo Map' MapCenter.Longitude = 10 MapCenter.Latitude = 50 PluginManager = PluginManager Zoom = 8 OnZoomChange = MapViewZoomChange end object ParamsPanel: TPanel Left = 12 Height = 531 Top = 12 Width = 312 Align = alLeft AutoSize = True BorderSpacing.Around = 12 BevelOuter = bvNone ClientHeight = 531 ClientWidth = 312 TabOrder = 1 object cbScaleVisible: TCheckBox AnchorSideLeft.Control = ParamsPanel AnchorSideTop.Control = ParamsPanel Left = 0 Height = 19 Top = 0 Width = 96 Caption = 'Show the scale' Checked = True State = cbChecked TabOrder = 0 OnChange = cbScaleVisibleChange end object rgScaleAlign: TRadioGroup AnchorSideLeft.Control = ParamsPanel AnchorSideTop.Control = cbScaleVisible AnchorSideTop.Side = asrBottom AnchorSideRight.Control = ParamsPanel AnchorSideRight.Side = asrBottom Left = 0 Height = 97 Top = 31 Width = 312 Anchors = [akTop, akLeft, akRight] AutoFill = True AutoSize = True BorderSpacing.Top = 12 Caption = 'Scale Alignment' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.HorizontalSpacing = 6 ChildSizing.VerticalSpacing = 4 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 3 ClientHeight = 77 ClientWidth = 308 Columns = 3 ItemIndex = 8 Items.Strings = ( 'left/top' 'center/top' 'right/top' 'left/center' 'center/center' 'right/center' 'left/bottom' 'center/bottom' 'right/bottom' ) TabOrder = 1 OnClick = rgScaleAlignClick end object rgLengthUnits: TRadioGroup AnchorSideLeft.Control = ParamsPanel AnchorSideTop.Control = rgScaleAlign AnchorSideTop.Side = asrBottom AnchorSideRight.Control = ParamsPanel AnchorSideRight.Side = asrBottom Left = 0 Height = 51 Top = 144 Width = 312 Anchors = [akTop, akLeft, akRight] AutoFill = True AutoSize = True BorderSpacing.Top = 16 Caption = 'Length Units' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 31 ClientWidth = 308 Columns = 2 ItemIndex = 0 Items.Strings = ( 'metric (km, m)' 'imperial (miles, feet)' ) TabOrder = 2 OnClick = rgLengthUnitsClick end object gbZoomMin: TGroupBox AnchorSideLeft.Control = ParamsPanel AnchorSideTop.Control = rgLengthUnits AnchorSideTop.Side = asrBottom AnchorSideRight.Control = ParamsPanel AnchorSideRight.Side = asrBottom Left = 0 Height = 105 Top = 211 Width = 312 BorderSpacing.Top = 16 Caption = 'Zoom Minimum' ClientHeight = 85 ClientWidth = 308 TabOrder = 3 object lblZoomMinInfo: TLabel AnchorSideLeft.Control = gbZoomMin AnchorSideTop.Control = seZoomMin AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbZoomMin AnchorSideRight.Side = asrBottom Left = 12 Height = 30 Top = 39 Width = 284 Alignment = taCenter Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 4 BorderSpacing.Around = 12 Caption = 'The map scale is displayed only when the current zoom level is less than this value.' WordWrap = True end object seZoomMin: TSpinEdit AnchorSideLeft.Control = gbZoomMin AnchorSideTop.Control = gbZoomMin Left = 24 Height = 23 Top = 0 Width = 92 Alignment = taRightJustify BorderSpacing.Left = 24 TabOrder = 0 OnChange = seZoomMinChange end object lblCurrentZoom: TLabel AnchorSideLeft.Control = seZoomMin AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = seZoomMin AnchorSideTop.Side = asrCenter AnchorSideRight.Control = gbZoomMin AnchorSideRight.Side = asrBottom Left = 116 Height = 15 Top = 4 Width = 192 Alignment = taCenter Anchors = [akTop, akLeft, akRight] Caption = 'Current zoom level: ' end end object gbPen: TGroupBox AnchorSideLeft.Control = ParamsPanel AnchorSideTop.Control = gbZoomMin AnchorSideTop.Side = asrBottom AnchorSideRight.Control = ParamsPanel AnchorSideRight.Side = asrBottom Left = 0 Height = 53 Top = 332 Width = 312 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 16 Caption = 'Scale Bar Pen' ClientHeight = 33 ClientWidth = 308 TabOrder = 4 object lblPenWidth: TLabel AnchorSideLeft.Control = gbPen AnchorSideTop.Control = sePenWidth AnchorSideTop.Side = asrCenter Left = 24 Height = 15 Top = 4 Width = 32 BorderSpacing.Left = 24 Caption = 'Width' end object sePenWidth: TSpinEdit AnchorSideLeft.Control = lblPenWidth AnchorSideLeft.Side = asrBottom AnchorSideTop.Side = asrCenter AnchorSideRight.Control = Bevel1 Left = 68 Height = 23 Top = 0 Width = 74 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 12 MaxValue = 10 MinValue = 1 TabOrder = 0 Value = 1 OnChange = sePenWidthChange end object clbPenColor: TColorButton AnchorSideLeft.Control = Bevel1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbPen AnchorSideRight.Control = gbPen AnchorSideRight.Side = asrBottom Left = 166 Height = 25 Top = 0 Width = 134 Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 BorderWidth = 2 ButtonColorAutoSize = False ButtonColorSize = 16 ButtonColor = clBlack Caption = 'Line color' OnColorChanged = clbPenColorChanged end object Bevel1: TBevel AnchorSideLeft.Control = gbPen AnchorSideLeft.Side = asrCenter Left = 142 Height = 26 Top = 1 Width = 24 Shape = bsSpacer end end object gbFont: TGroupBox AnchorSideLeft.Control = ParamsPanel AnchorSideTop.Control = gbPen AnchorSideTop.Side = asrBottom AnchorSideRight.Control = ParamsPanel AnchorSideRight.Side = asrBottom Left = 0 Height = 53 Top = 401 Width = 312 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 16 Caption = 'Font' ClientHeight = 33 ClientWidth = 308 TabOrder = 5 object btnFont: TButton AnchorSideLeft.Control = gbFont AnchorSideTop.Control = gbFont Left = 24 Height = 25 Top = 0 Width = 75 BorderSpacing.Left = 24 BorderSpacing.Bottom = 8 Caption = 'Font...' TabOrder = 0 OnClick = btnFontClick end object lblFontSample: TLabel AnchorSideLeft.Control = btnFont AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = btnFont AnchorSideTop.Side = asrCenter AnchorSideRight.Control = gbFont AnchorSideRight.Side = asrBottom Left = 99 Height = 15 Top = 5 Width = 209 Alignment = taCenter Anchors = [akTop, akLeft, akRight] Caption = '1000 km' end end object gbBackground: TGroupBox AnchorSideLeft.Control = ParamsPanel AnchorSideTop.Control = gbFont AnchorSideTop.Side = asrBottom AnchorSideRight.Control = ParamsPanel AnchorSideRight.Side = asrBottom Left = 0 Height = 53 Top = 470 Width = 312 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 16 Caption = 'Background' ClientHeight = 33 ClientWidth = 308 TabOrder = 6 object lblOpacity: TLabel AnchorSideLeft.Control = gbBackground AnchorSideTop.Side = asrCenter Left = 16 Height = 15 Top = 5 Width = 41 BorderSpacing.Left = 16 Caption = 'Opacity' end object clbBackgroundColor: TColorButton AnchorSideLeft.Control = Bevel2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbBackground AnchorSideRight.Control = gbBackground AnchorSideRight.Side = asrBottom Left = 166 Height = 25 Top = 0 Width = 134 Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 BorderWidth = 2 ButtonColorAutoSize = False ButtonColorSize = 16 ButtonColor = clBlack Caption = 'Background color' OnColorChanged = clbBackgroundColorChanged end object Bevel2: TBevel AnchorSideLeft.Control = gbBackground AnchorSideLeft.Side = asrCenter Left = 142 Height = 26 Top = 2 Width = 24 Shape = bsSpacer end object seOpacity: TFloatSpinEdit AnchorSideLeft.Control = lblOpacity AnchorSideLeft.Side = asrBottom AnchorSideTop.Side = asrCenter AnchorSideRight.Control = Bevel2 Left = 69 Height = 23 Top = 2 Width = 73 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 12 Increment = 0.05 MaxValue = 1 TabOrder = 0 Value = 1 OnChange = seOpacityChange end end end object PluginManager: TMvPluginManager Left = 429 Top = 105 end object FontDialog: TFontDialog MinFontSize = 0 MaxFontSize = 0 Left = 132 Top = 398 end end