paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 18:29:12 +02: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"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="9"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -30,104 +32,34 @@
<RequiredPackages Count="2">
<Item1>
<PackageName Value="lazreport"/>
<MinVersion Minor="9" Release="5" Valid="True"/>
<MinVersion Minor="9" Valid="True" Release="5"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="8">
<Units Count="2">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
<CursorPos X="1" Y="14"/>
<TopLine Value="1"/>
<UsageCount Value="67"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<CursorPos X="31" Y="73"/>
<TopLine Value="59"/>
<EditorIndex Value="0"/>
<UsageCount Value="67"/>
<Loaded Value="True"/>
</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>
<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>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -136,6 +68,9 @@
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

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

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

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

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

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

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