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

lazreport: fix crash, update project file and minor usability improvement to stringgrid sample

Browse Source 
git-svn-id: trunk@35129 -
This commit is contained in:
blikblum 2012-02-04 17:08:03 +00:00
parent 995b14dadc
commit 710e5b4dfd
5 changed files with 96 additions and 158 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

101
components/lazreport/samples/stringgrid/project1.lpi
View File

@ -1,20 +1,22 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="7"/> <Version Value="9"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/> <Language Value=""/>
<CharSet Value=""/> <CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -30,104 +32,34 @@
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>
<PackageName Value="lazreport"/> <PackageName Value="lazreport"/>
<MinVersion Minor="9" Release="5" Valid="True"/> <MinVersion Minor="9" Valid="True" Release="5"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="8"> <Units Count="2">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<CursorPos X="1" Y="14"/>
<TopLine Value="1"/>
<UsageCount Value="67"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<CursorPos X="31" Y="73"/>
<TopLine Value="59"/>
<EditorIndex Value="0"/>
<UsageCount Value="67"/>
<Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2>
<Filename Value="../../source/lr_class.pas"/>
<UnitName Value="LR_Class"/>
<CursorPos X="56" Y="20"/>
<TopLine Value="11"/>
<UsageCount Value="31"/>
</Unit2>
<Unit3>
<Filename Value="../../../../ide/lazconf.pp"/>
<UnitName Value="LazConf"/>
<CursorPos X="17" Y="207"/>
<TopLine Value="197"/>
<UsageCount Value="31"/>
</Unit3>
<Unit4>
<Filename Value="unit1.lfm"/>
<CursorPos X="41" Y="151"/>
<TopLine Value="138"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit4>
<Unit5>
<Filename Value="../../source/sysutilsadds.pas"/>
<UnitName Value="SysUtilsAdds"/>
<CursorPos X="19" Y="191"/>
<TopLine Value="181"/>
<UsageCount Value="11"/>
</Unit5>
<Unit6>
<Filename Value="../../source/lazreport.pas"/>
<UnitName Value="lazreport"/>
<CursorPos X="60" Y="13"/>
<TopLine Value="6"/>
<UsageCount Value="11"/>
</Unit6>
<Unit7>
<Filename Value="../../../../../fpc/rtl/objpas/sysutils/osutilsh.inc"/>
<CursorPos X="10" Y="59"/>
<TopLine Value="38"/>
<UsageCount Value="11"/>
</Unit7>
</Units> </Units>
<JumpHistory Count="6" HistoryIndex="5">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="43" Column="47" TopLine="42"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="39" Column="57" TopLine="17"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="70" Column="22" TopLine="58"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="73" Column="10" TopLine="58"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="99" Column="28" TopLine="86"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="106" Column="63" TopLine="90"/>
</Position6>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -136,6 +68,9 @@
</Options> </Options>
</Linking> </Linking>
<Other> <Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>

