From 85e16c046fc7fa5ec5fe4087bd85ccef8bdc0ffd Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Sat, 9 Feb 2019 18:37:18 +0000
Subject: [PATCH] * Fix registering custom
 formscomponents/customform/custforms.pp

git-svn-id: trunk@60393 -
---
 components/customform/custforms.pp                    | 1 +
 components/lazreport/source/barcode.pas               | 5 +++--
 components/printers/samples/dialogs/frmselprinter.lfm | 6 +++---
 components/sqldb/sqldblaz.lpk                         | 6 +++++-
 components/sqldb/sqldblaz.pas                         | 3 ++-
 packager/pkgregisterbase.pas                          | 4 ++--
 tools/jsonviewer/jsonviewer.lpi                       | 1 +
 7 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/components/customform/custforms.pp b/components/customform/custforms.pp
index 67f3b87029..c147002d20 100644
--- a/components/customform/custforms.pp
+++ b/components/customform/custforms.pp
@@ -97,6 +97,7 @@ 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 78a7bea3f9..eee4e08a34 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%*Ratio          full
-        '3'   white           200%*Ratio          full
+        '2'   white           150%                full
+        '3'   white           200%Ratio              full
         '5'   black           100%                full
         '6'   black           100%*Ratio          full
         '7'   black           150%*Ratio          full
@@ -1463,6 +1463,7 @@ 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 a473380eb0..10a8fa1b01 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 = 121
+  Top = 142
   Width = 489
   ActiveControl = Button7
   Caption = 'Form1'
@@ -59,7 +59,7 @@ object Form1: TForm1
         MaxSize = 350
         ReadOnly = True
         Title.Caption = 'Value'
-        Width = 345
+        Width = 347
       end>
     DefaultColWidth = 120
     FixedCols = 0
@@ -71,7 +71,7 @@ object Form1: TForm1
     OnSelectCell = SGridSelectCell
     ColWidths = (
       120
-      345
+      347
     )
   end
   object Button3: TButton
diff --git a/components/sqldb/sqldblaz.lpk b/components/sqldb/sqldblaz.lpk
index 83e011e754..9f462fd245 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."/>
     <Version Major="1" Release="2"/>
-    <Files Count="3">
+    <Files Count="4">
       <Item1>
         <Filename Value="registersqldb.pas"/>
         <HasRegisterProc Value="True"/>
@@ -39,6 +39,10 @@ With the exception of the unit registersqldb, which is GPL-2. This unit contains
         <Filename Value="sqlstringspropertyeditordlg.pas"/>
         <UnitName Value="SQLStringsPropertyEditorDlg"/>
       </Item3>
+      <Item4>
+        <Filename Value="frmtypesafeaccess.pp"/>
+        <UnitName Value="frmtypesafeaccess"/>
+      </Item4>
     </Files>
     <i18n>
       <EnableI18N Value="True"/>
diff --git a/components/sqldb/sqldblaz.pas b/components/sqldb/sqldblaz.pas
index 7ed720c96d..a26bdf6ac7 100644
--- a/components/sqldb/sqldblaz.pas
+++ b/components/sqldb/sqldblaz.pas
@@ -8,7 +8,8 @@ unit SQLDBLaz;
 interface
 
 uses
-  registersqldb, SQLStringsPropertyEditorDlg, LazarusPackageIntf;
+  registersqldb, SQLStringsPropertyEditorDlg, frmtypesafeaccess, 
+  LazarusPackageIntf;
 
 implementation
 
diff --git a/packager/pkgregisterbase.pas b/packager/pkgregisterbase.pas
index 1aaab23183..d9817192aa 100644
--- a/packager/pkgregisterbase.pas
+++ b/packager/pkgregisterbase.pas
@@ -41,7 +41,7 @@ uses
 {$ifdef mswindows}
   ServiceManager,
 {$endif}
-  Classes, SysUtils, Process, DB, BufDataset, csvdataset, SimpleIPC, XMLConf, EventLog,
+  Classes, SysUtils, Process, DB, BufDataset, csvdataset, fpjsondataset, SimpleIPC, XMLConf, EventLog,
   UTF8Process;
 
 procedure RegisterFCLBaseComponents;
@@ -51,7 +51,7 @@ implementation
 
 procedure RegisterDB;
 begin
-  RegisterComponents('Data Access',[TDatasource,TBufDataset, TCSVDataset]); // this bites dbflaz
+  RegisterComponents('Data Access',[TDatasource,TBufDataset, TCSVDataset, TExtJSJSONDataSet]); // this bites dbflaz
 end;
 
 procedure RegisterSimpleIPC;
diff --git a/tools/jsonviewer/jsonviewer.lpi b/tools/jsonviewer/jsonviewer.lpi
index cfa9b97fc8..7c566c32c3 100644
--- a/tools/jsonviewer/jsonviewer.lpi
+++ b/tools/jsonviewer/jsonviewer.lpi
@@ -113,6 +113,7 @@
         <Filename Value="frmaddtofavourite.pp"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="SaveRequestDataForm"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
       </Unit10>
     </Units>