LazBarcodes: Update package files to v2.0. Fix anchoring bug in demo project.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8207 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-09 22:45:46 +00:00
parent ad64ac9787
commit ebc0080662
6 changed files with 111 additions and 47 deletions

View File

@ -12,7 +12,6 @@
<XPManifest> <XPManifest>
<DpiAware Value="True"/> <DpiAware Value="True"/>
</XPManifest> </XPManifest>
<Icon Value="0"/>
</General> </General>
<BuildModes> <BuildModes>
<Item Name="Default" Default="True"/> <Item Name="Default" Default="True"/>

View File

@ -7,7 +7,6 @@ object MainForm: TMainForm
ClientHeight = 484 ClientHeight = 484
ClientWidth = 811 ClientWidth = 811
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object BarcodesTree: TTreeView object BarcodesTree: TTreeView
Left = 6 Left = 6
Height = 472 Height = 472
@ -81,12 +80,12 @@ object MainForm: TMainForm
Left = 0 Left = 0
Height = 173 Height = 173
Top = 35 Top = 35
Width = 189 Width = 191
AutoSize = True AutoSize = True
BorderSpacing.Top = 12 BorderSpacing.Top = 12
Caption = 'Geometry' Caption = 'Geometry'
ClientHeight = 153 ClientHeight = 153
ClientWidth = 185 ClientWidth = 187
TabOrder = 1 TabOrder = 1
object lblScale: TLabel object lblScale: TLabel
AnchorSideLeft.Control = gbGeometry AnchorSideLeft.Control = gbGeometry
@ -109,7 +108,7 @@ object MainForm: TMainForm
Left = 105 Left = 105
Height = 23 Height = 23
Top = 46 Top = 46
Width = 74 Width = 76
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8 BorderSpacing.Top = 8
@ -127,7 +126,7 @@ object MainForm: TMainForm
Left = 105 Left = 105
Height = 23 Height = 23
Top = 72 Top = 72
Width = 74 Width = 76
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
@ -170,7 +169,7 @@ object MainForm: TMainForm
Left = 105 Left = 105
Height = 23 Height = 23
Top = 98 Top = 98
Width = 74 Width = 76
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
@ -202,7 +201,7 @@ object MainForm: TMainForm
Left = 105 Left = 105
Height = 23 Height = 23
Top = 124 Top = 124
Width = 74 Width = 76
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -220,7 +219,7 @@ object MainForm: TMainForm
Left = 16 Left = 16
Height = 19 Height = 19
Top = 19 Top = 19
Width = 163 Width = 165
BorderSpacing.Left = 16 BorderSpacing.Left = 16
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'Recommended symbol size' Caption = 'Recommended symbol size'
@ -235,7 +234,7 @@ object MainForm: TMainForm
Left = 16 Left = 16
Height = 19 Height = 19
Top = 0 Top = 0
Width = 66 Width = 68
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'Auto size' Caption = 'Auto size'
OnChange = cbAutoSizeChange OnChange = cbAutoSizeChange
@ -246,15 +245,15 @@ object MainForm: TMainForm
AnchorSideLeft.Control = gbGeometry AnchorSideLeft.Control = gbGeometry
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbGeometry AnchorSideTop.Control = gbGeometry
Left = 205 Left = 207
Height = 74 Height = 74
Top = 35 Top = 35
Width = 213 Width = 215
AutoSize = True AutoSize = True
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'Show...' Caption = 'Show...'
ClientHeight = 54 ClientHeight = 54
ClientWidth = 209 ClientWidth = 211
TabOrder = 2 TabOrder = 2
object cbHumanReadableText: TCheckBox object cbHumanReadableText: TCheckBox
AnchorSideLeft.Control = gbShow AnchorSideLeft.Control = gbShow
@ -262,7 +261,7 @@ object MainForm: TMainForm
Left = 16 Left = 16
Height = 19 Height = 19
Top = 0 Top = 0
Width = 131 Width = 133
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'Human-readable text' Caption = 'Human-readable text'
Checked = True Checked = True
@ -279,7 +278,7 @@ object MainForm: TMainForm
Left = 16 Left = 16
Height = 23 Height = 23
Top = 25 Top = 25
Width = 187 Width = 189
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 16 BorderSpacing.Left = 16
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -302,7 +301,7 @@ object MainForm: TMainForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbHumanReadableText AnchorSideTop.Control = cbHumanReadableText
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 153 Left = 155
Height = 25 Height = 25
Top = -3 Top = -3
Width = 50 Width = 50
@ -320,16 +319,16 @@ object MainForm: TMainForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbShow AnchorSideRight.Control = gbShow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 205 Left = 207
Height = 68 Height = 68
Top = 121 Top = 121
Width = 213 Width = 215
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 12 BorderSpacing.Top = 12
Caption = 'Checksum' Caption = 'Checksum'
ClientHeight = 48 ClientHeight = 48
ClientWidth = 209 ClientWidth = 211
TabOrder = 6 TabOrder = 6
object cbAddChecksum: TCheckBox object cbAddChecksum: TCheckBox
AnchorSideLeft.Control = gbChecksum AnchorSideLeft.Control = gbChecksum
@ -337,7 +336,7 @@ object MainForm: TMainForm
Left = 16 Left = 16
Height = 19 Height = 19
Top = 0 Top = 0
Width = 97 Width = 99
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'Add checksum' Caption = 'Add checksum'
Checked = True Checked = True
@ -352,7 +351,7 @@ object MainForm: TMainForm
Left = 16 Left = 16
Height = 19 Height = 19
Top = 23 Top = 23
Width = 113 Width = 115
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'Display checksum' Caption = 'Display checksum'
@ -369,13 +368,13 @@ object MainForm: TMainForm
Left = 0 Left = 0
Height = 109 Height = 109
Top = 224 Top = 224
Width = 189 Width = 191
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 16 BorderSpacing.Top = 16
Caption = 'Colors' Caption = 'Colors'
ClientHeight = 89 ClientHeight = 89
ClientWidth = 185 ClientWidth = 187
TabOrder = 3 TabOrder = 3
object clbBackground: TColorButton object clbBackground: TColorButton
AnchorSideLeft.Control = gbColors AnchorSideLeft.Control = gbColors
@ -431,7 +430,9 @@ object MainForm: TMainForm
end end
end end
object btnSaveToFile: TBitBtn object btnSaveToFile: TBitBtn
AnchorSideLeft.Control = btnCopyToClipboard
AnchorSideTop.Control = gbColors AnchorSideTop.Control = gbColors
AnchorSideRight.Control = btnCopyToClipboard
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 205 Left = 205
Height = 25 Height = 25
@ -445,16 +446,14 @@ object MainForm: TMainForm
TabOrder = 4 TabOrder = 4
end end
object btnCopyToClipboard: TBitBtn object btnCopyToClipboard: TBitBtn
AnchorSideLeft.Control = btnSaveToFile AnchorSideLeft.Control = gbChecksum
AnchorSideTop.Control = btnSaveToFile AnchorSideTop.Control = btnSaveToFile
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnSaveToFile
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 205 Left = 205
Height = 25 Height = 25
Top = 264 Top = 264
Width = 128 Width = 128
Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Copy to clipboard' Caption = 'Copy to clipboard'
@ -479,7 +478,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = gbShow AnchorSideLeft.Control = gbShow
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbGeometry AnchorSideTop.Control = gbGeometry
Left = 434 Left = 438
Height = 293 Height = 293
Top = 35 Top = 35
Width = 152 Width = 152
@ -532,8 +531,8 @@ object MainForm: TMainForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 84 ClientHeight = 104
ClientWidth = 148 ClientWidth = 152
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'mod-10' 'mod-10'

