* Fix registering custom formscomponents/customform/custforms.pp

git-svn-id: trunk@60393 -

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);

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
+        '2'   white           150%                full
-        '3'   white           200%*Ratio          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

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

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"/>

components/sqldb/sqldblaz.pas

@@ -8,7 +8,8 @@ unit SQLDBLaz;
 interface
 
 uses
-  registersqldb, SQLStringsPropertyEditorDlg, LazarusPackageIntf;
+  registersqldb, SQLStringsPropertyEditorDlg, frmtypesafeaccess, 
+  LazarusPackageIntf;
 
 implementation
 

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;

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>