unit1.dfm

Delphi7编程80例(完全版)

object Form1: TForm1
  Left = 228
  Top = 120
  Width = 467
  Height = 320
  Caption = #22312'Delphi'#20013#21019#24314#22320#22270'----GIS'#32452#20214'MapObject'#30340#24320#21457
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Map1: TMap
    Left = 0
    Top = 0
    Width = 459
    Height = 293
    ParentColor = False
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 0
    ControlData = {
      00000200702F0000481E0000E1000000FFFFFF00010001000001102700000100
      00000000000000000000000000000100FFFFFF0000560200000500FFFF01000D
      00434175746F4D61704C6179657250453A5C44454C5048495CD0C2B5C4CAB5C0
      FD5CB5E7C4D4B1A85CCAB5C0FDCAAE2D2DB5E7D7D3B5D8CDBCBFAAB7A2D6AE47
      4953D7E9BCFE2D2D4D61706F626A656374C9EEC8EBBFAAB7A25C574F524C4400
      00000006434954494553E19EF102010005000100010000000643495449455301
      8050453A5C44454C5048495CD0C2B5C4CAB5C0FD5CB5E7C4D4B1A85CCAB5C0FD
      CAAE2D2DB5E7D7D3B5D8CDBCBFAAB7A2D6AE474953D7E9BCFE2D2D4D61706F62
      6A656374C9EEC8EBBFAAB7A25C574F524C440000000006524956455253350A97
      020300010000000100000006524956455253018050453A5C44454C5048495CD0
      C2B5C4CAB5C0FD5CB5E7C4D4B1A85CCAB5C0FDCAAE2D2DB5E7D7D3B5D8CDBCBF
      AAB7A2D6AE474953D7E9BCFE2D2D4D61706F626A656374C9EEC8EBBFAAB7A25C
      574F524C440000000008445241494E41474538C7A10203000100000001000000
      08445241494E414745018050453A5C44454C5048495CD0C2B5C4CAB5C0FD5CB5
      E7C4D4B1A85CCAB5C0FDCAAE2D2DB5E7D7D3B5D8CDBCBFAAB7A2D6AE474953D7
      E9BCFE2D2D4D61706F626A656374C9EEC8EBBFAAB7A25C574F524C4400000000
      054C414B455388F0270205000000000001000000054C414B4553018050453A5C
      44454C5048495CD0C2B5C4CAB5C0FD5CB5E7C4D4B1A85CCAB5C0FDCAAE2D2DB5
      E7D7D3B5D8CDBCBFAAB7A2D6AE474953D7E9BCFE2D2D4D61706F626A656374C9
      EEC8EBBFAAB7A25C574F524C440000000007636F756E74727933218602050000
      0000000100000007636F756E747279}
  end
  object PopupMenu1: TPopupMenu
    Left = 192
    Top = 88
    object N1: TMenuItem
      Caption = #25918#22823
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #32553#23567
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #28459#28216
      OnClick = N3Click
    end
    object N5: TMenuItem
      Caption = #20445#23384#25991#20214
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = #36864#20986
      OnClick = N4Click
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = 'JPG'#25991#20214'|*.jpg'
    Left = 248
    Top = 88
  end
end