systools: Rearrange units and packages

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6159 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/systools/images/img-systools-general.txt

@@ -5,12 +5,10 @@ tstexceptionlog.png
 tstexpression.png
 tstexpressionedit.png
 tstfiletohtml.png
-tstgenerallog.png
 tstmaxicodebarcode.png
 tstnetconnection.png
 tstnetmessage.png
 tstnetperformance.png
-tstnteventlog.png
 tstnvbits.png
 tstnvcollection.png
 tstnvdictionary.png
@@ -23,6 +21,3 @@ tstnvtree.png
 tstpdf417barcode.png
 tstpnbarcode.png
 tstregex.png
-tstspawnapplication.png
-tstversioninfo.png
-tstwmdatacopy.png

components/systools/images/img-systools-win.txt

@@ -0,0 +1,5 @@
+tstgenerallog.png
+tstnteventlog.png
+tstspawnapplication.png
+tstversioninfo.png
+tstwmdatacopy.png

components/systools/images/make_res.bat

@@ -0,0 +1,3 @@
+lazres ..\source\general\design\streg.res        @img-systools-general.txt
+lazres ..\source\db\design\stregdb.res           @img-systools-db.txt
+lazres ..\source\windows_only\design\stregwin.res @img-systools-win.txt

components/systools/laz_systools.lpk

@@ -8,9 +8,9 @@
       <Version Value="11"/>
       <PathDelim Value="\"/>
       <SearchPaths>
-        <IncludeFiles Value="source\include;source\run"/>
-        <OtherUnitFiles Value="source\run"/>
-        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\run"/>
+        <IncludeFiles Value="source\include;source\general\run"/>
+        <OtherUnitFiles Value="source\general\run"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\general\run"/>
       </SearchPaths>
     </CompilerOptions>
     <Description Value="Lazarus port of TurboPower SysTools (Delphi version at https://sourceforge.net/projects/tpsystools/) - runtime package
@@ -20,23 +20,23 @@ SysTools is a library of utility routines and classes which  includes 1-D and 2-
     <Version Major="4" Release="4"/>
     <Files Count="60">
       <Item1>
-        <Filename Value="source\run\stbarc.pas"/>
+        <Filename Value="source\general\run\stbarc.pas"/>
         <UnitName Value="StBarC"/>
       </Item1>
       <Item2>
-        <Filename Value="source\run\stbase.pas"/>
+        <Filename Value="source\general\run\stbase.pas"/>
         <UnitName Value="StBase"/>
       </Item2>
       <Item3>
-        <Filename Value="source\run\stconst.pas"/>
+        <Filename Value="source\general\run\stconst.pas"/>
         <UnitName Value="StConst"/>
       </Item3>
       <Item4>
-        <Filename Value="source\run\stbarpn.pas"/>
+        <Filename Value="source\general\run\stbarpn.pas"/>
         <UnitName Value="StBarPN"/>
       </Item4>
       <Item5>
-        <Filename Value="source\run\ststrl.pas"/>
+        <Filename Value="source\general\run\ststrl.pas"/>
         <UnitName Value="StStrL"/>
       </Item5>
       <Item6>
@@ -44,219 +44,219 @@ SysTools is a library of utility routines and classes which  includes 1-D and 2-
         <Type Value="Include"/>
       </Item6>
       <Item7>
-        <Filename Value="source\run\st2dbarc.pas"/>
+        <Filename Value="source\general\run\st2dbarc.pas"/>
         <UnitName Value="St2DBarC"/>
       </Item7>
       <Item8>
-        <Filename Value="source\run\stdate.pas"/>
+        <Filename Value="source\general\run\stdate.pas"/>
         <UnitName Value="StDate"/>
       </Item8>
       <Item9>
-        <Filename Value="source\run\stutils.pas"/>
+        <Filename Value="source\general\run\stutils.pas"/>
         <UnitName Value="StUtils"/>
       </Item9>
       <Item10>
-        <Filename Value="source\run\stcrc.pas"/>
+        <Filename Value="source\general\run\stcrc.pas"/>
         <UnitName Value="StCRC"/>
       </Item10>
       <Item11>
-        <Filename Value="source\run\sthash.pas"/>
+        <Filename Value="source\general\run\sthash.pas"/>
         <UnitName Value="StHASH"/>
       </Item11>
       <Item12>
-        <Filename Value="source\run\sttohtml.pas"/>
+        <Filename Value="source\general\run\sttohtml.pas"/>
         <UnitName Value="StToHTML"/>
       </Item12>
       <Item13>
-        <Filename Value="source\run\ststrms.pas"/>
+        <Filename Value="source\general\run\ststrms.pas"/>
         <UnitName Value="StStrms"/>
       </Item13>
       <Item14>
-        <Filename Value="source\run\stdict.pas"/>
+        <Filename Value="source\general\run\stdict.pas"/>
         <UnitName Value="StDict"/>
       </Item14>
       <Item15>
-        <Filename Value="source\run\stinistm.pas"/>
+        <Filename Value="source\general\run\stinistm.pas"/>
         <UnitName Value="StIniStm"/>
       </Item15>
       <Item16>
-        <Filename Value="source\run\stdecmth.pas"/>
+        <Filename Value="source\general\run\stdecmth.pas"/>
         <UnitName Value="StDecMth"/>
       </Item16>
       <Item17>
-        <Filename Value="source\run\stexpr.pas"/>
+        <Filename Value="source\general\run\stexpr.pas"/>
         <UnitName Value="StExpr"/>
       </Item17>
       <Item18>