32
components/lazreport/samples/stringgrid/sample.lrf
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<LazReport> <LazReport>
<Version Value="24"/> <Version Value="25"/>
<Title Value=""/> <Title Value=""/>
<Subject Value=""/> <Subject Value=""/>
<KeyWords Value=""/> <KeyWords Value=""/>
@ -14,7 +14,7 @@
<Pages> <Pages>
<PrintToDefault Value="False"/> <PrintToDefault Value="False"/>
<DoublePass Value="False"/> <DoublePass Value="False"/>
<SelectedPrinter Value="HP-LaserJet-1200"/> <SelectedPrinter Value="HP Deskjet D2400 series"/>
<PageCount Value="1"/> <PageCount Value="1"/>
<Page1> <Page1>
<Name Value="Page1"/> <Name Value="Page1"/>
@ -177,7 +177,7 @@
<Data> <Data>
<Format Value="556"/> <Format Value="556"/>
<FormatStr Value=""/> <FormatStr Value=""/>
<Memo Value="Cliente : [cliente]&#xA;"/> <Memo Value="Cliente : [cliente]&#xD;&#xA;"/>
<Script Value=""/> <Script Value=""/>
</Data> </Data>
<Font> <Font>
@ -220,7 +220,7 @@
<Data> <Data>
<Format Value="556"/> <Format Value="556"/>
<FormatStr Value=""/> <FormatStr Value=""/>
<Memo Value="Presupuesto&#xA;"/> <Memo Value="Presupuesto&#xD;&#xA;"/>
<Script Value=""/> <Script Value=""/>
</Data> </Data>
<Font> <Font>
@ -263,7 +263,7 @@
<Data> <Data>
<Format Value="556"/> <Format Value="556"/>
<FormatStr Value=""/> <FormatStr Value=""/>
<Memo Value="Dirección: [direccion]&#xA;"/> <Memo Value="Dirección: [direccion]&#xD;&#xA;"/>
<Script Value=""/> <Script Value=""/>
</Data> </Data>
<Font> <Font>
@ -306,7 +306,7 @@
<Data> <Data>
<Format Value="33751084"/> <Format Value="33751084"/>
<FormatStr Value=""/> <FormatStr Value=""/>
<Memo Value="Fecha: [DATE]&#xA;"/> <Memo Value="Fecha: [DATE]&#xD;&#xA;"/>
<Script Value=""/> <Script Value=""/>
</Data> </Data>
<Font> <Font>
@ -349,7 +349,7 @@
<Data> <Data>
<Format Value="556"/> <Format Value="556"/>
<FormatStr Value=""/> <FormatStr Value=""/>
<Memo Value="[nombre]&#xA;"/> <Memo Value="[nombre]&#xD;&#xA;"/>
<Script Value=""/> <Script Value=""/>
</Data> </Data>
<Font> <Font>
@ -390,9 +390,9 @@
<FrameBorders Value=""/> <FrameBorders Value=""/>
</Frames> </Frames>
<Data> <Data>
<Format Value="17039916"/> <Format Value="44"/>
<FormatStr Value="$ ###0.00"/> <FormatStr Value=""/>
<Memo Value="[precio]&#xA;"/> <Memo Value="[precio]&#xD;&#xA;"/>
<Script Value=""/> <Script Value=""/>
</Data> </Data>
<Font> <Font>
@ -473,7 +473,7 @@
<Data> <Data>
<Format Value="556"/> <Format Value="556"/>
<FormatStr Value=""/> <FormatStr Value=""/>
<Memo Value="Nombre&#xA;"/> <Memo Value="Nombre&#xD;&#xA;"/>
<Script Value=""/> <Script Value=""/>
</Data> </Data>
<Font> <Font>
@ -516,7 +516,7 @@
<Data> <Data>
<Format Value="556"/> <Format Value="556"/>
<FormatStr Value=""/> <FormatStr Value=""/>
<Memo Value="Precio&#xA;"/> <Memo Value="Precio&#xD;&#xA;"/>
<Script Value=""/> <Script Value=""/>
</Data> </Data>
<Font> <Font>
@ -595,9 +595,9 @@
<FrameBorders Value=""/> <FrameBorders Value=""/>
</Frames> </Frames>
<Data> <Data>
<Format Value="17039406"/> <Format Value="44"/>
<FormatStr Value="$ ###0.00"/> <FormatStr Value=""/>
<Memo Value="TOTAL : [total]&#xA;"/> <Memo Value="TOTAL : [total]&#xD;&#xA;"/>
<Script Value=""/> <Script Value=""/>
</Data> </Data>
<Font> <Font>
@ -656,7 +656,7 @@
<Item Value="total"/> <Item Value="total"/>
</Objects5> </Objects5>
</FVal> </FVal>
<ParentVars Value="DEFAULT&#xA; cliente&#xA; direccion&#xA;PRODUCTOS&#xA; nombre&#xA; precio&#xA; total&#xA;"/> <ParentVars Value="DEFAULT&#xD;&#xA; cliente&#xD;&#xA; direccion&#xD;&#xA;PRODUCTOS&#xD;&#xA; nombre&#xD;&#xA; precio&#xD;&#xA; total&#xD;&#xA;"/>
</Pages> </Pages>
</LazReport> </LazReport>
</CONFIG> </CONFIG>

