lazarus/components/fpcunit/ide/testcaseopts.lfm
2005-05-03 07:56:14 +00:00

94 lines
1.9 KiB
Plaintext

object TestCaseOptionsForm: TTestCaseOptionsForm
BorderStyle = bsDialog
Caption = 'TestCase Options'
ClientHeight = 248
ClientWidth = 266
PixelsPerInch = 95
Position = poDesktopCenter
HorzScrollBar.Page = 265
VertScrollBar.Page = 247
Left = 464
Height = 248
Top = 464
Width = 266
object gbNames: TGroupBox
Align = alTop
BorderSpacing.OnChange = nil
Caption = 'Names'
ClientHeight = 72
ClientWidth = 262
ParentColor = True
TabOrder = 0
Height = 89
Width = 266
object Label1: TLabel
BorderSpacing.OnChange = nil
Caption = 'Default Test Name'
Color = clNone
FocusControl = edDefaultName
Left = 16
Height = 12
Top = 9
Width = 102
end
object edDefaultName: TEdit
BorderSpacing.OnChange = nil
MaxLength = 30
TabOrder = 0
Text = 'TTestCase1'
Left = 16
Height = 23
Top = 25
Width = 232
end
end
object Panel1: TPanel
Align = alBottom
BorderSpacing.OnChange = nil
BevelOuter = bvNone
ClientHeight = 42
ClientWidth = 266
FullRepaint = False
TabOrder = 1
Height = 42
Top = 206
Width = 266
object btnAccept: TButton
Caption = 'Create unit'
OnClick = btnAcceptClick
TabOrder = 0
Left = 64
Height = 25
Top = 10
Width = 120
end
end
object gbFixture: TGroupBox
Align = alClient
Caption = 'Fixture'
ClientHeight = 100
ClientWidth = 262
ParentColor = True
TabOrder = 2
Height = 117
Top = 89
Width = 266
object cbSetup: TCheckBox
Caption = 'Create Setup Method'
TabOrder = 0
Left = 22
Height = 23
Top = 11
Width = 216
end
object cbTeardown: TCheckBox
Caption = 'Create TearDown method'
TabOrder = 1
Left = 22
Height = 23
Top = 59
Width = 216
end
end
end