-        <Filename Value="source\run\stmath.pas"/>
+        <Filename Value="source\general\run\stmath.pas"/>
         <UnitName Value="StMath"/>
       </Item18>
       <Item19>
-        <Filename Value="source\run\stfin.pas"/>
+        <Filename Value="source\general\run\stfin.pas"/>
         <UnitName Value="StFIN"/>
       </Item19>
       <Item20>
-        <Filename Value="source\run\stdatest.pas"/>
+        <Filename Value="source\general\run\stdatest.pas"/>
         <UnitName Value="StDateSt"/>
       </Item20>
       <Item21>
-        <Filename Value="source\run\stmoney.pas"/>
+        <Filename Value="source\general\run\stmoney.pas"/>
         <UnitName Value="StMoney"/>
       </Item21>
       <Item22>
-        <Filename Value="source\run\strandom.pas"/>
+        <Filename Value="source\general\run\strandom.pas"/>
         <UnitName Value="StRandom"/>
       </Item22>
       <Item23>
-        <Filename Value="source\run\ststat.pas"/>
+        <Filename Value="source\general\run\ststat.pas"/>
         <UnitName Value="StStat"/>
       </Item23>
       <Item24>
-        <Filename Value="source\run\stlarr.pas"/>
+        <Filename Value="source\general\run\stlarr.pas"/>
         <UnitName Value="StLArr"/>
       </Item24>
       <Item25>
-        <Filename Value="source\run\stbcd.pas"/>
+        <Filename Value="source\general\run\stbcd.pas"/>
         <UnitName Value="StBCD"/>
       </Item25>
       <Item26>
-        <Filename Value="source\run\stregex.pas"/>
+        <Filename Value="source\general\run\stregex.pas"/>
         <UnitName Value="StRegEx"/>
       </Item26>
       <Item27>
-        <Filename Value="source\run\ststrs.pas"/>
+        <Filename Value="source\general\run\ststrs.pas"/>
         <UnitName Value="StStrS"/>
       </Item27>
       <Item28>
-        <Filename Value="source\run\stastro.pas"/>
+        <Filename Value="source\general\run\stastro.pas"/>
         <UnitName Value="StAstro"/>
       </Item28>
       <Item29>
-        <Filename Value="source\run\steclpse.pas"/>
+        <Filename Value="source\general\run\steclpse.pas"/>
         <UnitName Value="StEclpse"/>
       </Item29>
       <Item30>
-        <Filename Value="source\run\stlist.pas"/>
+        <Filename Value="source\general\run\stlist.pas"/>
         <UnitName Value="StList"/>
       </Item30>
       <Item31>
-        <Filename Value="source\run\stmerc.pas"/>
+        <Filename Value="source\general\run\stmerc.pas"/>
         <UnitName Value="StMerc"/>
       </Item31>
       <Item32>
-        <Filename Value="source\run\stastrop.pas"/>
+        <Filename Value="source\general\run\stastrop.pas"/>
         <UnitName Value="StAstroP"/>
       </Item32>
       <Item33>
-        <Filename Value="source\run\stvenus.pas"/>
+        <Filename Value="source\general\run\stvenus.pas"/>
         <UnitName Value="StVenus"/>
       </Item33>
       <Item34>
-        <Filename Value="source\run\stmars.pas"/>
+        <Filename Value="source\general\run\stmars.pas"/>
         <UnitName Value="StMars"/>
       </Item34>
       <Item35>
-        <Filename Value="source\run\stjup.pas"/>
+        <Filename Value="source\general\run\stjup.pas"/>
         <UnitName Value="StJup"/>
       </Item35>
       <Item36>
-        <Filename Value="source\run\stsaturn.pas"/>
+        <Filename Value="source\general\run\stsaturn.pas"/>
         <UnitName Value="StSaturn"/>
       </Item36>
       <Item37>
-        <Filename Value="source\run\sturanus.pas"/>
+        <Filename Value="source\general\run\sturanus.pas"/>
         <UnitName Value="StUranus"/>
       </Item37>
       <Item38>
-        <Filename Value="source\run\stneptun.pas"/>
+        <Filename Value="source\general\run\stneptun.pas"/>
         <UnitName Value="StNeptun"/>
       </Item38>
       <Item39>
-        <Filename Value="source\run\stpluto.pas"/>
+        <Filename Value="source\general\run\stpluto.pas"/>
         <UnitName Value="StPluto"/>
       </Item39>
       <Item40>
-        <Filename Value="source\run\stjupsat.pas"/>
+        <Filename Value="source\general\run\stjupsat.pas"/>
         <UnitName Value="StJupsat"/>
       </Item40>
       <Item41>
-        <Filename Value="source\run\stbits.pas"/>
+        <Filename Value="source\general\run\stbits.pas"/>
         <UnitName Value="StBits"/>
       </Item41>
       <Item42>
-        <Filename Value="source\run\stcoll.pas"/>
+        <Filename Value="source\general\run\stcoll.pas"/>
         <UnitName Value="StColl"/>
       </Item42>
       <Item43>
-        <Filename Value="source\run\stdque.pas"/>
+        <Filename Value="source\general\run\stdque.pas"/>
         <UnitName Value="StDQue"/>
       </Item43>
       <Item44>
-        <Filename Value="source\run\stvarr.pas"/>
+        <Filename Value="source\general\run\stvarr.pas"/>
         <UnitName Value="StVArr"/>
       </Item44>
       <Item45>
