Fixed RTTI Controls Default Options and examples

git-svn-id: trunk@6370 -

components/rtticontrols/examples/example1.lfm

@@ -1,7 +1,9 @@
 object Form1: TForm1
+  ActiveControl = TIEdit1
   Caption = 'RTTI Controls Example'
   ClientHeight = 357
   ClientWidth = 590
+  PixelsPerInch = 90
   HorzScrollBar.Page = 591
   VertScrollBar.Page = 358
   Left = 291
@@ -13,7 +15,6 @@ object Form1: TForm1
     Link.TIPropertyName = 'Caption'
     TabStop = True
     TabOrder = 0
-    TabOrder = 0
     Left = 8
     Height = 23
     Top = 136
@@ -23,8 +24,6 @@ object Form1: TForm1
     AllowGrayed = True
     AutoSize = True
     Caption = 'TICheckBox1'
-    DragCursor = 65524
-    Link.Options = [ploReadOnIdle]
     Link.TIObject = TIEdit1
     Link.TIPropertyName = 'Visible'
     State = cbChecked
@@ -35,7 +34,7 @@ object Form1: TForm1
     Top = 136
     Width = 109
   end
-  object TIListBox1: TTIListBox
+  object TIListBox_Color: TTIListBox
     BorderStyle = bsSingle
     ClickOnSelChange = False
     Link.TIObject = StaticText1
@@ -67,8 +66,7 @@ object Form1: TForm1
     Top = 176
     Width = 194
   end
-  object TIComboBox1: TTIComboBox
+  object TIComboBox_Enabled: TTIComboBox
-    Link.Options = [ploReadOnIdle]
     Link.TIObject = TICheckBox1
     Link.TIPropertyName = 'Enabled'
     MaxLength = 0

components/rtticontrols/examples/example1.lrs

