paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-25 13:35:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: Fix compilation of sample projects

Browse Source 
git-svn-id: trunk@52202 -
This commit is contained in:
wp 2016-04-15 20:08:58 +00:00
parent e8c2373bcd
commit acad841fe6
18 changed files with 116 additions and 231 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
components/lazreport/samples/Demo_CrossTab/project1.res
View File

Binary file not shown.

17
components/lazreport/samples/Demo_CrossTab/unit1.lfm
View File

@ -7,12 +7,12 @@ object Form1: TForm1
ClientHeight = 368 ClientHeight = 368
ClientWidth = 320 ClientWidth = 320
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.3' LCLVersion = '1.7'
object Button1: TButton object Button1: TButton
Left = 112 Left = 112
Height = 25 Height = 25
Top = 56 Top = 56
Width = 92 Width = 97
AutoSize = True AutoSize = True
Caption = 'Design report' Caption = 'Design report'
OnClick = Button1Click OnClick = Button1Click
@ -22,7 +22,7 @@ object Form1: TForm1
Left = 112 Left = 112
Height = 25 Height = 25
Top = 120 Top = 120
Width = 84 Width = 90
AutoSize = True AutoSize = True
Caption = 'Show report' Caption = 'Show report'
OnClick = Button2Click OnClick = Button2Click
@ -32,7 +32,7 @@ object Form1: TForm1
Left = 16 Left = 16
Height = 15 Height = 15
Top = 8 Top = 8
Width = 130 Width = 117
Caption = 'Croo-tab report demo' Caption = 'Croo-tab report demo'
ParentColor = False ParentColor = False
end end
@ -40,7 +40,7 @@ object Form1: TForm1
Left = 16 Left = 16
Height = 15 Height = 15
Top = 24 Top = 24
Width = 245 Width = 213
Caption = 'Report used standart demo from firebird' Caption = 'Report used standart demo from firebird'
ParentColor = False ParentColor = False
end end
@ -50,7 +50,6 @@ object Form1: TForm1
Name = 'CUST_NO' Name = 'CUST_NO'
DataType = ftInteger DataType = ftInteger
Precision = -1 Precision = -1
Size = 0
end end
item item
Name = 'CUSTOMER' Name = 'CUSTOMER'
@ -62,7 +61,6 @@ object Form1: TForm1
Name = 'ORDER_YEAR' Name = 'ORDER_YEAR'
DataType = ftSmallint DataType = ftSmallint
Precision = -1 Precision = -1
Size = 0
end end
item item
Name = 'TOTAL_VALUE' Name = 'TOTAL_VALUE'
@ -83,6 +81,7 @@ object Form1: TForm1
' inner join CUSTOMER on (CUSTOMER.CUST_NO = SALES.CUST_NO)' ' inner join CUSTOMER on (CUSTOMER.CUST_NO = SALES.CUST_NO)'
'' ''
) )
Options = []
Params = <> Params = <>
left = 24 left = 24
top = 288 top = 288
@ -90,11 +89,12 @@ object Form1: TForm1
object SQLTransaction1: TSQLTransaction object SQLTransaction1: TSQLTransaction
Active = False Active = False
Database = IBConnection1 Database = IBConnection1
Options = []
left = 56 left = 56
top = 248 top = 248
end end
object IBConnection1: TIBConnection object IBConnection1: TIBConnection
Connected = True Connected = False
LoginPrompt = False LoginPrompt = False
DatabaseName = 'employee' DatabaseName = 'employee'
KeepConnection = False KeepConnection = False
@ -103,6 +103,7 @@ object Form1: TForm1
UserName = 'sysdba' UserName = 'sysdba'
CharSet = 'utf8' CharSet = 'utf8'
HostName = '127.0.0.1' HostName = '127.0.0.1'
Options = []
left = 24 left = 24
top = 248 top = 248
end end

5
components/lazreport/samples/Demo_CrossTab/unit1.pas
View File