-        <Filename Value="source\run\stpqueue.pas"/>
+        <Filename Value="source\general\run\stpqueue.pas"/>
         <UnitName Value="StPQueue"/>
       </Item45>
       <Item46>
-        <Filename Value="source\run\sttree.pas"/>
+        <Filename Value="source\general\run\sttree.pas"/>
         <UnitName Value="StTree"/>
       </Item46>
       <Item47>
-        <Filename Value="source\run\stnvcont.pas"/>
+        <Filename Value="source\general\run\stnvcont.pas"/>
         <UnitName Value="StNVCont"/>
       </Item47>
       <Item48>
-        <Filename Value="source\run\stnvtree.pas"/>
+        <Filename Value="source\general\run\stnvtree.pas"/>
         <UnitName Value="StNVTree"/>
       </Item48>
       <Item49>
-        <Filename Value="source\run\stnvbits.pas"/>
+        <Filename Value="source\general\run\stnvbits.pas"/>
         <UnitName Value="StNVBits"/>
       </Item49>
       <Item50>
-        <Filename Value="source\run\stnvcoll.pas"/>
+        <Filename Value="source\general\run\stnvcoll.pas"/>
         <UnitName Value="StNVColl"/>
       </Item50>
       <Item51>
-        <Filename Value="source\run\stnvdict.pas"/>
+        <Filename Value="source\general\run\stnvdict.pas"/>
         <UnitName Value="StNVDict"/>
       </Item51>
       <Item52>
-        <Filename Value="source\run\stnvdq.pas"/>
+        <Filename Value="source\general\run\stnvdq.pas"/>
         <UnitName Value="StNVDQ"/>
       </Item52>
       <Item53>
-        <Filename Value="source\run\stnvlary.pas"/>
+        <Filename Value="source\general\run\stnvlary.pas"/>
         <UnitName Value="StNVLAry"/>
       </Item53>
       <Item54>
-        <Filename Value="source\run\stnvlist.pas"/>
+        <Filename Value="source\general\run\stnvlist.pas"/>
         <UnitName Value="StNVList"/>
       </Item54>
       <Item55>
-        <Filename Value="source\run\stnvlmat.pas"/>
+        <Filename Value="source\general\run\stnvlmat.pas"/>
         <UnitName Value="StNVLMat"/>
       </Item55>
       <Item56>
-        <Filename Value="source\run\stnvscol.pas"/>
+        <Filename Value="source\general\run\stnvscol.pas"/>
         <UnitName Value="StNVSCol"/>
       </Item56>
       <Item57>
-        <Filename Value="source\run\stptrns.pas"/>
+        <Filename Value="source\general\run\stptrns.pas"/>
         <UnitName Value="StPtrns"/>
       </Item57>
       <Item58>
-        <Filename Value="source\run\stmerge.pas"/>
+        <Filename Value="source\general\run\stmerge.pas"/>
         <UnitName Value="StMerge"/>
       </Item58>
       <Item59>
-        <Filename Value="source\run\sttxtdat.pas"/>
+        <Filename Value="source\general\run\sttxtdat.pas"/>
         <UnitName Value="StTxtDat"/>
       </Item59>
       <Item60>
-        <Filename Value="source\run\sttext.pas"/>
+        <Filename Value="source\general\run\sttext.pas"/>
         <UnitName Value="StText"/>
       </Item60>
     </Files>

components/systools/laz_systools_design.lpk

@@ -10,8 +10,8 @@
       <PathDelim Value="\"/>
       <SearchPaths>
         <IncludeFiles Value="source\include"/>
-        <OtherUnitFiles Value="source\design"/>
-        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\design"/>
+        <OtherUnitFiles Value="source\general\design"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\general\design"/>
       </SearchPaths>
     </CompilerOptions>
     <Description Value="Lazarus port of TurboPower SysTools (Delphi version at https://sourceforge.net/projects/tpsystools/) - designtime package.
@@ -21,11 +21,11 @@ SysTools is a library of utility routines and classes which  includes 1-D and 2-
     <Version Major="4" Release="4"/>
     <Files Count="2">
       <Item1>
-        <Filename Value="source\design\stproped.pas"/>
+        <Filename Value="source\general\design\stproped.pas"/>
         <UnitName Value="StPropEd"/>
       </Item1>
       <Item2>
-        <Filename Value="source\design\streg.pas"/>
+        <Filename Value="source\general\design\streg.pas"/>
         <HasRegisterProc Value="True"/>
         <UnitName Value="StReg"/>
       </Item2>

components/systools/laz_systoolsdb.lpk

@@ -8,9 +8,9 @@
       <Version Value="11"/>
       <PathDelim Value="\"/>
       <SearchPaths>
-        <IncludeFiles Value="source\include;source\db"/>
-        <OtherUnitFiles Value="source\db"/>
-        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\run\db"/>
+        <IncludeFiles Value="source\include;source\db\run"/>
+        <OtherUnitFiles Value="source\db\run"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\db\run"/>
       </SearchPaths>
     </CompilerOptions>
     <Description Value="Lazarus port of Turbo Power SysTools database components - runtime package
@@ -19,15 +19,15 @@ The package systoolsdb contains data-aware barcode components."/>
     <Version Major="4" Release="4"/>
     <Files Count="3">
       <Item1>
