lazarus-ccr/components/lazmapviewer/examples/plugin_demos/scale_demo/main.lfm

object MainForm: TMainForm
  Left = 390
  Height = 467
  Top = 139
  Width = 936
  Caption = 'Map Scale Demo'
  ClientHeight = 467
  ClientWidth = 936
  LCLVersion = '4.99.0.0'
  OnCreate = FormCreate
  object MapView: TMapView
    Left = 328
    Height = 467
    Top = 0
    Width = 608
    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
    UseThreads = True
    Zoom = 8
    OnZoomChange = MapViewZoomChange
  end
  object ParamsPanel: TPanel
    Left = 8
    Height = 451
    Top = 8
    Width = 312
    Align = alLeft
    AutoSize = True
    BorderSpacing.Around = 8
    BevelOuter = bvNone
    ClientHeight = 451
    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 Align'
      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)'
      )
      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
        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 = 12
        Height = 23
        Top = 0
        Width = 92
        Alignment = taRightJustify
        BorderSpacing.Left = 12
        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 = 104
        Height = 15
        Top = 4
        Width = 204
        Alignment = taCenter
        Anchors = [akTop, akLeft, akRight]
        Caption = 'Current zoom level: '
      end
    end
  end
  object PluginManager: TMvPluginManager
    Left = 429
    Top = 105
  end
end