@ -5,7 +5,7 @@ unit Unit1;
interface interface
uses uses
Classes, SysUtils, FileUtil, LR_Class, LR_Desgn, lr_CrossTab, Forms, Controls, Classes, SysUtils, LR_Class, LR_Desgn, lr_CrossTab, Forms, Controls,
Graphics, Dialogs, StdCtrls, sqldb, IBConnection; Graphics, Dialogs, StdCtrls, sqldb, IBConnection;
type type
@ -39,6 +39,9 @@ implementation
{$R *.lfm} {$R *.lfm}
uses
LazFileUtils, LazUtf8;
{ TForm1 } { TForm1 }
procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject);

BIN
components/lazreport/samples/detail_reports/project1.res
View File

Binary file not shown.

46
components/lazreport/samples/detail_reports/unit1.lfm
View File

@ -6,16 +6,16 @@ object Form1: TForm1
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 325 ClientHeight = 325
ClientWidth = 482 ClientWidth = 482
LCLVersion = '1.3' LCLVersion = '1.7'
object Button1: TButton object Button1: TButton
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = CheckBox2 AnchorSideTop.Control = CheckBox2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 191 Left = 193
Height = 33 Height = 25
Top = 64 Top = 56
Width = 100 Width = 97
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Simple report' Caption = 'Simple report'
@ -26,9 +26,9 @@ object Form1: TForm1
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 6 Left = 6
Height = 23 Height = 19
Top = 6 Top = 6
Width = 119 Width = 97
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Show designer' Caption = 'Show designer'
TabOrder = 1 TabOrder = 1
@ -38,10 +38,10 @@ object Form1: TForm1
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Button1 AnchorSideTop.Control = Button1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 130 Left = 144
Height = 33 Height = 25
Top = 103 Top = 87
Width = 222 Width = 195
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Report with SQL DB and Firebird' Caption = 'Report with SQL DB and Firebird'
@ -53,9 +53,9 @@ object Form1: TForm1
AnchorSideTop.Control = CheckBox1 AnchorSideTop.Control = CheckBox1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 19
Top = 35 Top = 31
Width = 117 Width = 98
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Modal preview' Caption = 'Modal preview'
Checked = True Checked = True
@ -68,10 +68,10 @@ object Form1: TForm1
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Button2 AnchorSideTop.Control = Button2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 181 Left = 186
Height = 33 Height = 25
Top = 142 Top = 118
Width = 120 Width = 111
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Report with DBF' Caption = 'Report with DBF'
@ -83,10 +83,10 @@ object Form1: TForm1
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Button3 AnchorSideTop.Control = Button3
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 123 Left = 138
Height = 33 Height = 25
Top = 181 Top = 149
Width = 236 Width = 207
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Import template from spreadsheet' Caption = 'Import template from spreadsheet'
@ -123,12 +123,14 @@ object Form1: TForm1
UserName = 'sysdba' UserName = 'sysdba'
CharSet = 'UTF8' CharSet = 'UTF8'
HostName = '127.0.0.1' HostName = '127.0.0.1'
Options = []
left = 424 left = 424
top = 88 top = 88
end end
object SQLTransaction1: TSQLTransaction object SQLTransaction1: TSQLTransaction
Active = False Active = False
Database = IBConnection1 Database = IBConnection1
Options = []
left = 424 left = 424
top = 133 top = 133
end end

4
components/lazreport/samples/detail_reports/unit1.pas
View File

@ -5,7 +5,7 @@ unit Unit1;
interface interface
uses uses
Classes, SysUtils, FileUtil, LR_Class, LR_Desgn, LR_IBConnection, lrTDbfData, Classes, SysUtils, LR_Class, LR_Desgn, LR_IBConnection, lrTDbfData,
lrOfficeImport, Forms, Controls, Graphics, Dialogs, StdCtrls, IBConnection, lrOfficeImport, Forms, Controls, Graphics, Dialogs, StdCtrls, IBConnection,
sqldb; sqldb;
@ -47,7 +47,7 @@ var
Form1: TForm1; Form1: TForm1;
implementation implementation
uses fpsallformats; uses fpsallformats, LazUtf8, LazFileUtils;
{$R *.lfm} {$R *.lfm}