-        <Filename Value="source\db\stdb2dbc.pas"/>
+        <Filename Value="source\db\run\stdb2dbc.pas"/>
         <UnitName Value="StDb2DBC"/>
       </Item1>
       <Item2>
-        <Filename Value="source\db\stdbbarc.pas"/>
+        <Filename Value="source\db\run\stdbbarc.pas"/>
         <UnitName Value="StDbBarC"/>
       </Item2>
       <Item3>
-        <Filename Value="source\db\stdbpnbc.pas"/>
+        <Filename Value="source\db\run\stdbpnbc.pas"/>
         <UnitName Value="StDbPNBC"/>
       </Item3>
     </Files>

components/systools/laz_systoolsdb_design.lpk

@@ -10,8 +10,8 @@
       <PathDelim Value="\"/>
       <SearchPaths>
         <IncludeFiles Value="source\include"/>
-        <OtherUnitFiles Value="source\design"/>
-        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\design\db"/>
+        <OtherUnitFiles Value="source\db\design"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\db\design"/>
       </SearchPaths>
     </CompilerOptions>
     <Description Value="Lazarus port of TurboPower SysTools database components - designtime package
@@ -20,7 +20,7 @@ The package systoolsdb contains data-aware barcode components."/>
     <Version Major="4" Release="4"/>
     <Files Count="1">
       <Item1>
-        <Filename Value="source\design\stregdb.pas"/>
+        <Filename Value="source\db\design\stregdb.pas"/>
         <HasRegisterProc Value="True"/>
         <UnitName Value="StRegDb"/>
       </Item1>
@@ -31,6 +31,7 @@ The package systoolsdb contains data-aware barcode components."/>
       </Item1>
       <Item2>
         <PackageName Value="laz_systoolsdb"/>
+        <MaxVersion Major="4" Release="4"/>
       </Item2>
       <Item3>
         <PackageName Value="FCL"/>

components/systools/laz_systoolswin.lpk

@@ -10,7 +10,7 @@
       <SearchPaths>
         <IncludeFiles Value="source\include"/>
         <OtherUnitFiles Value="source\windows_only\run"/>
-        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\run\win"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\win\run"/>
       </SearchPaths>
     </CompilerOptions>
     <Description Value="Lazarus port of TurboPower SysTools, Windows-only units - runtime package

components/systools/laz_systoolswin_design.lpk

@@ -11,7 +11,7 @@
       <SearchPaths>
         <IncludeFiles Value="source\include"/>
         <OtherUnitFiles Value="source\windows_only\design"/>
-        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\design\win"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\win\design"/>
       </SearchPaths>
     </CompilerOptions>
     <Description Value="Lazarus port of TurboPower SysTools: Windows-only units, designtime-package

components/systools/source/db/run/stdb2dbc.pas