@@ -1,39 +1,38 @@
 { This is an automatically generated lazarus resource file }
 
 LazarusResources.Add('TForm1','FORMDATA',[
-  'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#21'RTTI Controls Example'#12'ClientHei'
+  'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#7'TIEdit1'#7'Caption'#6#21'RTTI'
-  +'ght'#3'e'#1#11'ClientWidth'#3'N'#2#18'HorzScrollBar.Page'#3'O'#2#18'VertScr'
+  +' Controls Example'#12'ClientHeight'#3'e'#1#11'ClientWidth'#3'N'#2#13'Pixels'
-  +'ollBar.Page'#3'f'#1#4'Left'#3'#'#1#6'Height'#3'e'#1#3'Top'#3#163#0#5'Width'
+  +'PerInch'#2'Z'#18'HorzScrollBar.Page'#3'O'#2#18'VertScrollBar.Page'#3'f'#1#4
-  +#3'N'#2#0#7'TTIEdit'#7'TIEdit1'#13'Link.TIObject'#7#11'TICheckBox1'#19'Link.'
+  +'Left'#3'#'#1#6'Height'#3'e'#1#3'Top'#3#163#0#5'Width'#3'N'#2#0#7'TTIEdit'#7
-  +'TIPropertyName'#6#7'Caption'#7'TabStop'#9#8'TabOrder'#2#0#8'TabOrder'#2#0#4
+  +'TIEdit1'#13'Link.TIObject'#7#11'TICheckBox1'#19'Link.TIPropertyName'#6#7'Ca'
-  +'Left'#2#8#6'Height'#2#23#3'Top'#3#136#0#5'Width'#3#144#0#0#0#11'TTICheckBox'
+  +'ption'#7'TabStop'#9#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2#23#3'Top'#3#136
-  +#11'TICheckBox1'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#11'TICheckBox1'
+  +#0#5'Width'#3#144#0#0#0#11'TTICheckBox'#11'TICheckBox1'#11'AllowGrayed'#9#8
-  +#10'DragCursor'#4#244#255#0#0#12'Link.Options'#11#13'ploReadOnIdle'#0#13'Lin'
+  +'AutoSize'#9#7'Caption'#6#11'TICheckBox1'#13'Link.TIObject'#7#7'TIEdit1'#19
-  +'k.TIObject'#7#7'TIEdit1'#19'Link.TIPropertyName'#6#7'Visible'#5'State'#7#9
+  +'Link.TIPropertyName'#6#7'Visible'#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#7
-  +'cbChecked'#8'TabOrder'#2#1#7'TabStop'#9#4'Left'#3#176#0#6'Height'#2#20#3'To'
+  +'TabStop'#9#4'Left'#3#176#0#6'Height'#2#20#3'Top'#3#136#0#5'Width'#2'm'#0#0
-  +'p'#3#136#0#5'Width'#2'm'#0#0#10'TTIListBox'#10'TIListBox1'#11'BorderStyle'#7
+  +#10'TTIListBox'#15'TIListBox_Color'#11'BorderStyle'#7#8'bsSingle'#16'ClickOn'
-  +#8'bsSingle'#16'ClickOnSelChange'#8#13'Link.TIObject'#7#11'StaticText1'#19'L'
+  +'SelChange'#8#13'Link.TIObject'#7#11'StaticText1'#19'Link.TIPropertyName'#6#5
-  +'ink.TIPropertyName'#6#5'Color'#8'TabOrder'#2#2#7'TabStop'#9#4'Left'#2#11#6
+  +'Color'#8'TabOrder'#2#2#7'TabStop'#9#4'Left'#2#11#6'Height'#2'F'#3'Top'#3#200
-  +'Height'#2'F'#3'Top'#3#200#0#5'Width'#2'u'#0#0#11'TStaticText'#11'StaticText'
+  +#0#5'Width'#2'u'#0#0#11'TStaticText'#11'StaticText1'#7'Caption'#6'!Edit capt'
-  +'1'#7'Caption'#6'!Edit caption of right TTICheckbox'#5'Color'#7#7'clOlive'#8
+  +'ion of right TTICheckbox'#5'Color'#7#7'clOlive'#8'TabOrder'#2#3#7'TabStop'#9
-  +'TabOrder'#2#3#7'TabStop'#9#4'Left'#2#8#6'Height'#2#17#3'Top'#2'p'#5'Width'#3
+  +#4'Left'#2#8#6'Height'#2#17#3'Top'#2'p'#5'Width'#3#193#0#0#0#11'TStaticText'
-  +#193#0#0#0#11'TStaticText'#11'StaticText2'#7'Caption'#6#31'Edit Color of abo'
+  +#11'StaticText2'#7'Caption'#6#31'Edit Color of above TStaticText'#11'ParentC'
-  +'ve TStaticText'#11'ParentColor'#9#8'TabOrder'#2#4#7'TabStop'#9#4'Left'#2#11
+  +'olor'#9#8'TabOrder'#2#4#7'TabStop'#9#4'Left'#2#11#6'Height'#2#17#3'Top'#3
-  +#6'Height'#2#17#3'Top'#3#176#0#5'Width'#3#194#0#0#0#11'TTIComboBox'#11'TICom'
+  +#176#0#5'Width'#3#194#0#0#0#11'TTIComboBox'#18'TIComboBox_Enabled'#13'Link.T'
-  +'boBox1'#12'Link.Options'#11#13'ploReadOnIdle'#0#13'Link.TIObject'#7#11'TICh'
+  +'IObject'#7#11'TICheckBox1'#19'Link.TIPropertyName'#6#7'Enabled'#9'MaxLength'
-  +'eckBox1'#19'Link.TIPropertyName'#6#7'Enabled'#9'MaxLength'#2#0#8'TabOrder'#2
+  +#2#0#8'TabOrder'#2#5#7'TabStop'#9#4'Left'#2#16#6'Height'#2#25#3'Top'#3'2'#1#5
-  +#5#7'TabStop'#9#4'Left'#2#16#6'Height'#2#25#3'Top'#3'2'#1#5'Width'#3#180#0#0
+  +'Width'#3#180#0#0#0#11'TStaticText'#11'StaticText3'#7'Caption'#6#25'Edit TTI'
-  +#0#11'TStaticText'#11'StaticText3'#7'Caption'#6#25'Edit TTICheckBox1.Enabled'
+  +'CheckBox1.Enabled'#11'ParentColor'#9#8'TabOrder'#2#6#7'TabStop'#9#4'Left'#2
-  +#11'ParentColor'#9#8'TabOrder'#2#6#7'TabStop'#9#4'Left'#2#15#6'Height'#2#17#3
+  +#15#6'Height'#2#17#3'Top'#3#27#1#5'Width'#3#186#0#0#0#11'TStaticText'#11'Sta'
-  +'Top'#3#27#1#5'Width'#3#186#0#0#0#11'TStaticText'#11'StaticText4'#7'Caption'
+  +'ticText4'#7'Caption'#6'4Edit this TStaticText with the TTIPropertyGrid belo'
-  +#6'4Edit this TStaticText with the TTIPropertyGrid below'#11'ParentColor'#9#8
+  +'w'#11'ParentColor'#9#8'TabOrder'#2#7#7'TabStop'#9#4'Left'#3'`'#1#6'Height'#2
-  +'TabOrder'#2#7#7'TabStop'#9#4'Left'#3'`'#1#6'Height'#2'P'#3'Top'#2#16#5'Widt'
+  +'P'#3'Top'#2#16#5'Width'#3#145#0#0#0#15'TTIPropertyGrid'#15'TIPropertyGrid1'
-  +'h'#3#145#0#0#0#15'TTIPropertyGrid'#15'TIPropertyGrid1'#11'BorderStyle'#7#8
+  +#11'BorderStyle'#7#8'bsSingle'#22'DefaultValueFont.Color'#7#15'clActiveCapti'
-  +'bsSingle'#22'DefaultValueFont.Color'#7#15'clActiveCaption'#7'Tabstop'#9#8'T'
+  +'on'#7'Tabstop'#9#8'TIObject'#7#11'StaticText4'#15'ValueFont.Color'#7#8'clMa'
-  +'IObject'#7#11'StaticText4'#15'ValueFont.Color'#7#8'clMaroon'#4'Left'#3'8'#1
+  +'roon'#4'Left'#3'8'#1#6'Height'#3#225#0#3'Top'#2'w'#5'Width'#3#242#0#0#0#6'T'
-  +#6'Height'#3#225#0#3'Top'#2'w'#5'Width'#3#242#0#0#0#6'TLabel'#6'Label1'#7'Ca'
+  +'Label'#6'Label1'#7'Caption'#6#156'This is a demonstration of a few RTTI Con'
-  +'ption'#6#156'This is a demonstration of a few RTTI Controls.'#10'The RTTI c'
+  +'trols.'#10'The RTTI controls allows you to edit properties of objects.'#10
-  +'ontrols allows you to edit properties of objects.'#10'The whole example req'
+  +'The whole example requires not one line of code.'#8'WordWrap'#9#4'Left'#2#10
-  +'uires not one line of code.'#8'WordWrap'#9#4'Left'#2#10#6'Height'#2'W'#3'To'
+  +#6'Height'#2'W'#3'Top'#2#9#5'Width'#3#30#1#0#0#0
-  +'p'#2#9#5'Width'#3#30#1#0#0#0
 ]);