42
components/lazreport/samples/stringgrid/unit1.lfm
View File

@ -8,42 +8,43 @@ object Form1: TForm1
ClientHeight = 612 ClientHeight = 612
ClientWidth = 320 ClientWidth = 320
OnShow = FormShow OnShow = FormShow
LCLVersion = '0.9.27' Position = poDesktopCenter
LCLVersion = '0.9.31'
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 8 Left = 8
Height = 128 Height = 128
Top = 8 Top = 8
Width = 305 Width = 305
Caption = 'Customer Data' Caption = 'Customer Data'
ClientHeight = 124 ClientHeight = 110
ClientWidth = 301 ClientWidth = 301
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 16 Height = 14
Top = 8 Top = 8
Width = 91 Width = 81
Caption = 'Customer Name:' Caption = 'Customer Name:'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 8 Left = 8
Height = 16 Height = 14
Top = 64 Top = 64
Width = 46 Width = 44
Caption = 'Address:' Caption = 'Address:'
ParentColor = False ParentColor = False
end end
object Edit1: TEdit object Edit1: TEdit
Left = 8 Left = 8
Height = 23 Height = 21
Top = 24 Top = 24
Width = 280 Width = 280
TabOrder = 0 TabOrder = 0
end end
object Edit2: TEdit object Edit2: TEdit
Left = 8 Left = 8
Height = 23 Height = 21
Top = 80 Top = 80
Width = 280 Width = 280
TabOrder = 1 TabOrder = 1
@ -55,35 +56,35 @@ object Form1: TForm1
Top = 152 Top = 152
Width = 305 Width = 305
Caption = 'Add Products' Caption = 'Add Products'
ClientHeight = 68 ClientHeight = 54
ClientWidth = 301 ClientWidth = 301
TabOrder = 1 TabOrder = 1
object Label3: TLabel object Label3: TLabel
Left = 14 Left = 14
Height = 16 Height = 14
Top = 8 Top = 8
Width = 54 Width = 42
Caption = 'Product:' Caption = 'Product:'
ParentColor = False ParentColor = False
end end
object Label4: TLabel object Label4: TLabel
Left = 166 Left = 166
Height = 16 Height = 14
Top = 8 Top = 8
Width = 58 Width = 45
Caption = 'Price ($):' Caption = 'Price ($):'
ParentColor = False ParentColor = False
end end
object Edit3: TEdit object Edit3: TEdit
Left = 14 Left = 14
Height = 23 Height = 21
Top = 24 Top = 24
Width = 144 Width = 144
TabOrder = 0 TabOrder = 0
end end
object Edit4: TEdit object Edit4: TEdit
Left = 166 Left = 166
Height = 23 Height = 21
Top = 24 Top = 24
Width = 64 Width = 64
TabOrder = 1 TabOrder = 1
@ -104,14 +105,14 @@ object Form1: TForm1
Top = 232 Top = 232
Width = 304 Width = 304
Caption = 'Budgeted Products:' Caption = 'Budgeted Products:'
ClientHeight = 263 ClientHeight = 262
ClientWidth = 300 ClientWidth = 300
TabOrder = 2 TabOrder = 2
object Label5: TLabel object Label5: TLabel
Left = 149 Left = 149
Height = 16 Height = 14
Top = 231 Top = 231
Width = 56 Width = 46
Caption = 'Total ($):' Caption = 'Total ($):'
ParentColor = False ParentColor = False
end end
@ -140,7 +141,7 @@ object Form1: TForm1
end end
object Edit5: TEdit object Edit5: TEdit
Left = 208 Left = 208
Height = 23 Height = 21
Top = 224 Top = 224
Width = 80 Width = 80
TabOrder = 1 TabOrder = 1
@ -173,13 +174,14 @@ object Form1: TForm1
end end
object frReport1: TfrReport object frReport1: TfrReport
InitialZoom = pzDefault InitialZoom = pzDefault
Options = []
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit] PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet DataType = dtDataSet
OnGetValue = frReport1GetValue OnGetValue = frReport1GetValue
left = 153 left = 153
top = 576 top = 576
ReportForm = { ReportForm = {
18000000 19000000
} }
end end
end end