@@ -0,0 +1,358 @@
+(* ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is TurboPower SysTools
+ *
+ * The Initial Developer of the Original Code is
+ * TurboPower Software
+ *
+ * Portions created by the Initial Developer are Copyright (C) 1996-2002
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ *
+ * ***** END LICENSE BLOCK ***** *)
+
+{*********************************************************}
+{* SysTools: StDb2DBC.pas 4.04                           *}
+{*********************************************************}
+{* SysTools: Data-aware Two-Dimensional Barcodes         *}
+{*********************************************************}
+
+{$IFDEF FPC}
+ {$mode DELPHI}
+{$ENDIF}
+
+//{$I StDefine.inc}
+
+unit StDb2DBC;
+
+interface
+
+uses
+ {$IFDEF FPC}
+  LCLIntf, LCLType, LMessages,
+ {$ELSE}
+  Windows, Messages,
+ {$ENDIF}
+  SysUtils,
+  Classes,
+  St2DBarC,
+  Db,
+  DbCtrls;
+
+type
+
+  TStDbPDF417Barcode = class(TStPDF417Barcode)
+    protected {private}
+      {.Z+}
+      FCaptionDataLink : TFieldDataLink;
+      FCodeDataLink    : TFieldDataLink;
+
+      procedure CaptionDataChange(Sender : TObject);
+      procedure CodeDataChange(Sender : TObject);
+      function GetCaptionDataField : string;
+      function GetCodeDataField : string;
+      function GetDataSource : TDataSource;
+      procedure SetCaptionDataField(const Value : string);
+      procedure SetCodeDataField(const Value : string);
+      procedure SetDataSource(Value : TDataSource);
+
+    public
+      constructor Create(AOwner : TComponent); override;
+      destructor Destroy;
+        override;
+      {.Z+}
+    published
+      property Code stored False;
+      property Caption stored False;
+
+      property CaptionDataField : string
+               read GetCaptionDataField write SetCaptionDataField;
+      property CodeDataField : string
+               read GetCodeDataField write SetCodeDataField;
+
+      property DataSource : TDataSource read GetDataSource write SetDataSource;
+  end;
+
+  TStDbMaxiCodeBarcode = class(TStMaxiCodeBarcode)
+    protected {private}
+      {.Z+}
+      FCaptionDataLink      : TFieldDataLink;
+      FCodeDataLink         : TFieldDataLink;
+      FCountryCodeDataLink  : TFieldDataLink;
+      FPostalCodeDataLink   : TFieldDataLink;
+      FServiceClassDataLink : TFieldDataLink;
+
+      procedure CaptionDataChange (Sender : TObject);
+      procedure CodeDataChange (Sender : TObject);
+      procedure CountryCodeChange (Sender : TObject);
+
+      function GetCaptionDataField : string;
+      function GetCodeDataField : string;
+      function GetCountryCodeDataField : string;
+      function GetDataSource : TDataSource;
+      function GetPostalCodeDataField : string;
+      function GetServiceClassDataField : string;
+
+      procedure PostalCodeChange (Sender : TObject);
+      procedure ServiceClassChange (Sender : TObject);
+
+      procedure SetCaptionDataField (const Value : string);
+      procedure SetCodeDataField (const Value : string);
+      procedure SetCountryCodeDataField (const Value : string);
+      procedure SetDataSource (Value : TDataSource);
+      procedure SetPostalCodeDataField (const Value : string);
+      procedure SetServiceClassDataField (const Value : string);
+
+    public
+      constructor Create(AOwner : TComponent); override;
+      destructor Destroy;
+        override;
+      {.Z+}
+    published
+      property Code stored False;
+      property Caption stored False;
+
+      property CaptionDataField : string
+               read GetCaptionDataField write SetCaptionDataField;
+      property CarrierCountryCodeDataField : string
+               read GetCountryCodeDataField write SetCountryCodeDataField;
+      property CarrierPostalCodeDataField : string
+               read GetPostalCodeDataField write SetPostalCodeDataField;
+      property CarrierServiceClassDataField : string
+               read GetServiceClassDataField write SetServiceClassDataField;
+      property CodeDataField : string
+               read GetCodeDataField write SetCodeDataField;
+
+      property DataSource : TDataSource read GetDataSource write SetDataSource;
+  end;
+
+implementation
+
+{ TStDbPDF417Barcode }
+
+constructor TStDbPDF417Barcode.Create(AOwner : TComponent);
+begin
+  inherited Create(AOwner);
+
+  FCaptionDataLink := TFieldDataLink.Create;
+  FCaptionDataLink.OnDataChange := CaptionDataChange;
+  FCodeDataLink := TFieldDataLink.Create;
+  FCodeDataLink.OnDataChange := CodeDataChange;
+end;
+
+destructor TStDbPDF417Barcode.Destroy;
+begin
+  FCaptionDataLink.OnDataChange := nil;
+  FCaptionDataLink.Free;
+  FCaptionDataLink := nil;
+  FCodeDataLink.OnDataChange := nil;
+  FCodeDataLink.Free;
+  FCodeDataLink := nil;
+
+  inherited Destroy;
+end;
+
+procedure TStDbPDF417Barcode.CaptionDataChange(Sender : TObject);
+begin
+  if FCaptionDataLink.Field = nil then
+    Caption := '12345678922'
+  else
+    Caption := FCaptionDataLink.Field.DisplayText;
+end;
+
+procedure TStDbPDF417Barcode.CodeDataChange(Sender : TObject);
+begin
+  if FCodeDataLink.Field = nil then
+    Code := '12345678922'
+  else
+    Code := FCodeDataLink.Field.DisplayText;
+end;
+
+
+function TStDbPDF417Barcode.GetCaptionDataField : string;
+begin
+  Result := FCaptionDataLink.FieldName;
+end;
+
+function TStDbPDF417Barcode.GetCodeDataField : string;
+begin
+  Result := FCodeDataLink.FieldName;
+end;
+
+function TStDbPDF417Barcode.GetDataSource : TDataSource;
+begin
+  Result := FCaptionDataLink.DataSource
+end;
+
+procedure TStDbPDF417Barcode.SetCaptionDataField(const Value : string);
+begin
+  FCaptionDataLink.FieldName := Value;
+end;
+
+procedure TStDbPDF417Barcode.SetCodeDataField(const Value : string);
+begin
+  FCodeDataLink.FieldName := Value;
+end;
+
+procedure TStDbPDF417Barcode.SetDataSource(Value : TDataSource);
+begin
+  FCaptionDataLink.DataSource := Value;
+  FCodeDataLink.DataSource := Value;
+end;
+
+{ TStDbMaxiCodeBarcode }
+
+constructor TStDbMaxiCodeBarcode.Create(AOwner : TComponent);
+begin
+  inherited Create(AOwner);
+
+  FCaptionDataLink := TFieldDataLink.Create;
+  FCaptionDataLink.OnDataChange := CaptionDataChange;
+  FCodeDataLink := TFieldDataLink.Create;
+  FCodeDataLink.OnDataChange := CodeDataChange;
+  FCountryCodeDataLink := TFieldDataLink.Create;
+  FCountryCodeDataLink.OnDataChange := CountryCodeChange;
+  FPostalCodeDataLink := TFieldDataLink.Create;
+  FPostalCodeDataLink.OnDataChange := PostalCodeChange;
+  FServiceClassDataLink := TFieldDataLink.Create;
+  FServiceClassDataLink.OnDataChange := ServiceClassChange; 
+end;
+
+destructor TStDbMaxiCodeBarcode.Destroy;
+begin
+  FCaptionDataLink.OnDataChange := nil;
+  FCaptionDataLink.Free;
+  FCaptionDataLink := nil;
+  FCodeDataLink.OnDataChange := nil;
+  FCodeDataLink.Free;
+  FCodeDataLink := nil;
+  FCountryCodeDataLink.OnDataChange := nil;
+  FCountryCodeDataLink.Free;
+  FCountryCodeDataLink := nil;
+  FPostalCodeDataLink.OnDataChange := nil;
+  FPostalCodeDataLink.Free;
+  FPostalCodeDataLink := nil;
+  FServiceClassDataLink.OnDataChange := nil;
+  FServiceClassDataLink.Free;
+  FServiceClassDataLink := nil;
+
+  inherited Destroy;
+end;
+
+procedure TStDbMaxiCodeBarcode.CaptionDataChange(Sender : TObject);
+begin
+  if FCaptionDataLink.Field = nil then
+    Caption := '12345678922'
+  else
+    Caption := FCaptionDataLink.Field.DisplayText;
+end;
+
+procedure TStDbMaxiCodeBarcode.CodeDataChange(Sender : TObject);
+begin
+  if FCodeDataLink.Field = nil then
+    Code := '12345678922'
+  else
+    Code := FCodeDataLink.Field.DisplayText;
+end;
+
+procedure TStDbMaxiCodeBarcode.CountryCodeChange (Sender : TObject);
+begin
+  if FCountryCodeDataLink.Field = nil then
+    CarrierCountryCode := 0
+  else
+    CarrierCountryCode := FCountryCodeDataLink.Field.AsInteger;
+end;
+
+function TStDbMaxiCodeBarcode.GetCaptionDataField : string;
+begin
+  Result := FCaptionDataLink.FieldName;
+end;
+
+function TStDbMaxiCodeBarcode.GetCodeDataField : string;
+begin
+  Result := FCodeDataLink.FieldName;
+end;
+
+function TStDbMaxiCodeBarcode.GetCountryCodeDataField : string;
+begin
+  Result := FCountryCodeDataLink.FieldName;
+end;
+
+function TStDbMaxiCodeBarcode.GetDataSource : TDataSource;
+begin
+  Result := FCaptionDataLink.DataSource
+end;
+
+function TStDbMaxiCodeBarcode.GetPostalCodeDataField : string;
+begin
+  Result := FPostalCodeDataLink.FieldName;
+end;
+
+function TStDbMaxiCodeBarcode.GetServiceClassDataField : string;
+begin
+  Result := FServiceClassDataLink.FieldName;
+end;
+
+procedure TStDbMaxiCodeBarcode.PostalCodeChange (Sender : TObject);
+begin
+  if FPostalCodeDataLink.Field = nil then
+    CarrierPostalCode := '000'
+  else
+    CarrierPostalCode := FPostalCodeDataLink.Field.DisplayText;
+end;
+
+procedure TStDbMaxiCodeBarcode.ServiceClassChange (Sender : TObject);
+begin
+  if FServiceClassDataLink.Field = nil then
+    CarrierServiceClass := 0
+  else
+    CarrierServiceClass := FServiceClassDataLink.Field.AsInteger;
+end;
+
+procedure TStDbMaxiCodeBarcode.SetCaptionDataField(const Value : string);
+begin
+  FCaptionDataLink.FieldName := Value;
+end;
+
+procedure TStDbMaxiCodeBarcode.SetCodeDataField(const Value : string);
+begin
+  FCodeDataLink.FieldName := Value;
+end;
+
+procedure TStDbMaxiCodeBarcode.SetCountryCodeDataField (const Value : string);
+begin
+  FCountryCodeDataLink.FieldName := Value;
+end;
+
+procedure TStDbMaxiCodeBarcode.SetDataSource(Value : TDataSource);
+begin
+  FCaptionDataLink.DataSource := Value;
+  FCodeDataLink.DataSource := Value;
+  FCountryCodeDataLink.DataSource := Value;
+  FPostalCodeDataLink.DataSource := Value;
+  FServiceClassDataLink.DataSource := Value;
+end;
+
+procedure TStDbMaxiCodeBarcode.SetPostalCodeDataField (const Value : string);
+begin
+  FPostalCodeDataLink.FieldName := Value;
+end;
+
+procedure TStDbMaxiCodeBarcode.SetServiceClassDataField (const Value : string);
+begin
+  FServiceClassDataLink.FieldName := Value;
+end;
+
+end.