components/rtticontrols/examples/example1.pas

@@ -34,9 +34,9 @@ type
     StaticText3: TStaticText;
     StaticText4: TStaticText;
     TICheckBox1: TTICheckBox;
-    TIComboBox1: TTIComboBox;
+    TIComboBox_Enabled: TTIComboBox;
     TIEdit1: TTIEdit;
-    TIListBox1: TTIListBox;
+    TIListBox_Color: TTIListBox;
     TIPropertyGrid1: TTIPropertyGrid;
   private
     { private declarations }

components/rtticontrols/examples/example2.lfm

@@ -4,6 +4,7 @@ object Form1: TForm1
   ClientWidth = 400
   OnCreate = Form1Create
   OnDestroy = Form1Destroy
+  PixelsPerInch = 90
   HorzScrollBar.Page = 401
   VertScrollBar.Page = 301
   Left = 273
@@ -23,7 +24,6 @@ object Form1: TForm1
     object TIEdit1: TTIEdit
       TabStop = True
       TabOrder = 0
-      TabOrder = 0
       Left = 23
       Height = 23
       Top = 1
@@ -50,11 +50,9 @@ object Form1: TForm1
     Top = 144
     Width = 339
     object TITrackBar1: TTITrackBar
-      DragCursor = 65524
       ScalePos = trTop
       TabOrder = 0
       TabStop = True