3
components/lazreport/samples/editor/calleditorwithpkg.lpi
View File

@ -26,7 +26,6 @@
</Target> </Target>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<CompileReasons Run="False"/> <CompileReasons Run="False"/>
</CompilerOptions> </CompilerOptions>
@ -81,7 +80,6 @@
<ComponentName Value="frmMain"/> <ComponentName Value="frmMain"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="maincalleditor"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="custompreview.pas"/> <Filename Value="custompreview.pas"/>
@ -98,7 +96,6 @@
</Target> </Target>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<CompileReasons Run="False"/> <CompileReasons Run="False"/>
</CompilerOptions> </CompilerOptions>

BIN
components/lazreport/samples/editor/calleditorwithpkg.res
View File

Binary file not shown.

67
components/lazreport/samples/editor/maincalleditor.lfm
View File

@ -5,20 +5,20 @@ object frmMain: TfrmMain
Width = 828 Width = 828
ActiveControl = Panel1 ActiveControl = Panel1
Caption = 'LazReport Test Suite' Caption = 'LazReport Test Suite'
ClientHeight = 526 ClientHeight = 525
ClientWidth = 828 ClientWidth = 828
Font.Name = 'Sans' Font.Name = 'Sans'
Menu = MainMenu1 Menu = MainMenu1
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = frmMainCreate OnCreate = frmMainCreate
ShowHint = True ShowHint = True
LCLVersion = '1.3' LCLVersion = '1.7'
object lblIndex: TLabel object lblIndex: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = grid AnchorSideBottom.Control = grid
Left = 6 Left = 6
Height = 17 Height = 18
Top = 100 Top = 98
Width = 36 Width = 36
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -29,10 +29,10 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = grid AnchorSideBottom.Control = grid
Left = 751 Left = 744
Height = 17 Height = 18
Top = 100 Top = 98
Width = 71 Width = 78
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Expression' Caption = 'Expression'
@ -40,8 +40,8 @@ object frmMain: TfrmMain
end end
object sbar: TStatusBar object sbar: TStatusBar
Left = 0 Left = 0
Height = 19 Height = 23
Top = 507 Top = 502
Width = 828 Width = 828
Panels = < Panels = <
item item
@ -57,12 +57,12 @@ object frmMain: TfrmMain
AnchorSideRight.Control = lblExpr AnchorSideRight.Control = lblExpr
AnchorSideBottom.Control = grid AnchorSideBottom.Control = grid
Left = 48 Left = 48
Height = 27 Height = 26
Top = 90 Top = 90
Width = 697 Width = 690
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 18
OnSelect = comboIndexSelect OnSelect = comboIndexSelect
TabOrder = 2 TabOrder = 2
end end
@ -73,8 +73,8 @@ object frmMain: TfrmMain
AnchorSideRight.Control = grid AnchorSideRight.Control = grid
AnchorSideBottom.Control = sbar AnchorSideBottom.Control = sbar
Left = 0 Left = 0
Height = 384 Height = 380
Top = 123 Top = 122
Width = 204 Width = 204
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
Color = clMoneyGreen Color = clMoneyGreen
@ -92,8 +92,8 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = sbar AnchorSideBottom.Control = sbar
Left = 0 Left = 0
Height = 384 Height = 380
Top = 123 Top = 122
Width = 828 Width = 828
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Color = clWhite Color = clWhite
@ -124,14 +124,14 @@ object frmMain: TfrmMain
Left = 6 Left = 6
Height = 33 Height = 33
Top = 6 Top = 6
Width = 118 Width = 116
Action = accNewReport Action = accNewReport
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 0 TabOrder = 0
end end
object btnOpenReport: TButton object btnOpenReport: TButton
Left = 130 Left = 128
Height = 33 Height = 33
Top = 6 Top = 6
Width = 123 Width = 123
@ -141,27 +141,27 @@ object frmMain: TfrmMain
TabOrder = 2 TabOrder = 2
end end
object btnEditReport: TButton object btnEditReport: TButton
Left = 259 Left = 257
Height = 33 Height = 33
Top = 6 Top = 6
Width = 119 Width = 113
Action = accEditReport Action = accEditReport
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 3 TabOrder = 3
end end
object btnPreviewReport: TButton object btnPreviewReport: TButton
Left = 384 Left = 376
Height = 33 Height = 33
Top = 6 Top = 6
Width = 147 Width = 156
Action = accPreviewReport Action = accPreviewReport
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 4 TabOrder = 4
end end
object btnPrintReport: TButton object btnPrintReport: TButton
Left = 537 Left = 538
Height = 33 Height = 33
Top = 6 Top = 6
Width = 134 Width = 134
@ -171,10 +171,10 @@ object frmMain: TfrmMain
TabOrder = 5 TabOrder = 5
end end
object btnCustomPreview: TButton object btnCustomPreview: TButton
Left = 677 Left = 678
Height = 33 Height = 33
Top = 6 Top = 6
Width = 145 Width = 144
Action = accCustomPreview Action = accCustomPreview
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -185,7 +185,7 @@ object frmMain: TfrmMain
Left = 6 Left = 6
Height = 33 Height = 33
Top = 45 Top = 45
Width = 118 Width = 116
Action = accPrintGrid Action = accPrintGrid
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -193,7 +193,7 @@ object frmMain: TfrmMain
end end
object btnComposite: TButton object btnComposite: TButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 130 Left = 128
Height = 33 Height = 33
Top = 45 Top = 45
Width = 123 Width = 123
@ -205,20 +205,20 @@ object frmMain: TfrmMain
object btnImageList: TButton object btnImageList: TButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 259 Left = 257
Height = 33 Height = 33
Top = 45 Top = 45
Width = 119 Width = 113
Action = accThumbnails Action = accThumbnails
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 7 TabOrder = 7
end end
object btnMasterDetail: TToggleBox object btnMasterDetail: TToggleBox
Left = 384 Left = 376
Height = 33 Height = 33
Top = 45 Top = 45
Width = 147 Width = 156
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Master-Detail Test' Caption = 'Master-Detail Test'
@ -226,7 +226,7 @@ object frmMain: TfrmMain
TabOrder = 9 TabOrder = 9
end end
object btnExportLast: TButton object btnExportLast: TButton
Left = 537 Left = 538
Height = 33 Height = 33
Top = 45 Top = 45
Width = 134 Width = 134
@ -414,6 +414,7 @@ object frmMain: TfrmMain
Font.Name = 'Sans' Font.Name = 'Sans'
TitleFont.Name = 'Sans' TitleFont.Name = 'Sans'
Caption = 'Grid' Caption = 'Grid'
PrinterIndex = -1
ShowCaption = True ShowCaption = True
left = 352 left = 352
top = 248 top = 248

