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