-      UseRTTIMinMax = True
       ScalePos = trTop
       Left = 15
       Height = 20

components/rtticontrols/examples/example2.lrs

@@ -3,20 +3,19 @@
 LazarusResources.Add('TForm1','FORMDATA',[
   'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'Cl'
   +'ientWidth'#3#144#1#8'OnCreate'#7#11'Form1Create'#9'OnDestroy'#7#12'Form1Des'
-  +'troy'#18'HorzScrollBar.Page'#3#145#1#18'VertScrollBar.Page'#3'-'#1#4'Left'#3
+  +'troy'#13'PixelsPerInch'#2'Z'#18'HorzScrollBar.Page'#3#145#1#18'VertScrollBa'
-  +#17#1#6'Height'#3','#1#3'Top'#3#181#0#5'Width'#3#144#1#0#9'TGroupBox'#9'Grou'
+  +'r.Page'#3'-'#1#4'Left'#3#17#1#6'Height'#3','#1#3'Top'#3#181#0#5'Width'#3#144
-  +'pBox1'#7'Caption'#6#8'MyString'#12'ClientHeight'#2#31#11'ClientWidth'#3'K'#1
+  +#1#0#9'TGroupBox'#9'GroupBox1'#7'Caption'#6#8'MyString'#12'ClientHeight'#2#31
-  +#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2#24#6'Height'#2'0'#3'Top'#2#16#5
+  +#11'ClientWidth'#3'K'#1#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2#24#6'Hei'
-  +'Width'#3'O'#1#0#7'TTIEdit'#7'TIEdit1'#7'TabStop'#9#8'TabOrder'#2#0#8'TabOrd'
+  +'ght'#2'0'#3'Top'#2#16#5'Width'#3'O'#1#0#7'TTIEdit'#7'TIEdit1'#7'TabStop'#9#8
-  +'er'#2#0#4'Left'#2#23#6'Height'#2#23#3'Top'#2#1#5'Width'#3'#'#1#0#0#0#13'TTI'
+  +'TabOrder'#2#0#4'Left'#2#23#6'Height'#2#23#3'Top'#2#1#5'Width'#3'#'#1#0#0#0
-  +'RadioGroup'#13'TIRadioGroup1'#7'Caption'#6#6'MyEnum'#7'Columns'#2#3#11'Pare'
+  +#13'TTIRadioGroup'#13'TIRadioGroup1'#7'Caption'#6#6'MyEnum'#7'Columns'#2#3#11
-  +'ntColor'#9#4'Left'#2#25#6'Height'#2'9'#3'Top'#2'H'#5'Width'#3'R'#1#0#0#9'TG'
+  +'ParentColor'#9#4'Left'#2#25#6'Height'#2'9'#3'Top'#2'H'#5'Width'#3'R'#1#0#0#9
-  +'roupBox'#9'GroupBox2'#7'Caption'#6#7'MyRange'#12'ClientHeight'#2#24#11'Clie'
+  +'TGroupBox'#9'GroupBox2'#7'Caption'#6#7'MyRange'#12'ClientHeight'#2#24#11'Cl'
-  +'ntWidth'#3'O'#1#11'ParentColor'#9#8'TabOrder'#2#2#4'Left'#2#25#6'Height'#2
+  +'ientWidth'#3'O'#1#11'ParentColor'#9#8'TabOrder'#2#2#4'Left'#2#25#6'Height'#2
-  +')'#3'Top'#3#144#0#5'Width'#3'S'#1#0#11'TTITrackBar'#11'TITrackBar1'#10'Drag'
+  +')'#3'Top'#3#144#0#5'Width'#3'S'#1#0#11'TTITrackBar'#11'TITrackBar1'#8'Scale'
-  +'Cursor'#4#244#255#0#0#8'ScalePos'#7#5'trTop'#8'TabOrder'#2#0#7'TabStop'#9#13
+  +'Pos'#7#5'trTop'#8'TabOrder'#2#0#7'TabStop'#9#8'ScalePos'#7#5'trTop'#4'Left'
-  +'UseRTTIMinMax'#9#8'ScalePos'#7#5'trTop'#4'Left'#2#15#6'Height'#2#20#3'Top'#2
+  +#2#15#6'Height'#2#20#3'Top'#2#1#5'Width'#3')'#1#0#0#0#5'TMemo'#5'Memo1'#10'S'
-  +#1#5'Width'#3')'#1#0#0#0#5'TMemo'#5'Memo1'#10'ScrollBars'#7#10'ssAutoBoth'#8
+  +'crollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#3#4'Left'#2#27#6'Height'#2'W'#3'T'
-  +'TabOrder'#2#3#4'Left'#2#27#6'Height'#2'W'#3'Top'#3#199#0#5'Width'#3'R'#1#0#0
+  +'op'#3#199#0#5'Width'#3'R'#1#0#0#0
-  +#0
 ]);