2
components/lazreport/samples/editor/maincalleditor.pas
View File

@ -172,7 +172,7 @@ var
implementation implementation
uses gettext,translations; uses gettext,translations, lazutf8;
{$R *.lfm} {$R *.lfm}

152
components/lazreport/samples/enduser_reports/sql_demo/unit1.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 439 ClientHeight = 439
ClientWidth = 515 ClientWidth = 515
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.1' LCLVersion = '1.7'
object ListBox1: TListBox object ListBox1: TListBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
@ -17,22 +17,21 @@ object Form1: TForm1
Left = 6 Left = 6
Height = 427 Height = 427
Top = 6 Top = 6
Width = 386 Width = 392
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 0
ScrollWidth = 384 ScrollWidth = 384
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
object Button1: TButton object Button1: TButton
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 398 Left = 404
Height = 27 Height = 25
Top = 6 Top = 6
Width = 111 Width = 105
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -46,10 +45,10 @@ object Form1: TForm1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Button1 AnchorSideRight.Control = Button1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 398 Left = 404
Height = 27 Height = 25
Top = 39 Top = 37
Width = 111 Width = 105
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -63,10 +62,10 @@ object Form1: TForm1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Button1 AnchorSideRight.Control = Button1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 398 Left = 404
Height = 27 Height = 25
Top = 72 Top = 68
Width = 111 Width = 105
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -78,6 +77,7 @@ object Form1: TForm1
Active = False Active = False
Action = caNone Action = caNone
Database = IBConnection1 Database = IBConnection1
Options = []
left = 56 left = 56
top = 15 top = 15
end end
@ -91,6 +91,7 @@ object Form1: TForm1
UserName = 'sysdba' UserName = 'sysdba'
HostName = '172.16.1.1' HostName = '172.16.1.1'
LogEvents = [] LogEvents = []
Options = []
left = 24 left = 24
top = 15 top = 15
end end
@ -109,129 +110,6 @@ object Form1: TForm1
DataType = dtDataSet DataType = dtDataSet
left = 136 left = 136
top = 88 top = 88
ReportForm = {
19000000
}
end
object frDesigner1: TfrDesigner
left = 176
top = 87
end
end
object Form1: TForm1
Left = 584
Height = 439
Top = 275
Width = 515
Caption = 'Report list'
ClientHeight = 439
ClientWidth = 515
OnCreate = FormCreate
LCLVersion = '1.1'
object ListBox1: TListBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Button1
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 427
Top = 6
Width = 386
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
ScrollWidth = 384
TabOrder = 0
TopIndex = -1
end
object Button1: TButton
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 398
Height = 27
Top = 6
Width = 111
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Refresh reports'
OnClick = Button1Click
TabOrder = 1
end
object Button2: TButton
AnchorSideLeft.Control = Button1
AnchorSideTop.Control = Button1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Button1
AnchorSideRight.Side = asrBottom
Left = 398
Height = 27
Top = 39
Width = 111
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Show report'
OnClick = Button2Click
TabOrder = 2
end
object Button3: TButton
AnchorSideLeft.Control = Button1
AnchorSideTop.Control = Button2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Button1
AnchorSideRight.Side = asrBottom
Left = 398
Height = 27
Top = 72
Width = 111
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Design report'
OnClick = Button3Click
TabOrder = 3
end
object SQLTransaction1: TSQLTransaction
Active = False
Action = caNone
Database = IBConnection1
left = 56
top = 15
end
object IBConnection1: TIBConnection
Connected = False
LoginPrompt = False
DatabaseName = 'employee.fdb'
KeepConnection = False
Password = 'masterkey'
Transaction = SQLTransaction1
UserName = 'sysdba'
HostName = '172.16.1.1'
LogEvents = []
left = 24
top = 15
end
object LR_IBConnection1: TLR_IBConnection
left = 24
top = 87
end
object LRDialogControls1: TLRDialogControls
left = 56
top = 87
end
object frReport1: TfrReport
InitialZoom = pzDefault
Options = []
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet
left = 136
top = 88
ReportForm = {
19000000
}
end end
object frDesigner1: TfrDesigner object frDesigner1: TfrDesigner
left = 176 left = 176