components/systools/source/db/run/stdbbarc.pas

@@ -0,0 +1,136 @@
+(* ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is TurboPower SysTools
+ *
+ * The Initial Developer of the Original Code is
+ * TurboPower Software
+ *
+ * Portions created by the Initial Developer are Copyright (C) 1996-2002
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ *
+ * ***** END LICENSE BLOCK ***** *)
+
+{*********************************************************}
+{* SysTools: StDbBarC.pas 4.04                           *}
+{*********************************************************}
+{* SysTools: data aware bar code components              *}
+{*********************************************************}
+
+{$IFDEF FPC}
+  {$mode DELPHI}
+{$ENDIF}
+
+//{$I StDefine.inc}
+
+unit StDbBarC;
+
+interface
+
+uses
+ {$IFDEF FPC}
+  LCLIntf, LCLType, LMessages,
+ {$ELSE}
+  Windows, Messages, DbTables,
+ {$ENDIF}
+  Classes, //ClipBrd,
+  Controls, Graphics, SysUtils,
+  Db, DbCtrls,
+  StConst, StBarC;
+
+type
+  TStDbBarCode = class(TStBarCode)
+  protected {private}
+    {.Z+}
+    FDataLink : TFieldDataLink;
+
+    procedure DataChange(Sender : TObject);
+    function GetDataField : string;
+    function GetDataSource : TDataSource;
+    procedure SetDataField(const Value : string);
+    procedure SetDataSource(Value : TDataSource);
+
+  public
+    constructor Create(AOwner : TComponent);
+      override;
+    destructor Destroy;
+      override;
+    {.Z+}
+  published
+    property Code
+      stored False;
+
+    property DataField : string
+      read GetDataField
+      write SetDataField;
+
+    property DataSource : TDataSource
+      read GetDataSource
+      write SetDataSource;
+  end;
+
+
+implementation
+
+
+{*** TStDbBarCode ***}
+
+constructor TStDbBarCode.Create(AOwner : TComponent);
+begin
+  inherited Create(AOwner);
+
+  FDataLink := TFieldDataLink.Create;
+  FDataLink.OnDataChange := DataChange;
+end;
+
+procedure TStDbBarCode.DataChange(Sender : TObject);
+begin
+  if FDataLink.Field = nil then
+    Code := '12345678922'
+  else
+    Code := FDataLink.Field.DisplayText;
+end;
+
+destructor TStDbBarCode.Destroy;
+begin
+  FDataLink.OnDataChange := nil;
+  FDataLink.Free;
+  FDataLink := nil;
+
+  inherited Destroy;
+end;
+
+function TStDbBarCode.GetDataField : string;
+begin
+  Result := FDataLink.FieldName;
+end;
+
+function TStDbBarCode.GetDataSource : TDataSource;
+begin
+  Result := FDataLink.DataSource
+end;
+
+procedure TStDbBarCode.SetDataField(const Value : string);
+begin
+  FDataLink.FieldName := Value;
+end;
+
+procedure TStDbBarCode.SetDataSource(Value : TDataSource);
+begin
+  FDataLink.DataSource := Value;
+end;
+
+
+end.