components/rtticontrols/examples/exampleproject1.lpi

@@ -1,40 +1,109 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="3"/>
+    <Version Value="5"/>
     <General>
-      <ProjectType Value="Application"/>
-      <Flags>
-        <SaveClosedFiles Value="False"/>
-        <SaveOnlyProjectUnits Value="True"/>
-      </Flags>
       <MainUnit Value="0"/>
-      <ActiveEditorIndexAtStart Value="2"/>
+      <ActiveEditorIndexAtStart Value="1"/>
       <IconPath Value="./"/>
       <TargetFileExt Value=""/>
       <Title Value="exampleproject1"/>
     </General>
-    <Units Count="2">
+    <JumpHistory Count="11" HistoryIndex="10">
+      <Position1>
+        <Filename Value="example1.pas"/>
+        <Caret Line="39" Column="25" TopLine="13"/>
+      </Position1>
+      <Position2>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Caret Line="3130" Column="12" TopLine="3123"/>
+      </Position2>
+      <Position3>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Caret Line="1511" Column="11" TopLine="1508"/>
+      </Position3>
+      <Position4>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Caret Line="3129" Column="1" TopLine="3102"/>
+      </Position4>
+      <Position5>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Caret Line="3130" Column="3" TopLine="3107"/>
+      </Position5>
+      <Position6>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Caret Line="603" Column="15" TopLine="581"/>
+      </Position6>
+      <Position7>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Caret Line="174" Column="64" TopLine="162"/>
+      </Position7>
+      <Position8>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Caret Line="124" Column="17" TopLine="102"/>
+      </Position8>
+      <Position9>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Caret Line="3036" Column="14" TopLine="3020"/>
+      </Position9>
+      <Position10>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Caret Line="2197" Column="1" TopLine="2194"/>
+      </Position10>
+      <Position11>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Caret Line="668" Column="29" TopLine="661"/>
+      </Position11>
+    </JumpHistory>
+    <Units Count="6">
       <Unit0>
         <CursorPos X="10" Y="9"/>
         <Filename Value="exampleproject1.lpr"/>
         <IsPartOfProject Value="True"/>
         <TopLine Value="1"/>
         <UnitName Value="ExampleProject1"/>
-        <UsageCount Value="29"/>
+        <UsageCount Value="30"/>
       </Unit0>
       <Unit1>
-        <CursorPos X="73" Y="26"/>
+        <CursorPos X="25" Y="39"/>
         <EditorIndex Value="0"/>
         <Filename Value="example1.pas"/>
         <ComponentName Value="Form1"/>
         <IsPartOfProject Value="True"/>
         <Loaded Value="True"/>
         <ResourceFilename Value="example1.lrs"/>
-        <TopLine Value="1"/>
+        <TopLine Value="13"/>
         <UnitName Value="Example1"/>
-        <UsageCount Value="29"/>
+        <UsageCount Value="30"/>
       </Unit1>
+      <Unit2>
+        <CursorPos X="1" Y="2197"/>
+        <EditorIndex Value="1"/>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/components/rtticontrols/rttictrls.pas"/>
+        <Loaded Value="True"/>
+        <TopLine Value="2194"/>
+        <UnitName Value="RTTICtrls"/>
+        <UsageCount Value="10"/>
+      </Unit2>
+      <Unit3>
+        <CursorPos X="13" Y="792"/>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/lcl/stdctrls.pp"/>
+        <TopLine Value="767"/>
+        <UnitName Value="StdCtrls"/>
+        <UsageCount Value="10"/>
+      </Unit3>
+      <Unit4>
+        <CursorPos X="1" Y="74"/>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/lcl/include/customcheckbox.inc"/>
+        <TopLine Value="69"/>
+        <UsageCount Value="10"/>
+      </Unit4>
+      <Unit5>
+        <CursorPos X="1" Y="51"/>
+        <Filename Value="/home/mattias/pascal/wichtig/lazarus/lcl/include/buttoncontrol.inc"/>
+        <TopLine Value="32"/>
+        <UsageCount Value="10"/>
+      </Unit5>
     </Units>
     <PublishOptions>
       <Version Value="2"/>
@@ -60,7 +129,7 @@
     </RequiredPackages>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="2"/>
+    <Version Value="3"/>
     <SearchPaths>
       <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
     </SearchPaths>

components/rtticontrols/examples/exampleproject2.lpi

@@ -1,19 +1,15 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="3"/>
+    <Version Value="5"/>
     <General>
-      <ProjectType Value="Application"/>
-      <Flags>
-        <SaveClosedFiles Value="False"/>
-        <SaveOnlyProjectUnits Value="True"/>
-      </Flags>
       <MainUnit Value="0"/>
       <ActiveEditorIndexAtStart Value="0"/>
       <IconPath Value="./"/>
       <TargetFileExt Value=""/>
       <Title Value="exampleproject2"/>
     </General>
+    <JumpHistory Count="0" HistoryIndex="-1"/>
     <Units Count="2">
       <Unit0>
         <Filename Value="exampleproject2.lpr"/>
@@ -22,7 +18,7 @@
         <UsageCount Value="20"/>
       </Unit0>
       <Unit1>
-        <CursorPos X="20" Y="47"/>
+        <CursorPos X="11" Y="48"/>
         <EditorIndex Value="0"/>
         <Filename Value="example2.pas"/>
         <ComponentName Value="Form1"/>
@@ -58,7 +54,7 @@
     </RequiredPackages>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="2"/>
+    <Version Value="3"/>
     <SearchPaths>
       <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
     </SearchPaths>

components/rtticontrols/rttictrls.pas

@@ -120,6 +120,7 @@ Type
                            Operation: TOperation); virtual;
     procedure GetEditorValues(const NewValue: string); virtual;
   public
+    constructor Create;
     constructor Create(TheOwner: TComponent);
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;
@@ -138,7 +139,6 @@ Type
     procedure DoError(Writing: boolean; E: Exception); virtual;
   public
     // alias values
-    constructor create;
     procedure MapValues(Values, AliasStrings: TStrings;
                         var MappedValues: TStrings;
                         UseAllExistingAlias, AddValuesWithoutAlias,
@@ -1292,8 +1292,9 @@ var
 begin
   if FOptions=NewOptions then exit;
   ChangedOptions:=(FOptions-NewOptions)+(NewOptions-FOptions);
-  //writeln('TCustomPropertyLink.SetOptions Old=',ploReadOnIdle in FOptions,
+  //debugln('TCustomPropertyLink.SetOptions Old=',dbgs(ploReadOnIdle in FOptions),
-  //  ' New=',ploReadOnIdle in NewOptions,' Changed=',ploReadOnIdle in ChangedOptions);
+  //  ' New=',dbgs(ploReadOnIdle in NewOptions),' Changed=',dbgs(ploReadOnIdle in ChangedOptions));
+  RaiseGDBException('');
   FOptions:=NewOptions;
   if (ploReadOnIdle in ChangedOptions) then UpdateIdleHandler;
 end;
@@ -1494,6 +1495,7 @@ begin
   FFilter:=AllTypeKinds;
   FAliasValues:=TAliasStrings.Create;
   FLinkNotifier:=TPropertyLinkNotifier.Create(Self);
+  FOptions:=DefaultLinkOptions;
 end;
 
 procedure TCustomPropertyLink.SaveToProperty;
@@ -1566,8 +1568,7 @@ end;
 
 constructor TCustomPropertyLink.create;
 begin
-  Inherited create;
+  Create(nil);
-  FOptions:=DefaultLinkOptions;
 end;
 
 procedure TCustomPropertyLink.MapValues(Values, AliasStrings: TStrings;