5
components/lazreport/samples/enduser_reports/sql_demo/unit1.pas
View File

@ -5,7 +5,7 @@ unit Unit1;
interface interface
uses uses
Classes, SysUtils, FileUtil, LR_PQConnection, LR_IBConnection, Classes, SysUtils, LR_PQConnection, LR_IBConnection,
LRDialogControls, LR_View, LR_Class, LR_Desgn, Forms, Controls, Graphics, LRDialogControls, LR_View, LR_Class, LR_Desgn, Forms, Controls, Graphics,
Dialogs, StdCtrls, sqldb, IBConnection; Dialogs, StdCtrls, sqldb, IBConnection;
@ -43,6 +43,9 @@ implementation
{$R *.lfm} {$R *.lfm}
uses
LazFileUtils;
{ TForm1 } { TForm1 }
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);

BIN
components/lazreport/samples/enduser_reports/test_lr_formstorage/project1.res
View File

Binary file not shown.

18
components/lazreport/samples/enduser_reports/test_lr_formstorage/unit1.lfm
View File

@ -6,16 +6,16 @@ object Form1: TForm1
Caption = 'Test form storage' Caption = 'Test form storage'
ClientHeight = 240 ClientHeight = 240
ClientWidth = 320 ClientWidth = 320
LCLVersion = '1.3' LCLVersion = '1.7'
object Button1: TButton object Button1: TButton
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 113 Left = 112
Height = 31 Height = 25
Top = 105 Top = 108
Width = 94 Width = 97
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Design report' Caption = 'Design report'
@ -27,10 +27,10 @@ object Form1: TForm1
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Button1 AnchorSideTop.Control = Button1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 116 Left = 115
Height = 31 Height = 25
Top = 142 Top = 139
Width = 89 Width = 90
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Show report' Caption = 'Show report'