77
components/lazreport/samples/stringgrid/unit1.lrs
View File

@ -3,42 +3,43 @@
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#164#1#6'Height'#3'd'#2#3'Top'#2'_'#5'Widt' 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#164#1#6'Height'#3'd'#2#3'Top'#2'_'#5'Widt'
+'h'#3'@'#1#13'ActiveControl'#7#5'Edit1'#7'Caption'#6#6'Budget'#12'ClientHeig' +'h'#3'@'#1#13'ActiveControl'#7#5'Edit1'#7'Caption'#6#6'Budget'#12'ClientHeig'
+'ht'#3'd'#2#11'ClientWidth'#3'@'#1#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6 +'ht'#3'd'#2#11'ClientWidth'#3'@'#1#6'OnShow'#7#8'FormShow'#8'Position'#7#15
+'0.9.27'#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3#128#0#3'Top'#2#8 +'poDesktopCenter'#10'LCLVersion'#6#6'0.9.31'#0#9'TGroupBox'#9'GroupBox1'#4'L'
+#5'Width'#3'1'#1#7'Caption'#6#13'Customer Data'#12'ClientHeight'#2'|'#11'Cli' +'eft'#2#8#6'Height'#3#128#0#3'Top'#2#8#5'Width'#3'1'#1#7'Caption'#6#13'Custo'
+'entWidth'#3'-'#1#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height' +'mer Data'#12'ClientHeight'#2'n'#11'ClientWidth'#3'-'#1#8'TabOrder'#2#0#0#6
+#2#16#3'Top'#2#8#5'Width'#2'['#7'Caption'#6#14'Customer Name:'#11'ParentColo' +'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#8#5'Width'#2'Q'#7'Cap'
+'r'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#16#3'Top'#2'@'#5'Width' +'tion'#6#14'Customer Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'
+#2'.'#7'Caption'#6#8'Address:'#11'ParentColor'#8#0#0#5'TEdit'#5'Edit1'#4'Lef' +#2#8#6'Height'#2#14#3'Top'#2'@'#5'Width'#2','#7'Caption'#6#8'Address:'#11'Pa'
+'t'#2#8#6'Height'#2#23#3'Top'#2#24#5'Width'#3#24#1#8'TabOrder'#2#0#0#0#5'TEd' +'rentColor'#8#0#0#5'TEdit'#5'Edit1'#4'Left'#2#8#6'Height'#2#21#3'Top'#2#24#5
+'it'#5'Edit2'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'P'#5'Width'#3#24#1#8'TabOr' +'Width'#3#24#1#8'TabOrder'#2#0#0#0#5'TEdit'#5'Edit2'#4'Left'#2#8#6'Height'#2
+'der'#2#1#0#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#2#8#6'Height'#2'H'#3'Top'#3 +#21#3'Top'#2'P'#5'Width'#3#24#1#8'TabOrder'#2#1#0#0#0#9'TGroupBox'#9'GroupBo'
+#152#0#5'Width'#3'1'#1#7'Caption'#6#12'Add Products'#12'ClientHeight'#2'D'#11 +'x2'#4'Left'#2#8#6'Height'#2'H'#3'Top'#3#152#0#5'Width'#3'1'#1#7'Caption'#6
+'ClientWidth'#3'-'#1#8'TabOrder'#2#1#0#6'TLabel'#6'Label3'#4'Left'#2#14#6'He' +#12'Add Products'#12'ClientHeight'#2'6'#11'ClientWidth'#3'-'#1#8'TabOrder'#2
+'ight'#2#16#3'Top'#2#8#5'Width'#2'6'#7'Caption'#6#8'Product:'#11'ParentColor' +#1#0#6'TLabel'#6'Label3'#4'Left'#2#14#6'Height'#2#14#3'Top'#2#8#5'Width'#2'*'
+#8#0#0#6'TLabel'#6'Label4'#4'Left'#3#166#0#6'Height'#2#16#3'Top'#2#8#5'Width' +#7'Caption'#6#8'Product:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3
+#2':'#7'Caption'#6#10'Price ($):'#11'ParentColor'#8#0#0#5'TEdit'#5'Edit3'#4 +#166#0#6'Height'#2#14#3'Top'#2#8#5'Width'#2'-'#7'Caption'#6#10'Price ($):'#11
+'Left'#2#14#6'Height'#2#23#3'Top'#2#24#5'Width'#3#144#0#8'TabOrder'#2#0#0#0#5 +'ParentColor'#8#0#0#5'TEdit'#5'Edit3'#4'Left'#2#14#6'Height'#2#21#3'Top'#2#24
+'TEdit'#5'Edit4'#4'Left'#3#166#0#6'Height'#2#23#3'Top'#2#24#5'Width'#2'@'#8 +#5'Width'#3#144#0#8'TabOrder'#2#0#0#0#5'TEdit'#5'Edit4'#4'Left'#3#166#0#6'He'
+'TabOrder'#2#1#0#0#7'TButton'#7'Button1'#4'Left'#3#238#0#6'Height'#2#25#3'To' +'ight'#2#21#3'Top'#2#24#5'Width'#2'@'#8'TabOrder'#2#1#0#0#7'TButton'#7'Butto'
+'p'#2#22#5'Width'#2';'#7'Caption'#6#3'Add'#7'OnClick'#7#12'Button1Click'#8'T' +'n1'#4'Left'#3#238#0#6'Height'#2#25#3'Top'#2#22#5'Width'#2';'#7'Caption'#6#3
+'abOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBox3'#4'Left'#2#9#6'Height'#3#24#1#3 +'Add'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'Gro'
+'Top'#3#232#0#5'Width'#3'0'#1#7'Caption'#6#18'Budgeted Products:'#12'ClientH' +'upBox3'#4'Left'#2#9#6'Height'#3#24#1#3'Top'#3#232#0#5'Width'#3'0'#1#7'Capti'
+'eight'#3#7#1#11'ClientWidth'#3','#1#8'TabOrder'#2#2#0#6'TLabel'#6'Label5'#4 +'on'#6#18'Budgeted Products:'#12'ClientHeight'#3#6#1#11'ClientWidth'#3','#1#8
+'Left'#3#149#0#6'Height'#2#16#3'Top'#3#231#0#5'Width'#2'8'#7'Caption'#6#10'T' +'TabOrder'#2#2#0#6'TLabel'#6'Label5'#4'Left'#3#149#0#6'Height'#2#14#3'Top'#3
+'otal ($):'#11'ParentColor'#8#0#0#11'TStringGrid'#11'StringGrid1'#4'Left'#2#8 +#231#0#5'Width'#2'.'#7'Caption'#6#10'Total ($):'#11'ParentColor'#8#0#0#11'TS'
+#6'Height'#3#204#0#3'Top'#2#8#5'Width'#3#26#1#8'ColCount'#2#2#9'FixedCols'#2 +'tringGrid'#11'StringGrid1'#4'Left'#2#8#6'Height'#3#204#0#3'Top'#2#8#5'Width'
+#0#8'RowCount'#2#1#8'TabOrder'#2#0#9'ColWidths'#1#3#208#0#2'F'#0#5'Cells'#1#2 +#3#26#1#8'ColCount'#2#2#9'FixedCols'#2#0#8'RowCount'#2#1#8'TabOrder'#2#0#9'C'
+#2#2#0#2#0#6#7'Product'#2#1#2#0#6#5'Price'#0#0#0#5'TEdit'#5'Edit5'#4'Left'#3 +'olWidths'#1#3#208#0#2'F'#0#5'Cells'#1#2#2#2#0#2#0#6#7'Product'#2#1#2#0#6#5
+#208#0#6'Height'#2#23#3'Top'#3#224#0#5'Width'#2'P'#8'TabOrder'#2#1#0#0#0#7'T' +'Price'#0#0#0#5'TEdit'#5'Edit5'#4'Left'#3#208#0#6'Height'#2#21#3'Top'#3#224#0
+'Button'#7'Button2'#4'Left'#3#200#0#6'Height'#2#25#3'Top'#3#16#2#5'Width'#2 +#5'Width'#2'P'#8'TabOrder'#2#1#0#0#0#7'TButton'#7'Button2'#4'Left'#3#200#0#6
+'['#7'Caption'#6#13'Design Report'#7'OnClick'#7#12'Button2Click'#8'TabOrder' +'Height'#2#25#3'Top'#3#16#2#5'Width'#2'['#7'Caption'#6#13'Design Report'#7'O'
+#2#3#0#0#7'TButton'#7'Button3'#4'Left'#2#24#6'Height'#2#25#3'Top'#3#16#2#5'W' +'nClick'#7#12'Button2Click'#8'TabOrder'#2#3#0#0#7'TButton'#7'Button3'#4'Left'
+'idth'#2'['#7'Caption'#6#11'Show Report'#7'OnClick'#7#12'Button3Click'#8'Tab' +#2#24#6'Height'#2#25#3'Top'#3#16#2#5'Width'#2'['#7'Caption'#6#11'Show Report'
+'Order'#2#4#0#0#14'TfrUserDataset'#5'Filas'#10'OnCheckEOF'#7#13'FilasCheckEO' +#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#4#0#0#14'TfrUserDataset'#5'Fila'
+'F'#7'OnFirst'#7#10'FilasFirst'#6'OnNext'#7#9'FilasNext'#4'left'#2'/'#3'top' +'s'#10'OnCheckEOF'#7#13'FilasCheckEOF'#7'OnFirst'#7#10'FilasFirst'#6'OnNext'
+#3'@'#2#0#0#9'TfrReport'#9'frReport1'#11'InitialZoom'#7#9'pzDefault'#14'Prev' +#7#9'FilasNext'#4'left'#2'/'#3'top'#3'@'#2#0#0#9'TfrReport'#9'frReport1'#11
+'iewButtons'#11#6'pbZoom'#6'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFind'#6'pbHelp' +'InitialZoom'#7#9'pzDefault'#7'Options'#11#0#14'PreviewButtons'#11#6'pbZoom'
+#6'pbExit'#0#8'DataType'#7#9'dtDataSet'#10'OnGetValue'#7#17'frReport1GetValu' +#6'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFind'#6'pbHelp'#6'pbExit'#0#8'DataType'#7
+'e'#4'left'#3#153#0#3'top'#3'@'#2#10'ReportForm'#10#4#0#0#0#24#0#0#0#0#0#0 +#9'dtDataSet'#10'OnGetValue'#7#17'frReport1GetValue'#4'left'#3#153#0#3'top'#3
+'@'#2#10'ReportForm'#10#4#0#0#0#25#0#0#0#0#0#0
]); ]);

2
components/lazreport/samples/stringgrid/unit1.pas
View File

@ -83,7 +83,7 @@ begin
ParValue := StringGrid1.Cells[1, fila]; ParValue := StringGrid1.Cells[1, fila];
if ParName = 'total' then if ParName = 'total' then
ParValue := Edit5.Text; ParValue := '$ ' + Edit5.Text;
end; end;
procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject);