paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 17:59:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed RTTI Controls Default Options and examples

Browse Source 
git-svn-id: trunk@6370 -
This commit is contained in:
mattias 2004-12-13 10:34:34 +00:00
parent b00a14bfc5
commit 0c380c60cb
8 changed files with 148 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/rtticontrols/examples/example1.lfm
View File

@ -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
Link.Options = [ploReadOnIdle]
object TIComboBox_Enabled: TTIComboBox
Link.TIObject = TICheckBox1
Link.TIPropertyName = 'Enabled'
MaxLength = 0

69
components/rtticontrols/examples/example1.lrs
View File

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

4
components/rtticontrols/examples/example1.pas
View File

@ -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 }

4
components/rtticontrols/examples/example2.lfm
View File

@ -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

31
components/rtticontrols/examples/example2.lrs
View File

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

95
components/rtticontrols/examples/exampleproject1.lpi
View File

@ -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>

12
components/rtticontrols/examples/exampleproject2.lpi
View File

@ -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>

11
components/rtticontrols/rttictrls.pas
View File

@ -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,
// ' New=',ploReadOnIdle in NewOptions,' Changed=',ploReadOnIdle in ChangedOptions);
//debugln('TCustomPropertyLink.SetOptions Old=',dbgs(ploReadOnIdle in FOptions),
// ' 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;
FOptions:=DefaultLinkOptions;
Create(nil);
end;
procedure TCustomPropertyLink.MapValues(Values, AliasStrings: TStrings;