diff --git a/components/lazbarcodes/demo/LazBarcodeDemo.lpi b/components/lazbarcodes/demo/LazBarcodeDemo.lpi index 4f4ce34b4..3e291e2dd 100644 --- a/components/lazbarcodes/demo/LazBarcodeDemo.lpi +++ b/components/lazbarcodes/demo/LazBarcodeDemo.lpi @@ -12,7 +12,6 @@ - diff --git a/components/lazbarcodes/demo/main.lfm b/components/lazbarcodes/demo/main.lfm index 3f6f2b57d..55180a8d8 100644 --- a/components/lazbarcodes/demo/main.lfm +++ b/components/lazbarcodes/demo/main.lfm @@ -7,7 +7,6 @@ object MainForm: TMainForm ClientHeight = 484 ClientWidth = 811 OnCreate = FormCreate - LCLVersion = '2.3.0.0' object BarcodesTree: TTreeView Left = 6 Height = 472 @@ -81,12 +80,12 @@ object MainForm: TMainForm Left = 0 Height = 173 Top = 35 - Width = 189 + Width = 191 AutoSize = True BorderSpacing.Top = 12 Caption = 'Geometry' ClientHeight = 153 - ClientWidth = 185 + ClientWidth = 187 TabOrder = 1 object lblScale: TLabel AnchorSideLeft.Control = gbGeometry @@ -109,7 +108,7 @@ object MainForm: TMainForm Left = 105 Height = 23 Top = 46 - Width = 74 + Width = 76 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 8 @@ -127,7 +126,7 @@ object MainForm: TMainForm Left = 105 Height = 23 Top = 72 - Width = 74 + Width = 76 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 3 @@ -170,7 +169,7 @@ object MainForm: TMainForm Left = 105 Height = 23 Top = 98 - Width = 74 + Width = 76 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 3 @@ -202,7 +201,7 @@ object MainForm: TMainForm Left = 105 Height = 23 Top = 124 - Width = 74 + Width = 76 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 12 @@ -220,7 +219,7 @@ object MainForm: TMainForm Left = 16 Height = 19 Top = 19 - Width = 163 + Width = 165 BorderSpacing.Left = 16 BorderSpacing.Right = 6 Caption = 'Recommended symbol size' @@ -235,7 +234,7 @@ object MainForm: TMainForm Left = 16 Height = 19 Top = 0 - Width = 66 + Width = 68 BorderSpacing.Left = 16 Caption = 'Auto size' OnChange = cbAutoSizeChange @@ -246,15 +245,15 @@ object MainForm: TMainForm AnchorSideLeft.Control = gbGeometry AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbGeometry - Left = 205 + Left = 207 Height = 74 Top = 35 - Width = 213 + Width = 215 AutoSize = True BorderSpacing.Left = 16 Caption = 'Show...' ClientHeight = 54 - ClientWidth = 209 + ClientWidth = 211 TabOrder = 2 object cbHumanReadableText: TCheckBox AnchorSideLeft.Control = gbShow @@ -262,7 +261,7 @@ object MainForm: TMainForm Left = 16 Height = 19 Top = 0 - Width = 131 + Width = 133 BorderSpacing.Left = 16 Caption = 'Human-readable text' Checked = True @@ -279,7 +278,7 @@ object MainForm: TMainForm Left = 16 Height = 23 Top = 25 - Width = 187 + Width = 189 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 16 BorderSpacing.Top = 6 @@ -302,7 +301,7 @@ object MainForm: TMainForm AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cbHumanReadableText AnchorSideTop.Side = asrCenter - Left = 153 + Left = 155 Height = 25 Top = -3 Width = 50 @@ -320,16 +319,16 @@ object MainForm: TMainForm AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbShow AnchorSideRight.Side = asrBottom - Left = 205 + Left = 207 Height = 68 Top = 121 - Width = 213 + Width = 215 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 12 Caption = 'Checksum' ClientHeight = 48 - ClientWidth = 209 + ClientWidth = 211 TabOrder = 6 object cbAddChecksum: TCheckBox AnchorSideLeft.Control = gbChecksum @@ -337,7 +336,7 @@ object MainForm: TMainForm Left = 16 Height = 19 Top = 0 - Width = 97 + Width = 99 BorderSpacing.Left = 16 Caption = 'Add checksum' Checked = True @@ -352,7 +351,7 @@ object MainForm: TMainForm Left = 16 Height = 19 Top = 23 - Width = 113 + Width = 115 BorderSpacing.Top = 4 BorderSpacing.Bottom = 6 Caption = 'Display checksum' @@ -369,13 +368,13 @@ object MainForm: TMainForm Left = 0 Height = 109 Top = 224 - Width = 189 + Width = 191 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 16 Caption = 'Colors' ClientHeight = 89 - ClientWidth = 185 + ClientWidth = 187 TabOrder = 3 object clbBackground: TColorButton AnchorSideLeft.Control = gbColors @@ -431,7 +430,9 @@ object MainForm: TMainForm end end object btnSaveToFile: TBitBtn + AnchorSideLeft.Control = btnCopyToClipboard AnchorSideTop.Control = gbColors + AnchorSideRight.Control = btnCopyToClipboard AnchorSideRight.Side = asrBottom Left = 205 Height = 25 @@ -445,16 +446,14 @@ object MainForm: TMainForm TabOrder = 4 end object btnCopyToClipboard: TBitBtn - AnchorSideLeft.Control = btnSaveToFile + AnchorSideLeft.Control = gbChecksum AnchorSideTop.Control = btnSaveToFile AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = btnSaveToFile AnchorSideRight.Side = asrBottom Left = 205 Height = 25 Top = 264 Width = 128 - Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 6 Caption = 'Copy to clipboard' @@ -479,7 +478,7 @@ object MainForm: TMainForm AnchorSideLeft.Control = gbShow AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbGeometry - Left = 434 + Left = 438 Height = 293 Top = 35 Width = 152 @@ -532,8 +531,8 @@ object MainForm: TMainForm ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 84 - ClientWidth = 148 + ClientHeight = 104 + ClientWidth = 152 ItemIndex = 0 Items.Strings = ( 'mod-10' diff --git a/components/lazbarcodes/packages/lazbarcodes.lpk b/components/lazbarcodes/packages/lazbarcodes.lpk index 2d731422e..c32f5557c 100644 --- a/components/lazbarcodes/packages/lazbarcodes.lpk +++ b/components/lazbarcodes/packages/lazbarcodes.lpk @@ -1,6 +1,6 @@ - + @@ -13,20 +13,28 @@ - - - + + + + + + + - + + + + + - + diff --git a/components/lazbarcodes/packages/lazbarcodes.pas b/components/lazbarcodes/packages/lazbarcodes.pas index 6e1739473..480beb8fb 100644 --- a/components/lazbarcodes/packages/lazbarcodes.pas +++ b/components/lazbarcodes/packages/lazbarcodes.pas @@ -2,20 +2,21 @@ This source is only used to compile and install the package. } -unit lazbarcodes; +unit lazbarcodes; +{$warn 5023 off : no warning about unused units} interface uses - ubarcodes, LazarusPackageIntf; + ubarcodes, udrawers, LazarusPackageIntf; implementation -procedure Register; +procedure Register; begin - RegisterUnit('ubarcodes', @ubarcodes.Register); -end; + RegisterUnit('ubarcodes', @ubarcodes.Register); +end; initialization - RegisterPackage('lazbarcodes', @Register); + RegisterPackage('lazbarcodes', @Register); end. diff --git a/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk b/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk index 569b9dd97..6874bfb05 100644 --- a/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk +++ b/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk @@ -1,6 +1,6 @@ - + @@ -8,11 +8,12 @@ + - + - - + + @@ -66,7 +67,60 @@ own software."/> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas b/components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas index c2e97ba36..aaabc45bc 100644 --- a/components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas +++ b/components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas @@ -8,7 +8,10 @@ unit lazbarcodes_runtimeonly; interface 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