git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jcl@20 c37d764d-f447-7644-a108-883140d013fb
248 lines
6.1 KiB
Plaintext
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
|