xpdunittestmodule.dfm

For Delphi的单元测试工具DUnit的源代码

object XPDUnitTestModuleForm: TXPDUnitTestModuleForm
  Left = 884
  Top = 205
  Width = 432
  Height = 520
  BorderStyle = bsSizeToolWin
  Caption = 'New DUnit test module...'
  Color = clBtnFace
  Constraints.MinHeight = 353
  Constraints.MinWidth = 432
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 6
    Top = 2
    Width = 146
    Height = 17
    AutoSize = False
    Caption = '&Unit name'
    FocusControl = UnitName
    Layout = tlCenter
  end
  object Label2: TLabel
    Left = 6
    Top = 44
    Width = 146
    Height = 17
    AutoSize = False
    Caption = 'Unit filename'
    Layout = tlCenter
  end
  object Label3: TLabel
    Left = 7
    Top = 85
    Width = 146
    Height = 17
    AutoSize = False
    Caption = 'Unit &path'
    FocusControl = UnitPath
    Layout = tlCenter
  end
  object SelectPath: TSpeedButton
    Left = 396
    Top = 103
    Width = 23
    Height = 22
    Anchors = [akTop, akRight]
    Caption = '...'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SelectPathClick
  end
  object UnitName: TEdit
    Left = 6
    Top = 20
    Width = 415
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 0
    OnChange = UnitNameChange
  end
  object UnitFileName: TEdit
    Left = 5
    Top = 62
    Width = 415
    Height = 21
    TabStop = False
    Anchors = [akLeft, akTop, akRight]
    Color = clBtnFace
    ReadOnly = True
    TabOrder = 1
  end
  object UnitPath: TEdit
    Left = 5
    Top = 103
    Width = 384
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 2
  end
  object GroupBox1: TGroupBox
    Left = 6
    Top = 130
    Width = 414
    Height = 325
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = 'Selected IDE unit'
    TabOrder = 3
    object Label4: TLabel
      Left = 7
      Top = 46
      Width = 95
      Height = 16
      AutoSize = False
      Caption = 'Tested classes'
      FocusControl = UnitPath
      Layout = tlCenter
    end
    object Label5: TLabel
      Left = 294
      Top = 47
      Width = 112
      Height = 16
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = 'New test classes'
      FocusControl = UnitPath
      Layout = tlCenter
    end
    object AddToTestModule: TCheckBox
      Left = 7
      Top = 20
      Width = 198
      Height = 17
      Caption = 'Add to &TestModule "uses" clause'
      TabOrder = 0
    end
    object AddToProject: TCheckBox
      Left = 209
      Top = 19
      Width = 198
      Height = 17
      Caption = '&Add to Project "uses" clause'
      TabOrder = 1
    end
    object Classes: TPanel
      Left = 2
      Top = 64
      Width = 410
      Height = 259
      Align = alBottom
      Anchors = [akLeft, akTop, akRight, akBottom]
      BevelOuter = bvNone
      BorderWidth = 4
      TabOrder = 2
      object Splitter1: TSplitter
        Left = 190
        Top = 4
        Width = 3
        Height = 251
        Cursor = crHSplit
      end
      object TestClassesView: TTreeView
        Left = 193
        Top = 4
        Width = 213
        Height = 251
        Align = alClient
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        HideSelection = False
        Images = NodeImages
        Indent = 19
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object TestedClassesView: TTreeView
        Left = 4
        Top = 4
        Width = 186
        Height = 251
        Align = alLeft
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        HideSelection = False
        Images = NodeImages
        Indent = 19
        ParentFont = False
        ReadOnly = True
        StateImages = StateImages
        TabOrder = 0
        OnClick = TestedClassesViewClick
      end
    end
  end
  object CancelTestModule: TBitBtn
    Left = 261
    Top = 462
    Width = 75
    Height = 27
    Anchors = [akRight, akBottom]