mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-07 06:38:06 +02:00
lazreport: fix compilation, update project file and minor usability improvements to userds sample
git-svn-id: trunk@35126 -
This commit is contained in:
blikblum
parent
e96f8fdf7b
commit
60a48a0d04
@ -1,17 +1,20 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="9"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=""/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
</General>
|
||||
<VersionInfo>
|
||||
<ProjectVersion Value=""/>
|
||||
<StringTable ProductVersion=""/>
|
||||
</VersionInfo>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
@ -30,81 +33,38 @@
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="lazreport"/>
|
||||
<MinVersion Minor="9" Release="3" Valid="True"/>
|
||||
<MinVersion Minor="9" Valid="True" Release="3"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="8">
|
||||
<Units Count="3">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="project1"/>
|
||||
<UsageCount Value="30"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="unit1.lrs"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
<CursorPos X="24" Y="104"/>
|
||||
<TopLine Value="95"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="30"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="unit1.lfm"/>
|
||||
<CursorPos X="27" Y="41"/>
|
||||
<TopLine Value="33"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="../../source/lr_class.pas"/>
|
||||
<UnitName Value="LR_Class"/>
|
||||
<CursorPos X="5" Y="47"/>
|
||||
<TopLine Value="33"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../../source/lr_pars.pas"/>
|
||||
<UnitName Value="LR_Pars"/>
|
||||
<CursorPos X="3" Y="80"/>
|
||||
<TopLine Value="72"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="../../../../lazarus/lcl/lclproc.pas"/>
|
||||
<UnitName Value="LCLProc"/>
|
||||
<CursorPos X="10" Y="232"/>
|
||||
<TopLine Value="213"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="unit2.pas"/>
|
||||
<ComponentName Value="Form2"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="unit2.lrs"/>
|
||||
<ComponentName Value="Form2"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit2"/>
|
||||
<CursorPos X="22" Y="8"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="22"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="../../../../lazarus/components/sqldb/registersqldb.pas"/>
|
||||
<UnitName Value="registersqldb"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
</Unit2>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Version Value="11"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<UseAnsiStrings Value="False"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<Linking>
|
||||
<Options>
|
||||
<Win32>
|
||||
@ -113,30 +73,10 @@
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerMessages>
|
||||
<UseMsgFile Value="True"/>
|
||||
</CompilerMessages>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Watches Count="5">
|
||||
<Item1>
|
||||
<Expression Value="FieldDef.FDataType"/>
|
||||
<Enabled Value="False"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Expression Value="FieldDef.FSize"/>
|
||||
<Enabled Value="False"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Expression Value="IsSeq"/>
|
||||
<Enabled Value="False"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<Expression Value="TIBCURSOR(CURSOR).SQLDA^"/>
|
||||
<Enabled Value="False"/>
|
||||
</Item4>
|
||||
<Item5>
|
||||
<Expression Value="x"/>
|
||||
</Item5>
|
||||
</Watches>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
|
||||
@ -6,10 +6,12 @@ object Form1: TForm1
|
||||
HorzScrollBar.Page = 399
|
||||
VertScrollBar.Page = 87
|
||||
ActiveControl = btnShowReport
|
||||
Caption = 'Form1'
|
||||
Caption = 'LazReport UserDataser Demo'
|
||||
ClientHeight = 88
|
||||
ClientWidth = 400
|
||||
OnCreate = FormCreate
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '0.9.31'
|
||||
object btnShowReport: TButton
|
||||
Left = 64
|
||||
Height = 25
|
||||
@ -48,7 +50,10 @@ object Form1: TForm1
|
||||
top = 56
|
||||
end
|
||||
object frReport1: TfrReport
|
||||
InitialZoom = pzDefault
|
||||
Options = []
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
|
||||
DataType = dtDataSet
|
||||
OnBeginDoc = frReport1BeginDoc
|
||||
OnEndDoc = frReport1EndDoc
|
||||
OnBeginPage = frReport1BeginPage
|
||||
@ -64,7 +69,7 @@ object Form1: TForm1
|
||||
left = 80
|
||||
top = 56
|
||||
ReportForm = {
|
||||
18000000
|
||||
19000000
|
||||
}
|
||||
end
|
||||
object ColumnsDS: TfrUserDataset
|
||||
|
||||
@ -3,27 +3,29 @@
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#238#0#6'Height'#2'X'#3'Top'#2't'#5'Width'
|
||||
+#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#2'W'#13'Activ'
|
||||
+'eControl'#7#13'btnShowReport'#7'Caption'#6#5'Form1'#12'ClientHeight'#2'X'#11
|
||||
+'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#0#7'TButton'#13'btnShowRe'
|
||||
+'port'#4'Left'#2'@'#6'Height'#2#25#3'Top'#2#20#5'Width'#2'~'#25'BorderSpacin'
|
||||
+'g.InnerBorder'#2#4#7'Caption'#6#11'Show Report'#7'OnClick'#7#18'btnShowRepo'
|
||||
+'rtClick'#8'TabOrder'#2#0#0#0#7'TButton'#7'Button1'#4'Left'#3#200#0#6'Height'
|
||||
+#2#25#3'Top'#2#20#5'Width'#3#136#0#25'BorderSpacing.InnerBorder'#2#4#7'Capti'
|
||||
+'on'#6#13'Design Report'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#1#0#0#7
|
||||
+'TButton'#7'Button2'#4'Left'#2'l'#6'Height'#2#25#3'Top'#2'8'#5'Width'#3#184#0
|
||||
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#25'Show Notes of this Sample'
|
||||
+#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#2#0#0#14'TfrUserDataset'#8'Mast'
|
||||
+'erDS'#10'OnCheckEOF'#7#16'MasterDSCheckEOF'#7'OnFirst'#7#13'MasterDSFirst'#6
|
||||
+'OnNext'#7#12'MasterDSNext'#4'left'#2#8#3'top'#2'8'#0#0#9'TfrReport'#9'frRep'
|
||||
+'ort1'#14'PreviewButtons'#11#6'pbZoom'#6'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFi'
|
||||
+'nd'#6'pbHelp'#6'pbExit'#0#10'OnBeginDoc'#7#17'frReport1BeginDoc'#8'OnEndDoc'
|
||||
+#7#15'frReport1EndDoc'#11'OnBeginPage'#7#18'frReport1BeginPage'#9'OnEndPage'
|
||||
+#7#16'frReport1EndPage'#11'OnBeginBand'#7#18'frReport1BeginBand'#9'OnEndBand'
|
||||
+#7#16'frReport1EndBand'#10'OnGetValue'#7#17'frReport1GetValue'#11'OnEnterRec'
|
||||
+'t'#7#18'frReport1EnterRect'#14'OnUserFunction'#7#21'frReport1UserFunction'
|
||||
+#10'OnProgress'#7#17'frReport1Progress'#13'OnBeginColumn'#7#20'frReport1Begi'
|
||||
+'nColumn'#13'OnPrintColumn'#7#20'frReport1PrintColumn'#4'left'#2'P'#3'top'#2
|
||||
+'8'#10'ReportForm'#10#4#0#0#0#24#0#0#0#0#0#14'TfrUserDataset'#9'ColumnsDS'#10
|
||||
+'OnCheckEOF'#7#17'ColumnsDSCheckEOF'#7'OnFirst'#7#14'ColumnsDSFirst'#6'OnNex'
|
||||
+'t'#7#13'ColumnsDSNext'#4'left'#2'('#3'top'#2'8'#0#0#0
|
||||
+'eControl'#7#13'btnShowReport'#7'Caption'#6#26'LazReport UserDataser Demo'#12
|
||||
+'ClientHeight'#2'X'#11'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#8'P'
|
||||
+'osition'#7#15'poDesktopCenter'#10'LCLVersion'#6#6'0.9.31'#0#7'TButton'#13'b'
|
||||
+'tnShowReport'#4'Left'#2'@'#6'Height'#2#25#3'Top'#2#20#5'Width'#2'~'#25'Bord'
|
||||
+'erSpacing.InnerBorder'#2#4#7'Caption'#6#11'Show Report'#7'OnClick'#7#18'btn'
|
||||
+'ShowReportClick'#8'TabOrder'#2#0#0#0#7'TButton'#7'Button1'#4'Left'#3#200#0#6
|
||||
+'Height'#2#25#3'Top'#2#20#5'Width'#3#136#0#25'BorderSpacing.InnerBorder'#2#4
|
||||
+#7'Caption'#6#13'Design Report'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#1
|
||||
+#0#0#7'TButton'#7'Button2'#4'Left'#2'l'#6'Height'#2#25#3'Top'#2'8'#5'Width'#3
|
||||
+#184#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#25'Show Notes of this '
|
||||
+'Sample'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#2#0#0#14'TfrUserDataset'
|
||||
+#8'MasterDS'#10'OnCheckEOF'#7#16'MasterDSCheckEOF'#7'OnFirst'#7#13'MasterDSF'
|
||||
+'irst'#6'OnNext'#7#12'MasterDSNext'#4'left'#2#8#3'top'#2'8'#0#0#9'TfrReport'
|
||||
+#9'frReport1'#11'InitialZoom'#7#9'pzDefault'#7'Options'#11#0#14'PreviewButto'
|
||||
+'ns'#11#6'pbZoom'#6'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFind'#6'pbHelp'#6'pbExi'
|
||||
+'t'#0#8'DataType'#7#9'dtDataSet'#10'OnBeginDoc'#7#17'frReport1BeginDoc'#8'On'
|
||||
+'EndDoc'#7#15'frReport1EndDoc'#11'OnBeginPage'#7#18'frReport1BeginPage'#9'On'
|
||||
+'EndPage'#7#16'frReport1EndPage'#11'OnBeginBand'#7#18'frReport1BeginBand'#9
|
||||
+'OnEndBand'#7#16'frReport1EndBand'#10'OnGetValue'#7#17'frReport1GetValue'#11
|
||||
+'OnEnterRect'#7#18'frReport1EnterRect'#14'OnUserFunction'#7#21'frReport1User'
|
||||
+'Function'#10'OnProgress'#7#17'frReport1Progress'#13'OnBeginColumn'#7#20'frR'
|
||||
+'eport1BeginColumn'#13'OnPrintColumn'#7#20'frReport1PrintColumn'#4'left'#2'P'
|
||||
+#3'top'#2'8'#10'ReportForm'#10#4#0#0#0#25#0#0#0#0#0#14'TfrUserDataset'#9'Col'
|
||||
+'umnsDS'#10'OnCheckEOF'#7#17'ColumnsDSCheckEOF'#7'OnFirst'#7#14'ColumnsDSFir'
|
||||
+'st'#6'OnNext'#7#13'ColumnsDSNext'#4'left'#2'('#3'top'#2'8'#0#0#0
|
||||
]);
|
||||
|
||||
@ -6,7 +6,7 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, LR_DSet,
|
||||
LR_Class, LR_Pars, Buttons;
|
||||
LR_Class, Buttons, StdCtrls;
|
||||
|
||||
{.$DEFINE DEBUG}
|
||||
|
||||
|
||||
@ -9,13 +9,17 @@ object Form2: TForm2
|
||||
ClientHeight = 300
|
||||
ClientWidth = 400
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.31'
|
||||
object Memo1: TMemo
|
||||
Left = 0
|
||||
Height = 300
|
||||
Top = 0
|
||||
Width = 400
|
||||
Align = alClient
|
||||
Lines.Strings = (
|
||||
'Memo1'
|
||||
)
|
||||
ScrollBars = ssAutoBoth
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
|
||||
@ -4,7 +4,8 @@ LazarusResources.Add('TForm2','FORMDATA',[
|
||||
'TPF0'#6'TForm2'#5'Form2'#4'Left'#3'"'#1#6'Height'#3','#1#3'Top'#3#161#0#5'Wi'
|
||||
+'dth'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'#1#7
|
||||
+'Caption'#6#12'Notes viewer'#12'ClientHeight'#3','#1#11'ClientWidth'#3#144#1
|
||||
+#6'OnShow'#7#8'FormShow'#0#5'TMemo'#5'Memo1'#6'Height'#3','#1#5'Width'#3#144
|
||||
+#1#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#5'Memo1'#0#8'TabOrder'#2#0#0
|
||||
+#0#0
|
||||
+#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.31'#0#5'TMemo'#5'Memo1'#4'Le'
|
||||
+'ft'#2#0#6'Height'#3','#1#3'Top'#2#0#5'Width'#3#144#1#5'Align'#7#8'alClient'
|
||||
+#13'Lines.Strings'#1#6#5'Memo1'#0#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'
|
||||
+#2#0#0#0#0
|
||||
]);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user