Componentes.Terceros.jcl/official/2.1.1/examples/common/containers/trees/TreeStructureMain.dfm
2010-01-18 16:51:36 +00:00

248 lines
6.1 KiB
Plaintext

object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 423
ClientWidth = 426
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object GroupBoxOptions: TGroupBox
Left = 8
Top = 8
Width = 410
Height = 129
Anchors = [akLeft, akTop, akRight]
Caption = 'Options:'
TabOrder = 0
object CheckBoxBinaryTree: TCheckBox
Left = 16
Top = 24
Width = 161
Height = 17
Action = ActionBinaryTree
TabOrder = 0
end
object CheckBoxGeneralPurposeTree: TCheckBox
Left = 16
Top = 48
Width = 161
Height = 17
Action = ActionGeneralPurposeTree
State = cbChecked
TabOrder = 1
end
object CheckBoxCaseSensitive: TCheckBox
Left = 16
Top = 96
Width = 97
Height = 17
Action = ActionCaseSensitive
TabOrder = 2
end
object CheckBoxAllowDefault: TCheckBox
Left = 199
Top = 24
Width = 178
Height = 17
Action = ActionAllowDefault
TabOrder = 3
end
object CheckBoxAllowDuplicates: TCheckBox
Left = 200
Top = 48
Width = 177
Height = 17
Action = ActionAllowDuplicates
TabOrder = 4
end
object CheckBoxIgnoreDuplicates: TCheckBox
Left = 216
Top = 72
Width = 161
Height = 17
Action = ActionIgnoreDuplicates
TabOrder = 5
end
object CheckBoxRemoveSingle: TCheckBox
Left = 200
Top = 96
Width = 177
Height = 17
Action = ActionRemoveSingle
TabOrder = 6
end
end
object TreeViewResults: TTreeView
Left = 8
Top = 143
Width = 193
Height = 272
Anchors = [akLeft, akTop, akRight, akBottom]
Indent = 19
TabOrder = 1
end
object GroupBoxActions: TGroupBox
Left = 207
Top = 143
Width = 211
Height = 272
Anchors = [akTop, akRight, akBottom]
Caption = 'Actions:'
TabOrder = 2
object ButtonGenerateRandom: TButton
Left = 16
Top = 24
Width = 177
Height = 25
Action = ActionGenerateRandom
TabOrder = 0
end
object ButtonRemoveSelected: TButton
Left = 16
Top = 56
Width = 177
Height = 25
Action = ActionRemoveSelected
TabOrder = 1
end
object EditNewItem: TEdit
Left = 16
Top = 168
Width = 177
Height = 21
TabOrder = 2
Text = 'New item'
end
object ButtonAddNew: TButton
Left = 16
Top = 200
Width = 177
Height = 25
Action = ActionAddNew
TabOrder = 3
end
object ButtonAddNewChild: TButton
Left = 16
Top = 231
Width = 177
Height = 25
Action = ActionAddNewChild
TabOrder = 4
end
object Button1: TButton
Left = 16
Top = 87
Width = 177
Height = 25
Action = ActionPack
TabOrder = 5
end
object Button2: TButton
Left = 16
Top = 120
Width = 177
Height = 25
Action = ActionTestTree
TabOrder = 6
end
end
object ActionListMain: TActionList
Left = 160
Top = 112
object ActionAllowDuplicates: TAction
Category = 'Tree options'
AutoCheck = True
Caption = 'Allow duplicates'
OnExecute = ActionDuplicatesExecute
OnUpdate = ActionAlwaysEnabled
end
object ActionIgnoreDuplicates: TAction
Category = 'Tree options'
AutoCheck = True
Caption = 'Ignore duplicates'
OnExecute = ActionDuplicatesExecute
OnUpdate = ActionIgnoreDuplicatesUpdate
end
object ActionAllowDefault: TAction
Category = 'Tree options'
AutoCheck = True
Caption = 'Allow defaults (empty strings)'
OnExecute = ActionAllowDefaultExecute
OnUpdate = ActionAlwaysEnabled
end
object ActionRemoveSingle: TAction
Category = 'Tree options'
AutoCheck = True
Caption = 'Remove single element'
OnExecute = ActionRemoveSingleExecute
OnUpdate = ActionAlwaysEnabled
end
object ActionCaseSensitive: TAction
Category = 'Tree options'
AutoCheck = True
Caption = 'Case sensitive'
OnExecute = ActionCaseSensitiveExecute
OnUpdate = ActionAlwaysEnabled
end
object ActionGenerateRandom: TAction
Category = 'Tree actions'
Caption = 'Generate random tree'
OnExecute = ActionGenerateRandomExecute
OnUpdate = ActionAlwaysEnabled
end
object ActionAddNew: TAction
Category = 'Tree actions'
Caption = 'Add new'
OnExecute = ActionAddNewExecute
OnUpdate = ActionAlwaysEnabled
end
object ActionRemoveSelected: TAction
Category = 'Tree actions'
Caption = 'Remove selected'
OnExecute = ActionRemoveSelectedExecute
OnUpdate = ActionRemoveSelectedUpdate
end
object ActionAddNewChild: TAction
Category = 'Tree actions'
Caption = 'Add new child'
OnExecute = ActionAddNewChildExecute
OnUpdate = ActionAddNewChildUpdate
end
object ActionBinaryTree: TAction
Category = 'Tree options'
AutoCheck = True
Caption = 'Binary tree'
OnExecute = ActionBinaryTreeExecute
OnUpdate = ActionAlwaysEnabled
end
object ActionGeneralPurposeTree: TAction
Category = 'Tree options'
AutoCheck = True
Caption = 'General purpose tree'
Checked = True
OnExecute = ActionGeneralPurposeTreeExecute
OnUpdate = ActionAlwaysEnabled
end
object ActionPack: TAction
Category = 'Tree actions'
Caption = 'Pack'
OnExecute = ActionPackExecute
OnUpdate = ActionAlwaysEnabled
end
object ActionTestTree: TAction
Category = 'Tree actions'
Caption = 'Test tree'
OnExecute = ActionTestTreeExecute
OnUpdate = ActionAlwaysEnabled
end
end
end