mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-19 07:29:25 +02:00
rtticontrols: fixed example1
git-svn-id: trunk@12608 -
This commit is contained in:
mattias
parent
79add3b56e
commit
64a146a7f9
@ -1,134 +1,121 @@
|
||||
object Form1: TForm1
|
||||
Left = 294
|
||||
Height = 490
|
||||
Top = 168
|
||||
Width = 643
|
||||
HorzScrollBar.Page = 642
|
||||
VertScrollBar.Page = 489
|
||||
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
|
||||
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
|
||||
Link.TIObject = TICheckBox1
|
||||
Link.TIPropertyName = 'Caption'
|
||||
TabStop = True
|
||||
TabOrder = 0
|
||||
Left = 8
|
||||
Height = 23
|
||||
Top = 136
|
||||
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
|
||||
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
|
||||
Left = 19
|
||||
Height = 70
|
||||
Top = 328
|
||||
Width = 117
|
||||
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
|
||||
Left = 10
|
||||
Height = 17
|
||||
Top = 208
|
||||
Width = 193
|
||||
Caption = 'Edit caption of right TTICheckbox'
|
||||
Color = clOlive
|
||||
TabOrder = 3
|
||||
TabStop = True
|
||||
Left = 8
|
||||
Height = 17
|
||||
Top = 112
|
||||
Width = 193
|
||||
end
|
||||
object StaticText2: TStaticText
|
||||
Left = 16
|
||||
Height = 17
|
||||
Top = 296
|
||||
Width = 194
|
||||
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
|
||||
Left = 16
|
||||
Height = 25
|
||||
Top = 448
|
||||
Width = 180
|
||||
Link.TIObject = TICheckBox1
|
||||
Link.TIPropertyName = 'Enabled'
|
||||
MaxLength = 0
|
||||
TabOrder = 5
|
||||
TabStop = True
|
||||
Left = 16
|
||||
Height = 25
|
||||
Top = 306
|
||||
Width = 180
|
||||
end
|
||||
object StaticText3: TStaticText
|
||||
Left = 19
|
||||
Height = 17
|
||||
Top = 424
|
||||
Width = 186
|
||||
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
|
||||
Caption = 'Edit this TStaticText with the TTIPropertyGrid below'
|
||||
TabOrder = 7
|
||||
TabStop = True
|
||||
end
|
||||
object TIPropertyGrid1: TTIPropertyGrid
|
||||
BorderStyle = bsSingle
|
||||
Left = 384
|
||||
Height = 225
|
||||
Top = 248
|
||||
Width = 242
|
||||
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
|
||||
Left = 200
|
||||
Height = 22
|
||||
Top = 168
|
||||
Width = 415
|
||||
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
|
||||
TabOrder = 9
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,41 +1,40 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#7'TIEdit1'#7'Caption'#6#21'RTTI'
|
||||
+' Controls Example'#12'ClientHeight'#3#136#1#11'ClientWidth'#3'k'#2#13'Pixel'
|
||||
+'sPerInch'#2'Z'#18'HorzScrollBar.Page'#3'l'#2#18'VertScrollBar.Page'#3#137#1
|
||||
+#4'Left'#3'&'#1#6'Height'#3#136#1#3'Top'#3#168#0#5'Width'#3'k'#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#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#24#3'Top'#3#136#0#5'Width'#2'b'#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#8'TopIndex'#2#255#4'Left'#2#11#6'Height'
|
||||
+#2'F'#3'Top'#3#200#0#5'Width'#2'u'#0#0#11'TStaticText'#11'StaticText1'#7'Cap'
|
||||
+'tion'#6'!Edit caption of right TTICheckbox'#5'Color'#7#7'clOlive'#8'TabOrde'
|
||||
+'r'#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 TSt'
|
||||
+'aticText'#11'ParentColor'#9#8'TabOrder'#2#4#7'TabStop'#9#4'Left'#2#11#6'Hei'
|
||||
+'ght'#2#17#3'Top'#3#176#0#5'Width'#3#194#0#0#0#11'TTIComboBox'#18'TIComboBox'
|
||||
+'_Enabled'#13'Link.TIObject'#7#11'TICheckBox1'#19'Link.TIPropertyName'#6#7'E'
|
||||
+'nabled'#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'C'
|
||||
+'aption'#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 T'
|
||||
+'TIPropertyGrid below'#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'clActiveCaption'#7'Tabstop'#9#8'TIObject'#7#11'StaticText4'#15'ValueFo'
|
||||
+'nt.Color'#7#8'clMaroon'#4'Left'#3'H'#1#6'Height'#3#225#0#3'Top'#3#144#0#5'W'
|
||||
+'idth'#3#242#0#0#0#6'TLabel'#6'Label1'#7'Caption'#6#156'This is a demonstrat'
|
||||
+'ion of a few RTTI Controls.'#10'The RTTI controls allows you to edit proper'
|
||||
+'ties of objects.'#10'The whole example requires not one line of code.'#8'Wo'
|
||||
+'rdWrap'#9#4'Left'#2#10#6'Height'#2'W'#3'Top'#2#9#5'Width'#3#30#1#0#0#11'TTI'
|
||||
+'CheckBox'#11'TICheckBox2'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6';TIC'
|
||||
+'heckBox2 for set element TIPropertyGrid1.Anchors.akRight'#13'Link.TIObject'
|
||||
+#7#15'TIPropertyGrid1'#19'Link.TIPropertyName'#6#7'Anchors'#18'Link.TIElemen'
|
||||
+'tName'#6#7'akRight'#8'TabOrder'#2#10#7'TabStop'#9#4'Left'#3#240#0#6'Height'
|
||||
+#2#24#3'Top'#2'h'#5'Width'#3'p'#1#0#0#0
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'&'#1#6'Height'#3#234#1#3'Top'#3#168#0#5'W'
|
||||
+'idth'#3#131#2#18'HorzScrollBar.Page'#3#130#2#18'VertScrollBar.Page'#3#233#1
|
||||
+#13'ActiveControl'#7#7'TIEdit1'#7'Caption'#6#21'RTTI Controls Example'#12'Cl'
|
||||
+'ientHeight'#3#234#1#11'ClientWidth'#3#131#2#0#6'TLabel'#6'Label1'#4'Left'#2
|
||||
+#10#6'Height'#3#135#0#3'Top'#2#9#5'Width'#3#17#1#7'Caption'#6#156'This is a '
|
||||
+'demonstration of a few RTTI Controls.'#10'The RTTI controls allows you to e'
|
||||
+'dit properties of objects.'#10'The whole example requires not one line of c'
|
||||
+'ode.'#11'ParentColor'#8#8'WordWrap'#9#0#0#7'TTIEdit'#7'TIEdit1'#4'Left'#2#8
|
||||
+#6'Height'#2#23#3'Top'#3#248#0#5'Width'#3#144#0#13'Link.TIObject'#7#11'TIChe'
|
||||
+'ckBox1'#19'Link.TIPropertyName'#6#7'Caption'#8'TabOrder'#2#0#0#0#11'TTIChec'
|
||||
+'kBox'#11'TICheckBox1'#4'Left'#3#176#0#6'Height'#2#22#3'Top'#3#248#0#5'Width'
|
||||
+#2'i'#11'AllowGrayed'#9#7'Caption'#6#11'TICheckBox1'#13'Link.TIObject'#7#7'T'
|
||||
+'IEdit1'#19'Link.TIPropertyName'#6#7'Visible'#5'State'#7#9'cbChecked'#8'TabO'
|
||||
+'rder'#2#1#0#0#10'TTIListBox'#15'TIListBox_Color'#4'Left'#2#19#6'Height'#2'F'
|
||||
+#3'Top'#3'H'#1#5'Width'#2'u'#16'ClickOnSelChange'#8#13'Link.TIObject'#7#11'S'
|
||||
+'taticText1'#19'Link.TIPropertyName'#6#5'Color'#8'TabOrder'#2#2#0#0#11'TStat'
|
||||
+'icText'#11'StaticText1'#4'Left'#2#10#6'Height'#2#17#3'Top'#3#208#0#5'Width'
|
||||
+#3#193#0#7'Caption'#6'!Edit caption of right TTICheckbox'#5'Color'#7#7'clOli'
|
||||
+'ve'#8'TabOrder'#2#3#7'TabStop'#9#0#0#11'TStaticText'#11'StaticText2'#4'Left'
|
||||
+#2#16#6'Height'#2#17#3'Top'#3'('#1#5'Width'#3#194#0#7'Caption'#6#31'Edit Col'
|
||||
+'or of above TStaticText'#8'TabOrder'#2#4#7'TabStop'#9#0#0#11'TTIComboBox'#18
|
||||
+'TIComboBox_Enabled'#4'Left'#2#16#6'Height'#2#25#3'Top'#3#192#1#5'Width'#3
|
||||
+#180#0#13'Link.TIObject'#7#11'TICheckBox1'#19'Link.TIPropertyName'#6#7'Enabl'
|
||||
+'ed'#9'MaxLength'#2#0#8'TabOrder'#2#5#0#0#11'TStaticText'#11'StaticText3'#4
|
||||
+'Left'#2#19#6'Height'#2#17#3'Top'#3#168#1#5'Width'#3#186#0#7'Caption'#6#25'E'
|
||||
+'dit TTICheckBox1.Enabled'#8'TabOrder'#2#6#7'TabStop'#9#0#0#11'TStaticText'
|
||||
+#11'StaticText4'#4'Left'#3'`'#1#6'Height'#2'P'#3'Top'#2#16#5'Width'#3#145#0#7
|
||||
+'Caption'#6'4Edit this TStaticText with the TTIPropertyGrid below'#8'TabOrde'
|
||||
+'r'#2#7#7'TabStop'#9#0#0#15'TTIPropertyGrid'#15'TIPropertyGrid1'#4'Left'#3
|
||||
+#128#1#6'Height'#3#225#0#3'Top'#3#248#0#5'Width'#3#242#0#22'DefaultValueFont'
|
||||
+'.Color'#7#15'clActiveCaption'#7'Tabstop'#9#8'TIObject'#7#11'StaticText4'#15
|
||||
+'ValueFont.Color'#7#8'clMaroon'#0#0#11'TTICheckBox'#11'TICheckBox2'#4'Left'#3
|
||||
+#200#0#6'Height'#2#22#3'Top'#3#168#0#5'Width'#3#159#1#11'AllowGrayed'#9#7'Ca'
|
||||
+'ption'#6';TICheckBox2 for set element TIPropertyGrid1.Anchors.akRight'#13'L'
|
||||
+'ink.TIObject'#7#15'TIPropertyGrid1'#19'Link.TIPropertyName'#6#7'Anchors'#18
|
||||
+'Link.TIElementName'#6#7'akRight'#8'TabOrder'#2#9#0#0#0
|
||||
]);
|
||||
|
||||
@ -24,7 +24,7 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, RTTICtrls,
|
||||
StdCtrls;
|
||||
RTTIGrids, StdCtrls;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
|
||||
@ -2,7 +2,7 @@
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="6"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
@ -24,12 +24,12 @@
|
||||
</RunParams>
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="LCL"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="RunTimeTypeInfoControls"/>
|
||||
<MinVersion Minor="1" Valid="True"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCL"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="2">
|
||||
@ -55,6 +55,13 @@
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="5"/>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="6"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<SaveClosedFiles Value="False"/>
|
||||
@ -10,7 +10,7 @@
|
||||
</Flags>
|
||||
<SessionStorage Value="InIDEConfig"/>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value=".\"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=""/>
|
||||
<Title Value="exampleproject3"/>
|
||||
</General>
|
||||
@ -22,15 +22,15 @@
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="RunTimeTypeInfoControls"/>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCL"/>
|
||||
<PackageName Value="RunTimeTypeInfoControls"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="2">
|
||||
@ -50,9 +50,8 @@
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
|
||||
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user