www.pudn.com > MapLegend.rar > Unit1.dfm

object Form1: TForm1 
  Left = 250 
  Top = 171 
  Width = 798 
  Height = 598 
  Caption = 'Form1' 
  Color = clBtnFace 
  DockSite = True 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -11 
  Font.Name = 'MS Sans Serif' 
  Font.Style = [] 
  OldCreateOrder = False 
  OnActivate = FormActivate 
  OnCreate = FormCreate 
  PixelsPerInch = 96 
  TextHeight = 13 
  object Map1: TMap 
    Left = 0 
    Top = 0 
    Width = 790 
    Height = 564 
    ParentColor = False 
    Align = alClient 
    TabOrder = 0 
    OnMouseDown = Map1MouseDown 
    OnAfterLayerDraw = Map1AfterLayerDraw 
    ControlData = { 
      00000200A65100004B3A0000E1000000FFFFFF00010001000001102700000100 
      00000000000000000000000000000100FFFFFF0000020000000000} 
  end 
  object MapLegend1: TMapLegend 
    Left = 16 
    Top = 16 
    Width = 209 
    Height = 521 
    BorderWidth = 5 
    Caption = 'MapLegend1' 
    Enabled = True 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -12 
    Font.Name = 'Arial' 
    Font.Style = [] 
    ParentFont = False 
    TabOrder = 1 
    MouseButtonMove = mbLeft 
    ColorHI = clBtnHighlight 
    ColorLO = clBtnShadow 
    ButtonAlign = alClient 
    CornerDimension = 10 
    CornerColor = clAppWorkSpace 
    MaxWidth = 0 
    MaxHeight = 0 
    MinWidth = 0 
    MinHeight = 0 
    BorderHeight = 5 
    ShowPopupMenu = True 
    LegendAllow = [Moving, Resizing, DragDroping] 
  end 
  object Memo1: TMemo 
    Left = 168 
    Top = 160 
    Width = 537 
    Height = 251 
    BevelOuter = bvRaised 
    Color = clLime 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clNavy 
    Font.Height = -12 
    Font.Name = 'Arial' 
    Font.Style = [] 
    Lines.Strings = ( 
      'How to use the legend.' 
      '' 
       
        '  1.Move the legend by press at the border of the legend and dra' + 
        'g to needed position.' 
       
        '     But you can move the legend only if you set "align" propert' + 
        'y to "alNone".' 
      '  2.Resize the legend at the right bottom corner of the legend.' 
       
        '  3.Right click to call popupmenu to set some properties likes a' + 
        'lign, font, refresh, exporttoBmp' 
       
        '  4.If you want to drag and drop the layer. Don'#39't forget to pres' + 
        's Ctrl on keyboard.' 
       
        '  5.Double click at layer, You can modify some renderer properti' + 
        'es.' 
       
        #13'  6.When you resize the legend. The legend dispaly may not corr' + 
        'ect. So right click for ' 
      '     PopupMenu and then click at  "Refresh".' 
       
        '  7.Set range of scale to show layer by 2 properties with 2 line' + 
        's codes.' 
      '     MapLegend1.MinimumScaleToShow[1] := 0.60;' 
      '     MapLegend1.MaximumScaleToShow[1] := 0.005;' 
       
        '     ****** When zoom out of bound of specific scale will not sh' + 
        'ow the layer.********' 
      '' 
       
        #13'==============================Click here to close =============' + 
        '=================') 
    ParentFont = False 
    TabOrder = 2 
    OnClick = Memo1Click 
  end 
end