diff --git a/components/customform/custforms.pp b/components/customform/custforms.pp
index c147002d20..67f3b87029 100644
--- a/components/customform/custforms.pp
+++ b/components/customform/custforms.pp
@@ -97,7 +97,6 @@ begin
Inherited Create;
FFormDescr:=ADescr;
ResourceClass:=FFormDescr.FFormClass;
- FormEditingHook.RegisterDesignerBaseClass(FFormDescr.FFormClass);
Name:=FFormDescr.Caption;
RequiredPackages:=ADescr.LazPackage;
//Writeln('TCustomFormFileDescriptor.Create RequiredPackages=',RequiredPackages);
diff --git a/components/lazreport/source/barcode.pas b/components/lazreport/source/barcode.pas
index eee4e08a34..78a7bea3f9 100644
--- a/components/lazreport/source/barcode.pas
+++ b/components/lazreport/source/barcode.pas
@@ -296,8 +296,8 @@ calculate the width and the linetype of a sigle bar
------------------------------------------------------------------
'0' white 100% full
'1' white 100%*Ratio full
- '2' white 150% full
- '3' white 200%Ratio full
+ '2' white 150%*Ratio full
+ '3' white 200%*Ratio full
'5' black 100% full
'6' black 100%*Ratio full
'7' black 150%*Ratio full
@@ -1463,7 +1463,6 @@ begin
for i := 1 to Length(Data) do // examine the pattern string
begin
OneBarProps(Data[i], w, lt);
- Writeln('BC : ',w,' : ',lt,' (',Data[i],')');
{
case data[i] of
diff --git a/components/printers/samples/dialogs/frmselprinter.lfm b/components/printers/samples/dialogs/frmselprinter.lfm
index 10a8fa1b01..a473380eb0 100644
--- a/components/printers/samples/dialogs/frmselprinter.lfm
+++ b/components/printers/samples/dialogs/frmselprinter.lfm
@@ -1,7 +1,7 @@
object Form1: TForm1
Left = 106
Height = 787
- Top = 142
+ Top = 121
Width = 489
ActiveControl = Button7
Caption = 'Form1'
@@ -59,7 +59,7 @@ object Form1: TForm1
MaxSize = 350
ReadOnly = True
Title.Caption = 'Value'
- Width = 347
+ Width = 345
end>
DefaultColWidth = 120
FixedCols = 0
@@ -71,7 +71,7 @@ object Form1: TForm1
OnSelectCell = SGridSelectCell
ColWidths = (
120
- 347
+ 345
)
end
object Button3: TButton
diff --git a/components/sqldb/sqldblaz.lpk b/components/sqldb/sqldblaz.lpk
index 9f462fd245..83e011e754 100644
--- a/components/sqldb/sqldblaz.lpk
+++ b/components/sqldb/sqldblaz.lpk
@@ -24,7 +24,7 @@
With the exception of the unit registersqldb, which is GPL-2. This unit contains code for the IDE and is usually not used by programs."/>
-
+
@@ -39,10 +39,6 @@ With the exception of the unit registersqldb, which is GPL-2. This unit contains
-
-
-
-
diff --git a/components/sqldb/sqldblaz.pas b/components/sqldb/sqldblaz.pas
index a26bdf6ac7..7ed720c96d 100644
--- a/components/sqldb/sqldblaz.pas
+++ b/components/sqldb/sqldblaz.pas
@@ -8,8 +8,7 @@ unit SQLDBLaz;
interface
uses
- registersqldb, SQLStringsPropertyEditorDlg, frmtypesafeaccess,
- LazarusPackageIntf;
+ registersqldb, SQLStringsPropertyEditorDlg, LazarusPackageIntf;
implementation
diff --git a/packager/pkgregisterbase.pas b/packager/pkgregisterbase.pas
index d9817192aa..1aaab23183 100644
--- a/packager/pkgregisterbase.pas
+++ b/packager/pkgregisterbase.pas
@@ -41,7 +41,7 @@ uses
{$ifdef mswindows}
ServiceManager,
{$endif}
- Classes, SysUtils, Process, DB, BufDataset, csvdataset, fpjsondataset, SimpleIPC, XMLConf, EventLog,
+ Classes, SysUtils, Process, DB, BufDataset, csvdataset, SimpleIPC, XMLConf, EventLog,
UTF8Process;
procedure RegisterFCLBaseComponents;
@@ -51,7 +51,7 @@ implementation
procedure RegisterDB;
begin
- RegisterComponents('Data Access',[TDatasource,TBufDataset, TCSVDataset, TExtJSJSONDataSet]); // this bites dbflaz
+ RegisterComponents('Data Access',[TDatasource,TBufDataset, TCSVDataset]); // this bites dbflaz
end;
procedure RegisterSimpleIPC;
diff --git a/tools/jsonviewer/jsonviewer.lpi b/tools/jsonviewer/jsonviewer.lpi
index 7c566c32c3..cfa9b97fc8 100644
--- a/tools/jsonviewer/jsonviewer.lpi
+++ b/tools/jsonviewer/jsonviewer.lpi
@@ -113,7 +113,6 @@
-