thmbardlg.dfm

delphi 和mapx联合开发的例程 实现mapx的相应功能

object ThmBarFrm: TThmBarFrm
  Left = 323
  Top = 195
  BorderStyle = bsSingle
  Caption = 'ThmBarFrm'
  ClientHeight = 275
  ClientWidth = 258
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 11
    Top = 19
    Width = 120
    Height = 13
    Caption = #26368#22823#30452#26041#26465#25968#25454#20540#65306'    '
  end
  object Label2: TLabel
    Left = 11
    Top = 48
    Width = 111
    Height = 13
    Caption = #26368#22823#30452#26041#26465#39640#24230#65306'     '
  end
  object Label3: TLabel
    Left = 12
    Top = 77
    Width = 81
    Height = 13
    Caption = #30452#26041#26465#23485#24230#65306'   '
  end
  object Edit1: TEdit
    Left = 131
    Top = 15
    Width = 116
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 0
  end
  object Edit2: TEdit
    Left = 131
    Top = 44
    Width = 116
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 1
  end
  object Edit3: TEdit
    Left = 131
    Top = 74
    Width = 116
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 2
  end
  object GroupBox1: TGroupBox
    Left = 10
    Top = 161
    Width = 238
    Height = 56
    Caption = #30452#26041#26465#39068#33394
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object Label4: TLabel
      Left = 8
      Top = 24
      Width = 78
      Height = 13
      Caption = #30452#26041#26465#32534#21495#65306'  '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object ComboBox1: TComboBox
      Left = 80
      Top = 20
      Width = 77
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 167
      Top = 19
      Width = 61
      Height = 24
      Caption = #39068#33394#36873#25321'...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn1Click
    end
  end
  object Button2: TButton
    Left = 30
    Top = 235
    Width = 66
    Height = 25
    Caption = #30830#23450
    ModalResult = 1
    TabOrder = 4
  end
  object Button3: TButton
    Left = 162
    Top = 235
    Width = 65
    Height = 25
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 5
  end
  object RadioGroup1: TRadioGroup
    Left = 10
    Top = 106
    Width = 237
    Height = 51
    Caption = #30452#26041#26465#25490#21015#26041#24335
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
  end
  object RadioButton1: TRadioButton
    Left = 17
    Top = 129
    Width = 113
    Height = 17
    Caption = #30452#26041#26465#27178#21521#25490#21015
    TabOrder = 7
  end
  object RadioButton2: TRadioButton
    Left = 140
    Top = 129
    Width = 103
    Height = 17
    Caption = #30452#26041#26465#31446#21521#25490#21015
    TabOrder = 8
  end
  object ColorDialog1: TColorDialog
    Left = 180
  end
end