ly_unit.dfm

地理资源的录入程序运用了api的一些知识

object lyFrm: TlyFrm
  Left = 82
  Top = 262
  Width = 291
  Height = 192
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object btnok: TBitBtn
    Left = 80
    Top = 130
    Width = 81
    Height = 28
    Caption = #26597' '#35810
    TabOrder = 0
    OnClick = btnokClick
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
      FF00FFFFFF003232320032323200323232003232320032323200323232003232
      3200323232003232320032323200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF003232320086868600B6B6B600DADADA00DADADA00DADADA00DADADA00DADA
      DA00DADADA00CECECE00323232002626260026262600FFFFFF00FFFFFF003232
      3200F2F2F2004A4A4A00B6B6B600E6E6E600E6E6E600E6E6E600E6E6E600E6E6
      E600E6E6E600626262000049DC0025AAFF000031960026262600323232008686
      86004A4A4A0062626200E6E6E600E6E6E600F2F2F200F2F2F200F2F2F200F2F2
      F200626262000049DC008ED4FF008E8EFF000049DC002626260032323200DADA
      DA00E6E6E600E6E6E600E6E6E600E6E6E600DADADA00AAAAAA00AAAAAA006262
      62000049DC008ED4FF008E8EFF000049DC0026262600FFFFFF0032323200E6E6
      E600E6E6E600E6E6E600C2C2C2006E6E6E004A4A4A004A4A4A004A4A4A004A4A
      4A008ED4FF008E8EFF000049DC0026262600FFFFFF00FFFFFF0032323200E6E6
      E600E6E6E600C2C2C2006E6E6E00FFC66B00FFC66B00FFC66B00FFB84800FF8F
      6B002557FF000049DC0026262600FFFFFF00FFFFFF00FFFFFF0032323200E6E6
      E600C2C2C2006E6E6E00AAAAAA00FFE2B100FFFF8E00FFFF8E00FFC66B00FFB8
      4800FF8F6B004A4A4A0032323200FFFFFF00FFFFFF00FFFFFF0032323200E6E6
      E600C2C2C2006E6E6E00FFE2B100FFFFD400FFFFB100FFFF8E00FFFF8E00FFC6
      6B00FFB848004A4A4A0032323200FFFFFF00FFFFFF00FFFFFF0032323200E6E6
      E600C2C2C2006E6E6E00FFE2B100FFFFD400FFFFB100FFFFB100FFFF8E00FFFF
      8E00FFB848004A4A4A0032323200FFFFFF00FFFFFF00FFFFFF0032323200E6E6
      E600C2C2C2006E6E6E00FFE2B100FFFFD400FFFFB100FFFFB100FFFFB100FFFF
      8E00FFB848004A4A4A0032323200FFFFFF00FFFFFF00FFFFFF0032323200E6E6
      E600DADADA006E6E6E00C2C2C200FFE2B100FFFFD400FFFFB100FFFFB100FFE2
      B100AAAAAA004A4A4A0032323200FFFFFF00FFFFFF00FFFFFF0032323200E6E6
      E600DADADA00C2C2C2006E6E6E00C2C2C200FFE2B100FFE2B100FFE2B100AAAA
      AA0026262600C2C2C20032323200FFFFFF00FFFFFF00FFFFFF0032323200E6E6
      E600DADADA00DADADA00C2C2C2006E6E6E006E6E6E006E6E6E006E6E6E006E6E
      6E00C2C2C200E6E6E60032323200FFFFFF00FFFFFF00FFFFFF0032323200F2F2
      F200E6E6E600E6E6E600E6E6E600E6E6E600C2C2C200C2C2C200C2C2C200C2C2
      C200E6E6E600E6E6E60032323200FFFFFF00FFFFFF00FFFFFF00323232003232
      3200323232003232320032323200323232003232320032323200323232003232
      3200323232003232320032323200FFFFFF00FFFFFF00FFFFFF00}
  end
  object btnCancel: TBitBtn
    Left = 190
    Top = 130
    Width = 81
    Height = 28
    Caption = #36864' '#20986
    TabOrder = 1
    OnClick = btnCancelClick
    Glyph.Data = {
      26040000424D2604000000000000360000002800000012000000120000000100
      180000000000F0030000C40E0000C40E00000000000000000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      0000FFFFFFFFFFFFFFFFFFFFFFFF000000808000000000FFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
      FFFFFF000000808000808000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFF0000000000008080008080
      00808000000000000000000000000000000000000000000000000000FFFFFFFF
      FFFFFFFFFFFFFFFF0000FFFFFFFFFFFF000000808000808000808000000000FF
      FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      0000FFFFFFFFFFFF000000808000808000000000000000FFFFFFFFFFFF000000
      FFFFFFFFFFFFFFFFFFFFFFFF800000FFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
      000000808000808000808000000000FFFFFFFFFFFF000000FFFFFFFFFFFFFFFF
      FF800000800000FFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF0000008080008080
      00808000000000FFFFFFFFFFFF000000FFFFFFFFFFFF80000080000080000080
      0000800000FFFFFF0000FFFFFFFFFFFF000000808000808000808000000000FF
      FFFFFFFFFF000000FFFFFF800000800000800000800000800000800000FFFFFF
      0000FFFFFFFFFFFF000000808000808000808000000000FFFFFFFFFFFF000000
      FFFFFFFFFFFF800000800000800000800000800000FFFFFF0000FFFFFFFFFFFF
      000000808000808000000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFF
      FF800000800000FFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF0000008080000000
      00FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF800000FF
      FFFFFFFFFFFFFFFF0000FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      0000FFFFFFFFFFFF000000000000000000000000000000000000000000000000
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFF0000}
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 49
    Width = 282
    Height = 73
    TabOrder = 2
    object Label9: TLabel
      Left = 26
      Top = 47
      Width = 28
      Height = 14
      Caption = #20122#31867
      Color = clBtnFace
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object RadioButton2: TRadioButton
      Left = 8
      Top = 16
      Width = 81
      Height = 17
      Caption = #20027#31867
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = RadioButton2Click
    end
    object zl: TComboBox
      Left = 97
      Top = 17
      Width = 174
      Height = 21
      Color = clWhite
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 1
      OnDropDown = zlDropDown
      OnSelect = zlSelect
    end
    object yl: TComboBox
      Left = 96
      Top = 41
      Width = 174
      Height = 21
      Color = clWhite
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 281
    Height = 49
    TabOrder = 3
    object RadioButton1: TRadioButton
      Left = 8
      Top = 22
      Width = 89
      Height = 17
      Caption = #36164#28304#24179#21488#21495
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TabStop = True
      OnClick = RadioButton1Click
    end
    object zypth: TEdit
      Left = 102
      Top = 18
      Width = 160
      Height = 21
      TabOrder = 1
    end
  end
end