Delphi控件源码

开发平台：
Delphi

UTestXML.dfm：源码内容
							object dlgName: TdlgName
  Left = 581
  Top = 183
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Test XML'
  ClientHeight = 269
  ClientWidth = 289
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 6
    Top = 229
    Width = 3
    Height = 13
  end
  object ProgressBar: TProgressBar
    Left = 4
    Top = 247
    Width = 277
    Height = 17
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 4
    Width = 273
    Height = 150
    Caption = 'Export options'
    TabOrder = 1
    object CBExt: TCheckBox
      Left = 10
      Top = 17
      Width = 243
      Height = 17
      Caption = 'Media resource as external'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object CBSubFolder: TCheckBox
      Left = 10
      Top = 109
      Width = 247
      Height = 17
      Caption = 'Store in subfolder'
      TabOrder = 6
      OnClick = CBSubFolderClick
    end
    object CBSomeFolder: TCheckBox
      Left = 28
      Top = 128
      Width = 213
      Height = 17
      Caption = 'Some folder'
      Checked = True
      Enabled = False
      State = cbChecked
      TabOrder = 7
    end
    object CBFontExt: TCheckBox
      Left = 10
      Top = 36
      Width = 159
      Height = 17
      Caption = 'Font as external'
      TabOrder = 2
      OnClick = CBFontExtClick
    end
    object CBFBytecode: TCheckBox
      Left = 26
      Top = 54
      Width = 155
      Height = 17
      Caption = 'Font as bytecode'
      Enabled = False
      TabOrder = 3
    end
    object CBActionExt: TCheckBox
      Left = 10
      Top = 72
      Width = 195
      Height = 17
      Caption = 'Actions as external'
      TabOrder = 4
    end
    object CBABytecode: TCheckBox
      Left = 10
      Top = 90
      Width = 155
      Height = 17
      Caption = 'Actions as bytecode'
      Checked = True
      State = cbChecked
      TabOrder = 5
    end
    object bMakeXML: TButton
      Left = 175
      Top = 13
      Width = 90
      Height = 23
      Caption = 'Make XML'
      TabOrder = 0
      OnClick = bMakeXMLClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 159
    Width = 273
    Height = 63
    Caption = 'Processor type'
    TabOrder = 2
    object bMakeSWF: TButton
      Left = 174
      Top = 15
      Width = 90
      Height = 23
      Caption = 'Make SWF'
      TabOrder = 0
      OnClick = bMakeSWFClick
    end
    object RB1: TRadioButton
      Left = 10
      Top = 17
      Width = 113
      Height = 17
      Caption = 'Only SWF tags'
      Checked = True
      TabOrder = 1
      TabStop = True
    end
    object RB2: TRadioButton
      Left = 10
      Top = 37
      Width = 113
      Height = 17
      Caption = 'Extended (flash) '
      TabOrder = 2
    end
  end
  object OD: TOpenDialog
    Left = 72
    Top = 218
  end
end

						