View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="5">
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="lazbarcodes"/> <Name Value="lazbarcodes"/>
<Type Value="RunAndDesignTime"/> <Type Value="RunAndDesignTime"/>
@ -13,20 +13,28 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Description Value="Provides barcode 1D and 2D generation based in the 'C' zint library."/> <Description Value="Provides barcode 1D and 2D generation based in the &apos;C&apos; zint library."/>
<Version Major="1" Release="4"/> <Version Major="2"/>
<Files Count="1"> <Files Count="2">
<Item1> <Item1>
<Filename Value="..\src\ubarcodes.pas"/> <Filename Value="..\src\ubarcodes.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
<UnitName Value="ubarcodes"/> <UnitName Value="ubarcodes"/>
</Item1> </Item1>
<Item2>
<Filename Value="..\src\udrawers.pas"/>
<UnitName Value="udrawers"/>
</Item2>
</Files> </Files>
<RequiredPkgs Count="1"> <CompatibilityMode Value="True"/>
<RequiredPkgs Count="2">
<Item1> <Item1>
<PackageName Value="IDEIntf"/>
</Item1>
<Item2>
<PackageName Value="lazbarcodes_runtimeonly"/> <PackageName Value="lazbarcodes_runtimeonly"/>
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item2>
</RequiredPkgs> </RequiredPkgs>
<UsageOptions> <UsageOptions>
<UnitPath Value="$(PkgOutDir)"/> <UnitPath Value="$(PkgOutDir)"/>

View File

@ -4,10 +4,11 @@
unit lazbarcodes; unit lazbarcodes;
{$warn 5023 off : no warning about unused units}
interface interface
uses uses
ubarcodes, LazarusPackageIntf; ubarcodes, udrawers, LazarusPackageIntf;
implementation implementation