5
components/lazreport/samples/enduser_reports/test_lr_formstorage/unit1.pas
View File

@ -5,7 +5,7 @@ unit Unit1;
interface interface
uses uses
Classes, SysUtils, FileUtil, LR_Class, LR_Desgn, LRDialogControls, Forms, Classes, SysUtils, LR_Class, LR_Desgn, LRDialogControls, Forms,
Controls, Graphics, Dialogs, StdCtrls; Controls, Graphics, Dialogs, StdCtrls;
type type
@ -33,6 +33,9 @@ implementation
{$R *.lfm} {$R *.lfm}
uses
lazfileutils, lazutf8;
{ TForm1 } { TForm1 }
procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject);

17
components/lazreport/samples/report_url/unit1.lfm
View File

@ -7,14 +7,14 @@ object Form1: TForm1
ClientHeight = 240 ClientHeight = 240
ClientWidth = 320 ClientWidth = 320
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.1' LCLVersion = '1.7'
object Button1: TButton object Button1: TButton
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 118 Left = 115
Height = 27 Height = 25
Top = 96 Top = 96
Width = 85 Width = 90
AutoSize = True AutoSize = True
Caption = 'Show Demo' Caption = 'Show Demo'
OnClick = Button1Click OnClick = Button1Click
@ -23,10 +23,10 @@ object Form1: TForm1
object Button2: TButton object Button2: TButton
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 123 Left = 120
Height = 27 Height = 25
Top = 136 Top = 136
Width = 74 Width = 81
AutoSize = True AutoSize = True
Caption = 'Edit Demo' Caption = 'Edit Demo'
OnClick = Button2Click OnClick = Button2Click
@ -42,9 +42,6 @@ object Form1: TForm1
OnMouseOverObject = frReport1MouseOverObject OnMouseOverObject = frReport1MouseOverObject
left = 24 left = 24
top = 17 top = 17
ReportForm = {
1A000000
}
end end
object frDesigner1: TfrDesigner object frDesigner1: TfrDesigner
left = 72 left = 72

4
components/lazreport/samples/report_url/unit1.pas
View File

@ -5,7 +5,7 @@ unit Unit1;
interface interface
uses uses
Classes, SysUtils, FileUtil, LR_Class, LR_Desgn, Forms, Controls, Graphics, Classes, SysUtils, LR_Class, LR_Desgn, Forms, Controls, Graphics,
Dialogs, StdCtrls; Dialogs, StdCtrls;
type type
@ -33,7 +33,7 @@ var
implementation implementation
uses LazUTF8; uses LazUTF8, LazFileUtils;
{$R *.lfm} {$R *.lfm}

2
components/lazreport/samples/userds/unit2.pas
View File

@ -31,7 +31,7 @@ implementation
procedure TForm2.FormShow(Sender: TObject); procedure TForm2.FormShow(Sender: TObject);
begin begin
memo1.lines.LoadFromFile(UTF8ToSys('notes.txt')); memo1.lines.LoadFromFile('notes.txt');
end; end;
end. end.