components/systools/source/db/run/stdbpnbc.pas

@@ -0,0 +1,133 @@
+(* ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is TurboPower SysTools
+ *
+ * The Initial Developer of the Original Code is
+ * TurboPower Software
+ *
+ * Portions created by the Initial Developer are Copyright (C) 1996-2002
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ *
+ * ***** END LICENSE BLOCK ***** *)
+
+{*********************************************************}
+{* SysTools: StDbPNBC.pas 4.04                           *}
+{*********************************************************}
+{* SysTools: data aware PostNet Bar Code component       *}
+{*********************************************************}
+
+{$IFDEF FPC}
+ {$mode DELPHI}
+{$ENDIF}
+//{$I STDEFINE.INC}
+
+unit StDbPNBC;
+
+interface
+
+uses
+  {$IFDEF FPC}
+  LCLIntf, LCLType, LMessages,
+  {$ELSE}
+  Windows, Messages, DBTables,
+  {$ENDIF}
+  Classes, ClipBrd, Controls, Graphics, SysUtils,
+  Db, DbCtrls,
+  StConst, StBarPN;
+
+type
+  TStDbPNBarCode = class(TStPNBarCode)
+  protected {private}
+    {.Z+}
+    FDataLink : TFieldDataLink;
+
+    procedure DataChange(Sender : TObject);
+    function GetDataField : string;
+    function GetDataSource : TDataSource;
+    procedure SetDataField(const Value : string);
+    procedure SetDataSource(Value : TDataSource);
+
+  public
+    constructor Create(AOwner : TComponent);
+      override;
+    destructor Destroy;
+      override;
+    {.Z+}
+  published
+    property PostalCode
+      stored False;
+
+    property DataField : string
+      read GetDataField
+      write SetDataField;
+
+    property DataSource : TDataSource
+      read GetDataSource
+      write SetDataSource;
+  end;
+
+
+implementation
+
+{*** TStDbPNBarCode ***}
+
+constructor TStDbPNBarCode.Create(AOwner : TComponent);
+begin
+  inherited Create(AOwner);
+
+  FDataLink := TFieldDataLink.Create;
+  FDataLink.OnDataChange := DataChange;
+end;
+
+procedure TStDbPNBarCode.DataChange(Sender : TObject);
+begin
+  if FDataLink.Field = nil then
+    PostalCode := '12345'
+  else
+    PostalCode := FDataLink.Field.DisplayText;
+end;
+
+destructor TStDbPNBarCode.Destroy;
+begin
+  FDataLink.OnDataChange := nil;
+  FDataLink.Free;
+  FDataLink := nil;
+
+  inherited Destroy;
+end;
+
+function TStDbPNBarCode.GetDataField : string;
+begin
+  Result := FDataLink.FieldName;
+end;
+
+function TStDbPNBarCode.GetDataSource : TDataSource;
+begin
+  Result := FDataLink.DataSource
+end;
+
+procedure TStDbPNBarCode.SetDataField(const Value : string);
+begin
+  FDataLink.FieldName := Value;
+end;
+
+procedure TStDbPNBarCode.SetDataSource(Value : TDataSource);
+begin
+  FDataLink.DataSource := Value;
+end;
+
+
+end.

components/systools/source/design/images/make_res.bat

@@ -1,2 +0,0 @@
-lazres ..\streg.res @img-systools.txt
-lazres ..\stregdb.res @img-systoolsdb.txt

components/systools/source/general/design/streg.pas

@@ -222,13 +222,13 @@ begin
 // new in SysTools 4
      TStPDF417Barcode,
      TStMaxiCodeBarcode
-     {
+(*
      TStGeneralLog,
-{.$IFNDEF BCB} {!!! problem with initialization section in BCB }
+  {.$IFNDEF BCB}     // !!! problem with initialization section in BCB
      TStExceptionLog,
-{.$ENDIF}
+  {.$ENDIF}
      TStNTEventLog
-     }
+*)
      ]);
 
   {non-visual container class components}

