mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-28 13:33:40 +02:00
123 lines
3.0 KiB
Plaintext
123 lines
3.0 KiB
Plaintext
object TestCaseOptionsForm: TTestCaseOptionsForm
|
|
Left = 607
|
|
Height = 245
|
|
Top = 370
|
|
Width = 284
|
|
HorzScrollBar.Page = 265
|
|
VertScrollBar.Page = 247
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = 'TestCase Options'
|
|
ClientHeight = 245
|
|
ClientWidth = 284
|
|
Constraints.MinHeight = 240
|
|
Constraints.MinWidth = 280
|
|
OnCreate = FormCreate
|
|
Position = poScreenCenter
|
|
LCLVersion = '0.9.29'
|
|
object gbNames: TGroupBox
|
|
Left = 6
|
|
Height = 77
|
|
Top = 6
|
|
Width = 272
|
|
Align = alTop
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Names'
|
|
ClientHeight = 59
|
|
ClientWidth = 268
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
AnchorSideLeft.Control = edDefaultName
|
|
AnchorSideTop.Control = gbNames
|
|
Left = 6
|
|
Height = 14
|
|
Top = 12
|
|
Width = 90
|
|
BorderSpacing.Top = 12
|
|
Caption = 'Default Test Name'
|
|
FocusControl = edDefaultName
|
|
ParentColor = False
|
|
end
|
|
object edDefaultName: TEdit
|
|
AnchorSideLeft.Control = gbNames
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = gbNames
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 6
|
|
Height = 21
|
|
Top = 26
|
|
Width = 256
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
BorderSpacing.Bottom = 12
|
|
MaxLength = 30
|
|
TabOrder = 0
|
|
Text = 'TTestCase1'
|
|
end
|
|
end
|
|
object btnAccept: TButton
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Side = asrCenter
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 102
|
|
Height = 23
|
|
Top = 216
|
|
Width = 80
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Create unit'
|
|
OnClick = btnAcceptClick
|
|
TabOrder = 2
|
|
end
|
|
object gbFixture: TGroupBox
|
|
AnchorSideTop.Control = gbNames
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = btnAccept
|
|
Left = 6
|
|
Height = 121
|
|
Top = 89
|
|
Width = 272
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Fixture'
|
|
ClientHeight = 103
|
|
ClientWidth = 268
|
|
TabOrder = 1
|
|
object cbSetup: TCheckBox
|
|
AnchorSideLeft.Control = gbFixture
|
|
AnchorSideTop.Control = gbFixture
|
|
Left = 6
|
|
Height = 17
|
|
Top = 12
|
|
Width = 121
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 12
|
|
Caption = 'Create Setup Method'
|
|
TabOrder = 0
|
|
end
|
|
object cbTeardown: TCheckBox
|
|
AnchorSideLeft.Control = gbFixture
|
|
AnchorSideTop.Control = cbSetup
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 6
|
|
Height = 17
|
|
Top = 41
|
|
Width = 142
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 12
|
|
BorderSpacing.Bottom = 12
|
|
Caption = 'Create TearDown method'
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|