object Form1: TForm1 Left = 758 Height = 600 Top = 300 Width = 600 Caption = 'Form1' ClientHeight = 600 ClientWidth = 600 LCLVersion = '2.0.12.0' object Edit1: TEdit Left = 8 Height = 22 Top = 8 Width = 80 TabOrder = 0 Text = 'Edit1' end object ToggleBox1: TToggleBox Left = 9 Height = 25 Top = 64 Width = 167 Caption = 'Point grid to LabeledEdit' OnChange = ToggleBox1Change TabOrder = 1 end object LabeledEdit1: TLabeledEdit Left = 9 Height = 22 Top = 136 Width = 80 EditLabel.Height = 16 EditLabel.Width = 80 EditLabel.Caption = 'LabeledEdit1' EditLabel.ParentColor = False TabOrder = 2 Text = 'LabeledEdit1' end object TIPropertyGrid1: TTIPropertyGrid Left = 184 Height = 600 Top = 0 Width = 416 Align = alRight CheckboxForBoolean = False DefaultValueFont.Color = clWindowText Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper, tkFile, tkClassRef, tkPointer] Indent = 9 NameFont.Color = clWindowText TIObject = Edit1 ValueFont.Color = clMaroon end end