View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="4"> <Package Version="5">
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="lazbarcodes_runtimeonly"/> <Name Value="lazbarcodes_runtimeonly"/>
<Author Value="José Mejuto"/> <Author Value="José Mejuto"/>
@ -8,11 +8,12 @@
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="..\src"/>
<OtherUnitFiles Value="..\src"/> <OtherUnitFiles Value="..\src"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Description Value="Provides barcode 1D and 2D generation based in the 'C' zint library."/> <Description Value="Provides barcode 1D and 2D generation based in the &apos;C&apos; zint library."/>
<License Value="BSD 3 <License Value="BSD 3
ZINT was originally developed by Robin Stuart and licensed under the terms of the GPL (Gnu ZINT was originally developed by Robin Stuart and licensed under the terms of the GPL (Gnu
@ -21,15 +22,15 @@ to change the license to a less restrictive one (see ZINT mailing list of May 20
related mails) under the following conditions: related mails) under the following conditions:
- the names of original copyright holder Robin Stuart and contributors are not removed, - the names of original copyright holder Robin Stuart and contributors are not removed,
neither from sources nor from the manual neither from sources nor from the manual
- the documentation is done in British English (as Robin said: &quot;Oh, and please don't - the documentation is done in British English (as Robin said: &quot;Oh, and please don&apos;t
replace the word &quot;colour&quot; with &quot;color&quot; in the documentation - that really annoys me!&quot;) replace the word &quot;colour&quot; with &quot;color&quot; in the documentation - that really annoys me!&quot;)
Change to BSD-license is done for backend and therefore for ZINT shared library only, for Change to BSD-license is done for backend and therefore for ZINT shared library only, for
the frontends and Qt4-backend the GPL is still valid. Since BSD-license is GPL-compatible the frontends and Qt4-backend the GPL is still valid. Since BSD-license is GPL-compatible
this gives the possibility to include ZINT library in own products or link against it from this gives the possibility to include ZINT library in own products or link against it from
own software."/> own software."/>
<Version Major="1" Release="4"/> <Version Major="2"/>
<Files Count="9"> <Files Count="22">
<Item1> <Item1>
<Filename Value="..\src\zint.pp"/> <Filename Value="..\src\zint.pp"/>
<UnitName Value="zint"/> <UnitName Value="zint"/>
@ -66,7 +67,60 @@ own software."/>
<Filename Value="..\src\lbc_sjis.pas"/> <Filename Value="..\src\lbc_sjis.pas"/>
<UnitName Value="lbc_sjis"/> <UnitName Value="lbc_sjis"/>
</Item9> </Item9>
<Item10>
<Filename Value="..\src\lbc_code.pas"/>
<UnitName Value="lbc_code"/>
</Item10>
<Item11>
<Filename Value="..\src\lbc_common.pas"/>
<UnitName Value="lbc_common"/>
</Item11>
<Item12>
<Filename Value="..\src\lbc_2of5.pas"/>
<UnitName Value="lbc_2of5"/>
</Item12>
<Item13>
<Filename Value="..\src\lbc_upcean.pas"/>
<UnitName Value="lbc_upcean"/>
</Item13>
<Item14>
<Filename Value="..\src\lbc_code128.pas"/>
<UnitName Value="lbc_code128"/>
</Item14>
<Item15>
<Filename Value="..\src\lbc_gs1.pas"/>
<UnitName Value="lbc_gs1"/>
</Item15>
<Item16>
<Filename Value="..\src\lbc_postal.pas"/>
<UnitName Value="lbc_postal"/>
</Item16>
<Item17>
<Filename Value="..\src\lbc_svg.pas"/>
<UnitName Value="lbc_svg"/>
</Item17>
<Item18>
<Filename Value="..\src\lbc_medical.pas"/>
<UnitName Value="lbc_medical"/>
</Item18>
<Item19>
<Filename Value="..\src\lbc_telepen.pas"/>
<UnitName Value="lbc_telepen"/>
</Item19>
<Item20>
<Filename Value="..\src\lbc_plessey.pas"/>
<UnitName Value="lbc_plessey"/>
</Item20>
<Item21>
<Filename Value="..\src\lbc_pdf417.pas"/>
<UnitName Value="lbc_pdf417"/>
</Item21>
<Item22>
<Filename Value="..\src\lbc_auspost.pas"/>
<UnitName Value="lbc_auspost"/>
</Item22>
</Files> </Files>
<CompatibilityMode Value="True"/>
<RequiredPkgs Count="1"> <RequiredPkgs Count="1">
<Item1> <Item1>
<PackageName Value="LCLBase"/> <PackageName Value="LCLBase"/>

View File

@ -8,7 +8,10 @@ unit lazbarcodes_runtimeonly;
interface interface
uses uses
zint, lbc_aztec, lbc_basic, lbc_datamatrix, lbc_helper, lbc_qr, lbc_reedsolomon, lbc_render, lbc_sjis; zint, lbc_aztec, lbc_basic, lbc_datamatrix, lbc_helper, lbc_qr,
lbc_reedsolomon, lbc_render, lbc_sjis, lbc_code, lbc_common, lbc_2of5,
lbc_upcean, lbc_code128, lbc_gs1, lbc_postal, lbc_svg, lbc_medical,
lbc_telepen, lbc_plessey, lbc_pdf417, lbc_auspost;
implementation implementation