sel_sg.~dfm

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

object select_sgtfrm: Tselect_sgtfrm
  Left = 123
  Top = 105
  Width = 638
  Height = 370
  Caption = #26629#26684#22270#24405#20837#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 233
    Height = 343
    Align = alLeft
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 0
    object GroupBox2: TGroupBox
      Left = 0
      Top = 0
      Width = 233
      Height = 343
      Align = alClient
      Caption = #25991#20214#24050#23384#22312#20449#24687
      TabOrder = 0
      object FileList: TFileListBox
        Left = 2
        Top = 15
        Width = 229
        Height = 326
        Hint = #25552#31034#65306#20320#21487#20197#28857#20987#21491#38190#21024#38500
        Align = alClient
        Color = clHighlightText
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnMouseDown = FileListMouseDown
      end
    end
  end
  object Panel2: TPanel
    Left = 233
    Top = 0
    Width = 397
    Height = 343
    Align = alClient
    BevelOuter = bvSpace
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 286
      Width = 395
      Height = 56
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object BitBtn1: TBitBtn
        Left = 106
        Top = 7
        Width = 87
        Height = 29
        Caption = #23548#20837#25991#20214
        TabOrder = 0
        OnClick = BitBtn1Click
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF0010101000301F1F00503030005F5F5F001F1F1F00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00101010008050
          5000E09F9F00603030006030300070707000707070005F5F5F00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001010100080505000F0A0A000FFCF
          CF00FFCFCF00603030006030300070707000707070005F5F5F00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF001010100080505000F0A0A000FFCFCF00FFCFCF00FFCF
          CF00FFCFCF0060303000603030005F5F5F001F1F1F00FFFFFF00FFFFFF00FFFF
          FF001010100080505000F0A0A000FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCF
          CF00FFCFCF006030300060303000FFFFFF00FFFFFF00FFFFFF00000000008050
          5000F0A0A000FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCF
          CF00FFCFCF006030300060303000FFFFFF00FFFFFF00FFFFFF0000000000FFCF
          CF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCF
          CF00FFCFCF006030300060303000FFFFFF00FFFFFF00FFFFFF0000000000FFCF
          CF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCF
          CF00FFCFCF006030300060303000FFFFFF00FFFFFF00FFFFFF0000000000FFCF
          CF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCF
          CF00FFCFCF006030300060303000FFFFFF00FFFFFF00FFFFFF0000000000FFCF
          CF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFDFDF00FFCF
          CF00FFCFCF007F6060007F4F4F00FFFFFF00FFFFFF00FFFFFF0000000000FFCF
          CF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00FFDFDF00D0AFAF00A06F6F00705F
          5F00A06F6F00FF9F9F003F303000FFFFFF0080808000FFFFFF0000000000FFCF
          CF00FFCFCF00FFCFCF00FFCFCF00FFCFCF00A0909000D0808000FF9F9F00FF9F
          9F00FF9F9F0080505000FFFFFF0000FF000080808000FFFFFF0000000000FFCF
          CF00FFCFCF00FFCFCF00FFCFCF00A08F8F00A06F6F00FFA0A000FF9F9F00FFA0
          A000D090900010101000FFFFFF0000FF0000808080008080800000000000FFCF
          CF00FFCFCF00A08F8F00A06F6F00FFA0A000906F6F00101010007F5F5F005030
          30000000000000FF000000FF000000FF000000FF000000FF0000000000009070
          7000A06F6F00FFA0A000906F6F0010101000FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF0000FF000080808000FFFFFF00FFFFFF000000
          0000FFB0B00020202000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF0000FF0000FFFFFF00FFFFFF00}
      end
      object btnCancel: TBitBtn
        Left = 229
        Top = 7
        Width = 84
        Height = 29
        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
    end
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 395
      Height = 285
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object GroupBox1: TGroupBox
        Left = 35
        Top = 24
        Width = 335
        Height = 249
        Hint = #35831#23558#35813#26629#26684#22270#30340#25551#36848#20449#24687#29992'doc'#20889#22909#65281#21644#25991#20214#19968#36215#25171#21253
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 200
          Top = 106
          Width = 94
          Height = 33
          Caption = #22320#24418
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = RadioButton1Click
          OnEnter = RadioButton1Enter
          OnExit = RadioButton1Exit
        end
        object RadioButton2: TRadioButton
          Left = 49
          Top = 106
          Width = 114
          Height = 33
          Caption = #20132#36890#32593#32476
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = RadioButton2Click
          OnEnter = RadioButton2Enter
          OnExit = RadioButton2Exit
        end
        object RadioButton3: TRadioButton
          Left = 49
          Top = 165
          Width = 114
          Height = 33
          Caption = #26053#28216#36164#28304
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = RadioButton3Click
          OnEnter = RadioButton3Enter
          OnExit = RadioButton3Exit
        end
        object RadioButton4: TRadioButton
          Left = 200
          Top = 47
          Width = 94
          Height = 33
          Caption = #27700#31995
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = RadioButton4Click
          OnEnter = RadioButton4Enter
          OnExit = RadioButton4Exit
        end
        object RadioButton5: TRadioButton
          Left = 49
          Top = 48
          Width = 114
          Height = 33
          Caption = #34892#25919#21306#21010
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = RadioButton5Click
          OnEnter = RadioButton5Enter
          OnExit = RadioButton5Exit
        end
        object RadioButton6: TRadioButton
          Left = 200
          Top = 165
          Width = 94
          Height = 33
          Caption = #20854#20182
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnClick = RadioButton6Click
          OnEnter = RadioButton6Enter
          OnExit = RadioButton6Exit
        end
        object Edit1: TEdit
          Left = 240
          Top = 392
          Width = 121
          Height = 21
          TabOrder = 6
          Text = 'f:\'
          Visible = False
        end
      end
    end
  end
  object odsg: TOpenDialog
    Filter = 'All file(*.*)|*.*'
    Left = 176
    Top = 160
  end
  object PopupMenu1: TPopupMenu
    Left = 128
    Top = 48
    object sdf1: TMenuItem
      Caption = #21024#38500
      OnClick = sdf1Click
    end
  end
end