diff --git a/components/lazreport/samples/Demo_CrossTab/project1.res b/components/lazreport/samples/Demo_CrossTab/project1.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/components/lazreport/samples/Demo_CrossTab/project1.res and b/components/lazreport/samples/Demo_CrossTab/project1.res differ diff --git a/components/lazreport/samples/Demo_CrossTab/unit1.lfm b/components/lazreport/samples/Demo_CrossTab/unit1.lfm index 3c7df0cfc4..52b149e8a2 100644 --- a/components/lazreport/samples/Demo_CrossTab/unit1.lfm +++ b/components/lazreport/samples/Demo_CrossTab/unit1.lfm @@ -7,12 +7,12 @@ object Form1: TForm1 ClientHeight = 368 ClientWidth = 320 OnCreate = FormCreate - LCLVersion = '1.3' + LCLVersion = '1.7' object Button1: TButton Left = 112 Height = 25 Top = 56 - Width = 92 + Width = 97 AutoSize = True Caption = 'Design report' OnClick = Button1Click @@ -22,7 +22,7 @@ object Form1: TForm1 Left = 112 Height = 25 Top = 120 - Width = 84 + Width = 90 AutoSize = True Caption = 'Show report' OnClick = Button2Click @@ -32,7 +32,7 @@ object Form1: TForm1 Left = 16 Height = 15 Top = 8 - Width = 130 + Width = 117 Caption = 'Croo-tab report demo' ParentColor = False end @@ -40,7 +40,7 @@ object Form1: TForm1 Left = 16 Height = 15 Top = 24 - Width = 245 + Width = 213 Caption = 'Report used standart demo from firebird' ParentColor = False end @@ -50,7 +50,6 @@ object Form1: TForm1 Name = 'CUST_NO' DataType = ftInteger Precision = -1 - Size = 0 end item Name = 'CUSTOMER' @@ -62,7 +61,6 @@ object Form1: TForm1 Name = 'ORDER_YEAR' DataType = ftSmallint Precision = -1 - Size = 0 end item Name = 'TOTAL_VALUE' @@ -83,6 +81,7 @@ object Form1: TForm1 ' inner join CUSTOMER on (CUSTOMER.CUST_NO = SALES.CUST_NO)' '' ) + Options = [] Params = <> left = 24 top = 288 @@ -90,11 +89,12 @@ object Form1: TForm1 object SQLTransaction1: TSQLTransaction Active = False Database = IBConnection1 + Options = [] left = 56 top = 248 end object IBConnection1: TIBConnection - Connected = True + Connected = False LoginPrompt = False DatabaseName = 'employee' KeepConnection = False @@ -103,6 +103,7 @@ object Form1: TForm1 UserName = 'sysdba' CharSet = 'utf8' HostName = '127.0.0.1' + Options = [] left = 24 top = 248 end diff --git a/components/lazreport/samples/Demo_CrossTab/unit1.pas b/components/lazreport/samples/Demo_CrossTab/unit1.pas index 55460c4038..207648ece5 100644 --- a/components/lazreport/samples/Demo_CrossTab/unit1.pas +++ b/components/lazreport/samples/Demo_CrossTab/unit1.pas @@ -5,7 +5,7 @@ unit Unit1; interface 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; type @@ -39,6 +39,9 @@ implementation {$R *.lfm} +uses + LazFileUtils, LazUtf8; + { TForm1 } procedure TForm1.Button1Click(Sender: TObject); diff --git a/components/lazreport/samples/detail_reports/project1.res b/components/lazreport/samples/detail_reports/project1.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/components/lazreport/samples/detail_reports/project1.res and b/components/lazreport/samples/detail_reports/project1.res differ diff --git a/components/lazreport/samples/detail_reports/unit1.lfm b/components/lazreport/samples/detail_reports/unit1.lfm index a110a85b31..1e86d7b290 100644 --- a/components/lazreport/samples/detail_reports/unit1.lfm +++ b/components/lazreport/samples/detail_reports/unit1.lfm @@ -6,16 +6,16 @@ object Form1: TForm1 Caption = 'Form1' ClientHeight = 325 ClientWidth = 482 - LCLVersion = '1.3' + LCLVersion = '1.7' object Button1: TButton AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = CheckBox2 AnchorSideTop.Side = asrBottom - Left = 191 - Height = 33 - Top = 64 - Width = 100 + Left = 193 + Height = 25 + Top = 56 + Width = 97 AutoSize = True BorderSpacing.Top = 6 Caption = 'Simple report' @@ -26,9 +26,9 @@ object Form1: TForm1 AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner Left = 6 - Height = 23 + Height = 19 Top = 6 - Width = 119 + Width = 97 BorderSpacing.Around = 6 Caption = 'Show designer' TabOrder = 1 @@ -38,10 +38,10 @@ object Form1: TForm1 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Button1 AnchorSideTop.Side = asrBottom - Left = 130 - Height = 33 - Top = 103 - Width = 222 + Left = 144 + Height = 25 + Top = 87 + Width = 195 AutoSize = True BorderSpacing.Top = 6 Caption = 'Report with SQL DB and Firebird' @@ -53,9 +53,9 @@ object Form1: TForm1 AnchorSideTop.Control = CheckBox1 AnchorSideTop.Side = asrBottom Left = 6 - Height = 23 - Top = 35 - Width = 117 + Height = 19 + Top = 31 + Width = 98 BorderSpacing.Around = 6 Caption = 'Modal preview' Checked = True @@ -68,10 +68,10 @@ object Form1: TForm1 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Button2 AnchorSideTop.Side = asrBottom - Left = 181 - Height = 33 - Top = 142 - Width = 120 + Left = 186 + Height = 25 + Top = 118 + Width = 111 AutoSize = True BorderSpacing.Top = 6 Caption = 'Report with DBF' @@ -83,10 +83,10 @@ object Form1: TForm1 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Button3 AnchorSideTop.Side = asrBottom - Left = 123 - Height = 33 - Top = 181 - Width = 236 + Left = 138 + Height = 25 + Top = 149 + Width = 207 AutoSize = True BorderSpacing.Top = 6 Caption = 'Import template from spreadsheet' @@ -123,12 +123,14 @@ object Form1: TForm1 UserName = 'sysdba' CharSet = 'UTF8' HostName = '127.0.0.1' + Options = [] left = 424 top = 88 end object SQLTransaction1: TSQLTransaction Active = False Database = IBConnection1 + Options = [] left = 424 top = 133 end diff --git a/components/lazreport/samples/detail_reports/unit1.pas b/components/lazreport/samples/detail_reports/unit1.pas index 7e79851485..abe91c11f8 100644 --- a/components/lazreport/samples/detail_reports/unit1.pas +++ b/components/lazreport/samples/detail_reports/unit1.pas @@ -5,7 +5,7 @@ unit Unit1; interface 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, sqldb; @@ -47,7 +47,7 @@ var Form1: TForm1; implementation -uses fpsallformats; +uses fpsallformats, LazUtf8, LazFileUtils; {$R *.lfm} diff --git a/components/lazreport/samples/editor/calleditorwithpkg.lpi b/components/lazreport/samples/editor/calleditorwithpkg.lpi index 09d0c1ad02..ff8f32a6b1 100644 --- a/components/lazreport/samples/editor/calleditorwithpkg.lpi +++ b/components/lazreport/samples/editor/calleditorwithpkg.lpi @@ -26,7 +26,6 @@ - @@ -81,7 +80,6 @@ - @@ -98,7 +96,6 @@ - diff --git a/components/lazreport/samples/editor/calleditorwithpkg.res b/components/lazreport/samples/editor/calleditorwithpkg.res index e66ecf85fe..e1df0e994f 100644 Binary files a/components/lazreport/samples/editor/calleditorwithpkg.res and b/components/lazreport/samples/editor/calleditorwithpkg.res differ diff --git a/components/lazreport/samples/editor/maincalleditor.lfm b/components/lazreport/samples/editor/maincalleditor.lfm index 2350912f08..6e5a43f1c7 100644 --- a/components/lazreport/samples/editor/maincalleditor.lfm +++ b/components/lazreport/samples/editor/maincalleditor.lfm @@ -5,20 +5,20 @@ object frmMain: TfrmMain Width = 828 ActiveControl = Panel1 Caption = 'LazReport Test Suite' - ClientHeight = 526 + ClientHeight = 525 ClientWidth = 828 Font.Name = 'Sans' Menu = MainMenu1 OnCloseQuery = FormCloseQuery OnCreate = frmMainCreate ShowHint = True - LCLVersion = '1.3' + LCLVersion = '1.7' object lblIndex: TLabel AnchorSideLeft.Control = Owner AnchorSideBottom.Control = grid Left = 6 - Height = 17 - Top = 100 + Height = 18 + Top = 98 Width = 36 Anchors = [akLeft, akBottom] BorderSpacing.Around = 6 @@ -29,10 +29,10 @@ object frmMain: TfrmMain AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = grid - Left = 751 - Height = 17 - Top = 100 - Width = 71 + Left = 744 + Height = 18 + Top = 98 + Width = 78 Anchors = [akRight, akBottom] BorderSpacing.Around = 6 Caption = 'Expression' @@ -40,8 +40,8 @@ object frmMain: TfrmMain end object sbar: TStatusBar Left = 0 - Height = 19 - Top = 507 + Height = 23 + Top = 502 Width = 828 Panels = < item @@ -57,12 +57,12 @@ object frmMain: TfrmMain AnchorSideRight.Control = lblExpr AnchorSideBottom.Control = grid Left = 48 - Height = 27 + Height = 26 Top = 90 - Width = 697 + Width = 690 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 - ItemHeight = 0 + ItemHeight = 18 OnSelect = comboIndexSelect TabOrder = 2 end @@ -73,8 +73,8 @@ object frmMain: TfrmMain AnchorSideRight.Control = grid AnchorSideBottom.Control = sbar Left = 0 - Height = 384 - Top = 123 + Height = 380 + Top = 122 Width = 204 Anchors = [akTop, akLeft, akBottom] Color = clMoneyGreen @@ -92,8 +92,8 @@ object frmMain: TfrmMain AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = sbar Left = 0 - Height = 384 - Top = 123 + Height = 380 + Top = 122 Width = 828 Anchors = [akTop, akLeft, akRight, akBottom] Color = clWhite @@ -124,14 +124,14 @@ object frmMain: TfrmMain Left = 6 Height = 33 Top = 6 - Width = 118 + Width = 116 Action = accNewReport AutoSize = True BorderSpacing.Around = 6 TabOrder = 0 end object btnOpenReport: TButton - Left = 130 + Left = 128 Height = 33 Top = 6 Width = 123 @@ -141,27 +141,27 @@ object frmMain: TfrmMain TabOrder = 2 end object btnEditReport: TButton - Left = 259 + Left = 257 Height = 33 Top = 6 - Width = 119 + Width = 113 Action = accEditReport AutoSize = True BorderSpacing.Around = 6 TabOrder = 3 end object btnPreviewReport: TButton - Left = 384 + Left = 376 Height = 33 Top = 6 - Width = 147 + Width = 156 Action = accPreviewReport AutoSize = True BorderSpacing.Around = 6 TabOrder = 4 end object btnPrintReport: TButton - Left = 537 + Left = 538 Height = 33 Top = 6 Width = 134 @@ -171,10 +171,10 @@ object frmMain: TfrmMain TabOrder = 5 end object btnCustomPreview: TButton - Left = 677 + Left = 678 Height = 33 Top = 6 - Width = 145 + Width = 144 Action = accCustomPreview AutoSize = True BorderSpacing.Around = 6 @@ -185,7 +185,7 @@ object frmMain: TfrmMain Left = 6 Height = 33 Top = 45 - Width = 118 + Width = 116 Action = accPrintGrid AutoSize = True BorderSpacing.Around = 6 @@ -193,7 +193,7 @@ object frmMain: TfrmMain end object btnComposite: TButton AnchorSideTop.Side = asrBottom - Left = 130 + Left = 128 Height = 33 Top = 45 Width = 123 @@ -205,20 +205,20 @@ object frmMain: TfrmMain object btnImageList: TButton AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom - Left = 259 + Left = 257 Height = 33 Top = 45 - Width = 119 + Width = 113 Action = accThumbnails AutoSize = True BorderSpacing.Around = 6 TabOrder = 7 end object btnMasterDetail: TToggleBox - Left = 384 + Left = 376 Height = 33 Top = 45 - Width = 147 + Width = 156 AutoSize = True BorderSpacing.Around = 6 Caption = 'Master-Detail Test' @@ -226,7 +226,7 @@ object frmMain: TfrmMain TabOrder = 9 end object btnExportLast: TButton - Left = 537 + Left = 538 Height = 33 Top = 45 Width = 134 @@ -414,6 +414,7 @@ object frmMain: TfrmMain Font.Name = 'Sans' TitleFont.Name = 'Sans' Caption = 'Grid' + PrinterIndex = -1 ShowCaption = True left = 352 top = 248 diff --git a/components/lazreport/samples/editor/maincalleditor.pas b/components/lazreport/samples/editor/maincalleditor.pas index 3f8317315a..bc93b71b84 100644 --- a/components/lazreport/samples/editor/maincalleditor.pas +++ b/components/lazreport/samples/editor/maincalleditor.pas @@ -172,7 +172,7 @@ var implementation -uses gettext,translations; +uses gettext,translations, lazutf8; {$R *.lfm} diff --git a/components/lazreport/samples/enduser_reports/sql_demo/unit1.lfm b/components/lazreport/samples/enduser_reports/sql_demo/unit1.lfm index 86fa931378..4409a5ead0 100644 --- a/components/lazreport/samples/enduser_reports/sql_demo/unit1.lfm +++ b/components/lazreport/samples/enduser_reports/sql_demo/unit1.lfm @@ -7,7 +7,7 @@ object Form1: TForm1 ClientHeight = 439 ClientWidth = 515 OnCreate = FormCreate - LCLVersion = '1.1' + LCLVersion = '1.7' object ListBox1: TListBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner @@ -17,22 +17,21 @@ object Form1: TForm1 Left = 6 Height = 427 Top = 6 - Width = 386 + Width = 392 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 + Left = 404 + Height = 25 Top = 6 - Width = 111 + Width = 105 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Around = 6 @@ -46,10 +45,10 @@ object Form1: TForm1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Button1 AnchorSideRight.Side = asrBottom - Left = 398 - Height = 27 - Top = 39 - Width = 111 + Left = 404 + Height = 25 + Top = 37 + Width = 105 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 6 @@ -63,10 +62,10 @@ object Form1: TForm1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Button1 AnchorSideRight.Side = asrBottom - Left = 398 - Height = 27 - Top = 72 - Width = 111 + Left = 404 + Height = 25 + Top = 68 + Width = 105 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 6 @@ -78,6 +77,7 @@ object Form1: TForm1 Active = False Action = caNone Database = IBConnection1 + Options = [] left = 56 top = 15 end @@ -91,6 +91,7 @@ object Form1: TForm1 UserName = 'sysdba' HostName = '172.16.1.1' LogEvents = [] + Options = [] left = 24 top = 15 end @@ -109,129 +110,6 @@ object Form1: TForm1 DataType = dtDataSet left = 136 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 object frDesigner1: TfrDesigner left = 176 diff --git a/components/lazreport/samples/enduser_reports/sql_demo/unit1.pas b/components/lazreport/samples/enduser_reports/sql_demo/unit1.pas index f755dea1ca..fcbd68eab3 100644 --- a/components/lazreport/samples/enduser_reports/sql_demo/unit1.pas +++ b/components/lazreport/samples/enduser_reports/sql_demo/unit1.pas @@ -5,7 +5,7 @@ unit Unit1; interface uses - Classes, SysUtils, FileUtil, LR_PQConnection, LR_IBConnection, + Classes, SysUtils, LR_PQConnection, LR_IBConnection, LRDialogControls, LR_View, LR_Class, LR_Desgn, Forms, Controls, Graphics, Dialogs, StdCtrls, sqldb, IBConnection; @@ -43,6 +43,9 @@ implementation {$R *.lfm} +uses + LazFileUtils; + { TForm1 } procedure TForm1.FormCreate(Sender: TObject); diff --git a/components/lazreport/samples/enduser_reports/test_lr_formstorage/project1.res b/components/lazreport/samples/enduser_reports/test_lr_formstorage/project1.res index 7c6cf3e4be..e994dfa65a 100644 Binary files a/components/lazreport/samples/enduser_reports/test_lr_formstorage/project1.res and b/components/lazreport/samples/enduser_reports/test_lr_formstorage/project1.res differ diff --git a/components/lazreport/samples/enduser_reports/test_lr_formstorage/unit1.lfm b/components/lazreport/samples/enduser_reports/test_lr_formstorage/unit1.lfm index cb889bb687..c470f85799 100644 --- a/components/lazreport/samples/enduser_reports/test_lr_formstorage/unit1.lfm +++ b/components/lazreport/samples/enduser_reports/test_lr_formstorage/unit1.lfm @@ -6,16 +6,16 @@ object Form1: TForm1 Caption = 'Test form storage' ClientHeight = 240 ClientWidth = 320 - LCLVersion = '1.3' + LCLVersion = '1.7' object Button1: TButton AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Owner AnchorSideTop.Side = asrCenter - Left = 113 - Height = 31 - Top = 105 - Width = 94 + Left = 112 + Height = 25 + Top = 108 + Width = 97 AutoSize = True BorderSpacing.Around = 6 Caption = 'Design report' @@ -27,10 +27,10 @@ object Form1: TForm1 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Button1 AnchorSideTop.Side = asrBottom - Left = 116 - Height = 31 - Top = 142 - Width = 89 + Left = 115 + Height = 25 + Top = 139 + Width = 90 AutoSize = True BorderSpacing.Around = 6 Caption = 'Show report' diff --git a/components/lazreport/samples/enduser_reports/test_lr_formstorage/unit1.pas b/components/lazreport/samples/enduser_reports/test_lr_formstorage/unit1.pas index 7c0247d6aa..31a333acef 100644 --- a/components/lazreport/samples/enduser_reports/test_lr_formstorage/unit1.pas +++ b/components/lazreport/samples/enduser_reports/test_lr_formstorage/unit1.pas @@ -5,7 +5,7 @@ unit Unit1; interface uses - Classes, SysUtils, FileUtil, LR_Class, LR_Desgn, LRDialogControls, Forms, + Classes, SysUtils, LR_Class, LR_Desgn, LRDialogControls, Forms, Controls, Graphics, Dialogs, StdCtrls; type @@ -33,6 +33,9 @@ implementation {$R *.lfm} +uses + lazfileutils, lazutf8; + { TForm1 } procedure TForm1.Button1Click(Sender: TObject); diff --git a/components/lazreport/samples/report_url/unit1.lfm b/components/lazreport/samples/report_url/unit1.lfm index 41a18585bb..93560da8ef 100644 --- a/components/lazreport/samples/report_url/unit1.lfm +++ b/components/lazreport/samples/report_url/unit1.lfm @@ -7,14 +7,14 @@ object Form1: TForm1 ClientHeight = 240 ClientWidth = 320 OnCreate = FormCreate - LCLVersion = '1.1' + LCLVersion = '1.7' object Button1: TButton AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter - Left = 118 - Height = 27 + Left = 115 + Height = 25 Top = 96 - Width = 85 + Width = 90 AutoSize = True Caption = 'Show Demo' OnClick = Button1Click @@ -23,10 +23,10 @@ object Form1: TForm1 object Button2: TButton AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter - Left = 123 - Height = 27 + Left = 120 + Height = 25 Top = 136 - Width = 74 + Width = 81 AutoSize = True Caption = 'Edit Demo' OnClick = Button2Click @@ -42,9 +42,6 @@ object Form1: TForm1 OnMouseOverObject = frReport1MouseOverObject left = 24 top = 17 - ReportForm = { - 1A000000 - } end object frDesigner1: TfrDesigner left = 72 diff --git a/components/lazreport/samples/report_url/unit1.pas b/components/lazreport/samples/report_url/unit1.pas index 7115e612c9..a4e20e3451 100644 --- a/components/lazreport/samples/report_url/unit1.pas +++ b/components/lazreport/samples/report_url/unit1.pas @@ -5,7 +5,7 @@ unit Unit1; interface uses - Classes, SysUtils, FileUtil, LR_Class, LR_Desgn, Forms, Controls, Graphics, + Classes, SysUtils, LR_Class, LR_Desgn, Forms, Controls, Graphics, Dialogs, StdCtrls; type @@ -33,7 +33,7 @@ var implementation -uses LazUTF8; +uses LazUTF8, LazFileUtils; {$R *.lfm} diff --git a/components/lazreport/samples/userds/unit2.pas b/components/lazreport/samples/userds/unit2.pas index 4a605734cb..380de5a0d7 100644 --- a/components/lazreport/samples/userds/unit2.pas +++ b/components/lazreport/samples/userds/unit2.pas @@ -31,7 +31,7 @@ implementation procedure TForm2.FormShow(Sender: TObject); begin - memo1.lines.LoadFromFile(UTF8ToSys('notes.txt')); + memo1.lines.LoadFromFile('notes.txt'); end; end.