unit2.dfm

一个从UML的状态图的MDL文件获取测试用例的源码

object Form2: TForm2
  Left = -15
  Top = 12
  Width = 1036
  Height = 653
  Align = alClient
  Caption = #29366#24577#35206#30422#22270#24418#26174#31034
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 1017
    Height = 137
    Color = clMenuBar
    ParentColor = False
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 32
      Width = 73
      Height = 17
      AutoSize = False
      Caption = #24320#22987#29366#24577
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 328
      Top = 32
      Width = 89
      Height = 25
      AutoSize = False
      Caption = #30446#26631#29366#24577
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 104
      Top = 32
      Width = 139
      Height = 25
      AutoSize = False
      ReadOnly = True
      TabOrder = 0
    end
    object ComboBox1: TComboBox
      Left = 424
      Top = 32
      Width = 169
      Height = 21
      ItemHeight = 13
      TabOrder = 1
    end
    object BitBtn2: TBitBtn
      Left = 632
      Top = 32
      Width = 137
      Height = 25
      Caption = #21047#26032
      TabOrder = 2
      OnClick = BitBtn2Click
      Kind = bkOK
    end
    object Memo1: TMemo
      Left = 2
      Top = 72
      Width = 1007
      Height = 63
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssHorizontal
      TabOrder = 3
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 144
    Width = 457
    Height = 561
    TabOrder = 1
    object Label3: TLabel
      Left = 72
      Top = 16
      Width = 281
      Height = 25
      AutoSize = False
      Caption = #24320#22987#29366#24577#21040#25152#26377#29366#24577#30340#26368#30701#36335#24452
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Memo2: TMemo
      Left = 8
      Top = 96
      Width = 441
      Height = 457
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 104
      Top = 48
      Width = 209
      Height = 25
      Caption = #25991#20214#29983#25104
      TabOrder = 1
      OnClick = BitBtn1Click
      Kind = bkOK
    end
  end
  object GroupBox3: TGroupBox
    Left = 472
    Top = 144
    Width = 545
    Height = 561
    TabOrder = 2
    object Label4: TLabel
      Left = 128
      Top = 16
      Width = 297
      Height = 33
      AutoSize = False
      Caption = '          '#35206#30422#25152#26377#29366#24577#30340#29992#20363
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object BitBtn3: TBitBtn
      Left = 176
      Top = 48
      Width = 169
      Height = 25
      Caption = #25991#20214#29983#25104
      TabOrder = 0
      OnClick = BitBtn3Click
      Kind = bkOK
    end
    object Memo3: TMemo
      Left = 8
      Top = 96
      Width = 529
      Height = 457
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 1
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = '*.txt|*.txt'
    Left = 392
    Top = 184
  end
  object SaveDialog2: TSaveDialog
    Filter = '*txt|*txt'
    Left = 496
    Top = 160
  end
end