object Form1: TForm1
  ActiveControl = TIEdit1
  Caption = 'RTTI Controls Example'
  ClientHeight = 392
  ClientWidth = 619
  PixelsPerInch = 90
  HorzScrollBar.Page = 620
  VertScrollBar.Page = 393
  Left = 294
  Height = 392
  Top = 168
  Width = 619
  object TIEdit1: TTIEdit
    Link.TIObject = TICheckBox1
    Link.TIPropertyName = 'Caption'
    TabStop = True
    TabOrder = 0
    Left = 8
    Height = 23
    Top = 136
    Width = 144
  end
  object TICheckBox1: TTICheckBox
    AllowGrayed = True
    AutoSize = True
    Caption = 'TICheckBox1'
    Link.TIObject = TIEdit1
    Link.TIPropertyName = 'Visible'
    State = cbChecked
    TabOrder = 1
    TabStop = True
    Left = 176
    Height = 24
    Top = 136
    Width = 98
  end
  object TIListBox_Color: TTIListBox
    BorderStyle = bsSingle
    ClickOnSelChange = False
    Link.TIObject = StaticText1
    Link.TIPropertyName = 'Color'
    TabOrder = 2
    TabStop = True
    TopIndex = -1
    Left = 11
    Height = 70
    Top = 200
    Width = 117
  end
  object StaticText1: TStaticText
    Caption = 'Edit caption of right TTICheckbox'
    Color = clOlive
    TabOrder = 3
    TabStop = True
    Left = 8
    Height = 17
    Top = 112
    Width = 193
  end
  object StaticText2: TStaticText
    Caption = 'Edit Color of above TStaticText'
    ParentColor = True
    TabOrder = 4
    TabStop = True
    Left = 11
    Height = 17
    Top = 176
    Width = 194
  end
  object TIComboBox_Enabled: TTIComboBox
    Link.TIObject = TICheckBox1
    Link.TIPropertyName = 'Enabled'
    MaxLength = 0
    TabOrder = 5
    TabStop = True
    Left = 16
    Height = 25
    Top = 306
    Width = 180
  end
  object StaticText3: TStaticText
    Caption = 'Edit TTICheckBox1.Enabled'
    ParentColor = True
    TabOrder = 6
    TabStop = True
    Left = 15
    Height = 17
    Top = 283
    Width = 186
  end
  object StaticText4: TStaticText
    Caption = 'Edit this TStaticText with the TTIPropertyGrid below'
    ParentColor = True
    TabOrder = 7
    TabStop = True
    Left = 352
    Height = 80
    Top = 16
    Width = 145
  end
  object TIPropertyGrid1: TTIPropertyGrid
    BorderStyle = bsSingle
    DefaultValueFont.Color = clActiveCaption
    Tabstop = True
    TIObject = StaticText4
    ValueFont.Color = clMaroon
    Left = 328
    Height = 225
    Top = 144
    Width = 242
  end
  object Label1: TLabel
    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.'
    WordWrap = True
    Left = 10
    Height = 87
    Top = 9
    Width = 286
  end
  object TICheckBox2: TTICheckBox
    AllowGrayed = True
    AutoSize = True
    Caption = 'TICheckBox2 for set element TIPropertyGrid1.Anchors.akRight'
    Link.TIObject = TIPropertyGrid1
    Link.TIPropertyName = 'Anchors'
    Link.TIElementName = 'akRight'
    TabOrder = 10
    TabStop = True
    Left = 240
    Height = 24
    Top = 104
    Width = 368
  end
end