1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
object Form1: TForm1
Left = 294
Height = 490
Top = 168
Width = 643
HorzScrollBar.Page = 642
VertScrollBar.Page = 489
ActiveControl = TIEdit1
Caption = 'RTTI Controls Example'
ClientHeight = 490
ClientWidth = 643
object Label1: TLabel
Left = 10
Height = 135
Top = 9
Width = 273
Caption = 'This is a demonstration of a few RTTI Controls.'#10'The RTTI controls allows you to edit properties of objects.'#10'The whole example requires not one line of code.'
ParentColor = False
WordWrap = True
end
object TIEdit1: TTIEdit
Left = 8
Height = 23
Top = 248
Width = 144
Link.TIObject = TICheckBox1
Link.TIPropertyName = 'Caption'
TabOrder = 0
end
object TICheckBox1: TTICheckBox
Left = 176
Height = 22
Top = 248
Width = 105
AllowGrayed = True
Caption = 'TICheckBox1'
Link.TIObject = TIEdit1
Link.TIPropertyName = 'Visible'
State = cbChecked
TabOrder = 1
end
object TIListBox_Color: TTIListBox
Left = 19
Height = 70
Top = 328
Width = 117
ClickOnSelChange = False
Link.TIObject = StaticText1
Link.TIPropertyName = 'Color'
TabOrder = 2
end
object StaticText1: TStaticText
Left = 10
Height = 17
Top = 208
Width = 193
Caption = 'Edit caption of right TTICheckbox'
Color = clOlive
TabOrder = 3
TabStop = True
end
object StaticText2: TStaticText
Left = 16
Height = 17
Top = 296
Width = 194
Caption = 'Edit Color of above TStaticText'
TabOrder = 4
TabStop = True
end
object TIComboBox_Enabled: TTIComboBox
Left = 16
Height = 25
Top = 448
Width = 180
Link.TIObject = TICheckBox1
Link.TIPropertyName = 'Enabled'
MaxLength = 0
TabOrder = 5
end
object StaticText3: TStaticText
Left = 19
Height = 17
Top = 424
Width = 186
Caption = 'Edit TTICheckBox1.Enabled'
TabOrder = 6
TabStop = True
end
object StaticText4: TStaticText
Left = 352
Height = 80
Top = 16
Width = 145
Caption = 'Edit this TStaticText with the TTIPropertyGrid below'
TabOrder = 7
TabStop = True
end
object TIPropertyGrid1: TTIPropertyGrid
Left = 384
Height = 225
Top = 248
Width = 242
DefaultValueFont.Color = clActiveCaption
Tabstop = True
TIObject = StaticText4
ValueFont.Color = clMaroon
end
object TICheckBox2: TTICheckBox
Left = 200
Height = 22
Top = 168
Width = 415
AllowGrayed = True
Caption = 'TICheckBox2 for set element TIPropertyGrid1.Anchors.akRight'
Link.TIObject = TIPropertyGrid1
Link.TIPropertyName = 'Anchors'
Link.TIElementName = 'akRight'
TabOrder = 9
end
end
|