components/systools/source/general/run/stcoll.pas

@@ -254,14 +254,14 @@ function AssignData(Container : TStContainer;
 constructor TPageDescriptor.Create(AData : Pointer);
 begin
   inherited Create(AData);
-  GetMem(pdPage, LongInt(Data)*SizeOf(Pointer));
-  FillChar(pdPage^, LongInt(Data)*SizeOf(Pointer), 0);
+  GetMem(pdPage, PtrInt(Data)*SizeOf(Pointer));
+  FillChar(pdPage^, PtrInt(Data)*SizeOf(Pointer), 0);
 end;
 
 destructor TPageDescriptor.Destroy;
 begin
   if Assigned(pdPage) then
-    FreeMem(pdPage, LongInt(Data)*SizeOf(Pointer));
+    FreeMem(pdPage, PtrInt(Data)*SizeOf(Pointer));
   inherited Destroy;
 end;
 
@@ -438,7 +438,7 @@ begin
           Inc(N.pdCount, NC);
         end else begin
           {insert on a new page before this one}
-          N := TPageDescriptor(colPageList.PlaceBefore(Pointer(colPageElements), N));
+          N := TPageDescriptor(colPageList.PlaceBefore(Pointer(PtrInt(colPageElements)), N));
           N.pdCount := 1;
         end;
         N.pdStart := Index;
@@ -455,7 +455,7 @@ begin
     end;
 
     {should be inserted after all existing pages}
-    N := TPageDescriptor(colPageList.Append(Pointer(colPageElements)));
+    N := TPageDescriptor(colPageList.Append(Pointer(PtrInt(colPageElements))));
     N.pdStart := Index;
     N.pdCount := 1;
     N.pdPage^[0] := Data;
@@ -484,7 +484,7 @@ begin
       if T.pdCount >= colPageElements then begin
         {last page is full, add another}
         Start := T.pdStart+colPageElements;
-        T := TPageDescriptor(colPageList.Append(Pointer(colPageElements)));
+        T := TPageDescriptor(colPageList.Append(Pointer(PtrInt(colPageElements))));
         T.pdStart := Start;
         {T.pdCount := 0;}
       end;
@@ -500,7 +500,7 @@ begin
         Start := N.pdStart;
         if Index < Start then begin
           {element has not been set before}
-          N := TPageDescriptor(colPageList.PlaceBefore(Pointer(colPageElements), N));
+          N := TPageDescriptor(colPageList.PlaceBefore(Pointer(PtrInt(colPageElements)), N));
           N.pdStart := Index;
           N.pdCount := 1;
           N.pdPage^[0] := Data;
@@ -528,7 +528,7 @@ begin
         Start := N.pdStart;
         if (Index >= Start+N.pdCount) then begin
           {element has not been set before}
-          N := TPageDescriptor(colPageList.PlaceBefore(Pointer(colPageElements), N));
+          N := TPageDescriptor(colPageList.PlaceBefore(Pointer(PtrInt(colPageElements)), N));
           N.pdStart := Index;
           N.pdCount := 1;
           N.pdPage^[0] := Data;
@@ -545,7 +545,7 @@ begin
     end;
 
     {an element after all existing ones}
-    N := TPageDescriptor(colPageList.Append(Pointer(colPageElements)));
+    N := TPageDescriptor(colPageList.Append(Pointer(PtrInt(colPageElements))));
     colCachePage := N;
     N.pdStart := Index;
     N.pdCount := 1;
@@ -628,7 +628,7 @@ begin
   with N do
     if pdCount >= colPageElements then begin
       {page is full, add another}
-      P := TPageDescriptor(colPageList.Place(Pointer(colPageElements), N));
+      P := TPageDescriptor(colPageList.Place(Pointer(PtrInt(colPageElements)), N));
       {new page starts with element after the new one}
       P.pdStart := pdStart+PageIndex+1;
       PC := colPageElements-PageIndex;
@@ -737,7 +737,7 @@ begin
   colPageElements := PageElements;
 
   {start with one empty page}
-  colPageList.Append(Pointer(colPageElements));
+  colPageList.Append(Pointer(PtrInt(colPageElements)));
   colCachePage := TPageDescriptor(colPageList.Head);
 end;
 
@@ -807,7 +807,7 @@ begin
     if N.pdCount >= colPageElements then begin
       {last page is full, add another}
       Start := N.pdStart+colPageElements;
-      N := TPageDescriptor(colPageList.Append(Pointer(colPageElements)));
+      N := TPageDescriptor(colPageList.Append(Pointer(PtrInt(colPageElements))));
       N.pdStart := Start;
       {N.pdCount := 0;}
     end;
@@ -931,7 +931,7 @@ begin
           begin
             colPageList.Clear;
             colPageElements := PageElements;
-            colPageList.Append(Pointer(colPageElements));
+            colPageList.Append(Pointer(PtrInt(colPageElements)));
             colCachePage := TPageDescriptor(colPageList.Head);
           end;
         ReadListBegin;
@@ -1162,7 +1162,7 @@ begin
           begin
             colPageList.Clear;
             colPageElements := PageElements;
-            colPageList.Append(Pointer(colPageElements));
+            colPageList.Append(Pointer(PtrInt(colPageElements)));
             colCachePage := TPageDescriptor(colPageList.Head);
           end;
       FDuplicates := ReadBoolean;