mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-31 20:31:33 +01:00
122 lines
2.7 KiB
Plaintext
122 lines
2.7 KiB
Plaintext
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
|