mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-11 16:29:43 +02:00
188 lines
4.3 KiB
Plaintext
188 lines
4.3 KiB
Plaintext
object CondForm: TCondForm
|
|
Left = 305
|
|
Height = 326
|
|
Top = 265
|
|
Width = 356
|
|
ActiveControl = FirstTest
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = 'Conditional Defines'
|
|
ClientHeight = 326
|
|
ClientWidth = 356
|
|
OnClose = CondFormCLOSE
|
|
OnCreate = CondFormCREATE
|
|
OnShow = FormShow
|
|
Position = poScreenCenter
|
|
LCLVersion = '0.9.27'
|
|
object NewTestGroupBox: TGroupBox
|
|
Left = 6
|
|
Height = 137
|
|
Top = 6
|
|
Width = 344
|
|
Align = alTop
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'NewTestGroupBox'
|
|
ClientHeight = 119
|
|
ClientWidth = 340
|
|
TabOrder = 0
|
|
object FirstLabel: TLabel
|
|
Left = 6
|
|
Height = 14
|
|
Top = 6
|
|
Width = 328
|
|
Align = alTop
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
Caption = '&First test'
|
|
ParentColor = False
|
|
end
|
|
object SecondLabel: TLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 14
|
|
Top = 47
|
|
Width = 328
|
|
Align = alTop
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
Caption = '&Second test'
|
|
ParentColor = False
|
|
end
|
|
object FirstTest: TComboBox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 21
|
|
Top = 20
|
|
Width = 328
|
|
Align = alTop
|
|
AutoComplete = False
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
BorderSpacing.Bottom = 6
|
|
ItemHeight = 13
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'MSWINDOWS'
|
|
'UNIX'
|
|
'LINUX'
|
|
'WIN32'
|
|
'CLX_'
|
|
'LCL_'
|
|
'VCL_'
|
|
'FPC'
|
|
'KYLIX'
|
|
'VER1_0'
|
|
)
|
|
ItemWidth = 0
|
|
TabOrder = 0
|
|
Text = 'MSWINDOWS'
|
|
end
|
|
object SecondTest: TComboBox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 21
|
|
Top = 61
|
|
Width = 328
|
|
Align = alTop
|
|
AutoComplete = False
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Right = 6
|
|
BorderSpacing.Bottom = 6
|
|
ItemHeight = 13
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'NONE'
|
|
'ELSE'
|
|
)
|
|
ItemWidth = 0
|
|
TabOrder = 1
|
|
Text = 'NONE'
|
|
end
|
|
object AddBtn: TBitBtn
|
|
AnchorSideLeft.Control = NewTestGroupBox
|
|
AnchorSideTop.Control = SecondTest
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = AddInverse
|
|
Left = 89
|
|
Height = 25
|
|
Top = 88
|
|
Width = 75
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = '&Add'
|
|
Constraints.MinHeight = 25
|
|
Constraints.MinWidth = 75
|
|
NumGlyphs = 0
|
|
OnClick = AddBtnClick
|
|
TabOrder = 2
|
|
end
|
|
object AddInverse: TButton
|
|
AnchorSideLeft.Control = AddBtn
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = SecondTest
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = RemoveBtn
|
|
Left = 170
|
|
Height = 25
|
|
Top = 88
|
|
Width = 83
|
|
HelpType = htKeyword
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Add Inverse'
|
|
Constraints.MinHeight = 25
|
|
Constraints.MinWidth = 75
|
|
OnClick = AddInverseCLICK
|
|
TabOrder = 3
|
|
end
|
|
object RemoveBtn: TBitBtn
|
|
AnchorSideLeft.Control = AddInverse
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = SecondTest
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = NewTestGroupBox
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 259
|
|
Height = 25
|
|
Top = 88
|
|
Width = 75
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = '&Remove'
|
|
Constraints.MinHeight = 25
|
|
Constraints.MinWidth = 75
|
|
NumGlyphs = 0
|
|
OnClick = RemoveBtnClick
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object ListBox: TListBox
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 139
|
|
Top = 149
|
|
Width = 344
|
|
Align = alClient
|
|
Anchors = [akTop, akBottom]
|
|
BorderSpacing.Around = 6
|
|
ItemHeight = 0
|
|
OnDblClick = ListBoxDblClick
|
|
OnKeyDown = ListBoxKeyDown
|
|
TabOrder = 1
|
|
end
|
|
object ButtonPanel: TButtonPanel
|
|
Left = 6
|
|
Height = 26
|
|
Top = 294
|
|
Width = 344
|
|
TabOrder = 2
|
|
ShowButtons = [pbOK, pbCancel, pbHelp]
|
|
ShowBevel = False
|
|
end
|
|
end
|