You've already forked lazarus-ccr
First commit. Tested on Windows only. It provides 5 controls under the "Laz Barcodes 2D" tab.
* QR code * MicroQR * Aztec * Aztec Rune * DataMatrix git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1758 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
BIN
components/lazbarcodes/images/tbarcodeaztec.png
Normal file
BIN
components/lazbarcodes/images/tbarcodeaztec.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 203 B |
BIN
components/lazbarcodes/images/tbarcodeaztecrune.png
Normal file
BIN
components/lazbarcodes/images/tbarcodeaztecrune.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 138 B |
BIN
components/lazbarcodes/images/tbarcodedatamatrix.png
Normal file
BIN
components/lazbarcodes/images/tbarcodedatamatrix.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 189 B |
BIN
components/lazbarcodes/images/tbarcodemicroqr.png
Normal file
BIN
components/lazbarcodes/images/tbarcodemicroqr.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 194 B |
BIN
components/lazbarcodes/images/tbarcodeqr.png
Normal file
BIN
components/lazbarcodes/images/tbarcodeqr.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 199 B |
50
components/lazbarcodes/packages/lazbarcodes.lpk
Normal file
50
components/lazbarcodes/packages/lazbarcodes.lpk
Normal file
@ -0,0 +1,50 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<Package Version="4">
|
||||
<PathDelim Value="\"/>
|
||||
<Name Value="lazbarcodes"/>
|
||||
<Author Value="José Mejuto"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="10"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="..\src"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Other>
|
||||
<CompilerMessages>
|
||||
<UseMsgFile Value="True"/>
|
||||
</CompilerMessages>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Description Value="Provides barcode 1D and 2D generation based in the 'C' zint library."/>
|
||||
<Version Major="1"/>
|
||||
<Files Count="1">
|
||||
<Item1>
|
||||
<Filename Value="..\src\ubarcodes.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="ubarcodes"/>
|
||||
</Item1>
|
||||
</Files>
|
||||
<Type Value="RunAndDesignTime"/>
|
||||
<RequiredPkgs Count="3">
|
||||
<Item1>
|
||||
<PackageName Value="lazbarcodes_runtimeonly"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCLBase"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<PackageName Value="FCL"/>
|
||||
</Item3>
|
||||
</RequiredPkgs>
|
||||
<UsageOptions>
|
||||
<UnitPath Value="$(PkgOutDir)"/>
|
||||
</UsageOptions>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
</Package>
|
||||
</CONFIG>
|
||||
21
components/lazbarcodes/packages/lazbarcodes.pas
Normal file
21
components/lazbarcodes/packages/lazbarcodes.pas
Normal file
@ -0,0 +1,21 @@
|
||||
{ This file was automatically created by Lazarus. Do not edit!
|
||||
This source is only used to compile and install the package.
|
||||
}
|
||||
|
||||
unit lazbarcodes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
ubarcodes, LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterUnit('ubarcodes', @ubarcodes.Register);
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterPackage('lazbarcodes', @Register);
|
||||
end.
|
||||
77
components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk
Normal file
77
components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk
Normal file
@ -0,0 +1,77 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<Package Version="4">
|
||||
<PathDelim Value="\"/>
|
||||
<Name Value="lazbarcodes_runtimeonly"/>
|
||||
<Author Value="José Mejuto"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="10"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="..\src"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Other>
|
||||
<CompilerMessages>
|
||||
<UseMsgFile Value="True"/>
|
||||
</CompilerMessages>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Description Value="Provides barcode 1D and 2D generation based in the 'C' zint library."/>
|
||||
<License Value="GNU General Public License version 3.0 (GPLv3)"/>
|
||||
<Version Major="1"/>
|
||||
<Files Count="9">
|
||||
<Item1>
|
||||
<Filename Value="..\src\zint.pp"/>
|
||||
<UnitName Value="zint"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Filename Value="..\src\uaztec.pas"/>
|
||||
<UnitName Value="uaztec"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Filename Value="..\src\ubasic.pas"/>
|
||||
<UnitName Value="ubasic"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<Filename Value="..\src\udatamatrix.pas"/>
|
||||
<UnitName Value="udatamatrix"/>
|
||||
</Item4>
|
||||
<Item5>
|
||||
<Filename Value="..\src\uhelper.pas"/>
|
||||
<UnitName Value="uhelper"/>
|
||||
</Item5>
|
||||
<Item6>
|
||||
<Filename Value="..\src\uqr.pas"/>
|
||||
<UnitName Value="uqr"/>
|
||||
</Item6>
|
||||
<Item7>
|
||||
<Filename Value="..\src\ureedsolomon.pas"/>
|
||||
<UnitName Value="ureedsolomon"/>
|
||||
</Item7>
|
||||
<Item8>
|
||||
<Filename Value="..\src\urender.pas"/>
|
||||
<UnitName Value="urender"/>
|
||||
</Item8>
|
||||
<Item9>
|
||||
<Filename Value="..\src\usjis.pas"/>
|
||||
<UnitName Value="usjis"/>
|
||||
</Item9>
|
||||
</Files>
|
||||
<RequiredPkgs Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="LCLBase"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="FCL"/>
|
||||
</Item2>
|
||||
</RequiredPkgs>
|
||||
<UsageOptions>
|
||||
<UnitPath Value="$(PkgOutDir)"/>
|
||||
</UsageOptions>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
</Package>
|
||||
</CONFIG>
|
||||
14
components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas
Normal file
14
components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas
Normal file
@ -0,0 +1,14 @@
|
||||
{ This file was automatically created by Lazarus. Do not edit!
|
||||
This source is only used to compile and install the package.
|
||||
}
|
||||
|
||||
unit lazbarcodes_runtimeonly;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
zint, uaztec, ubasic, udatamatrix, uhelper, uqr, ureedsolomon, urender, usjis;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
22
components/lazbarcodes/src/lazbarcodes.pas
Normal file
22
components/lazbarcodes/src/lazbarcodes.pas
Normal file
@ -0,0 +1,22 @@
|
||||
{ This file was automatically created by Lazarus. Do not edit!
|
||||
This source is only used to compile and install the package.
|
||||
}
|
||||
|
||||
unit lazbarcodes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
zint, uaztec, ubasic, udatamatrix, uhelper, uqr, ureedsolomon, urender,
|
||||
usjis, ubarcodes, LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterUnit('ubarcodes', @ubarcodes.Register);
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterPackage('lazbarcodes', @Register);
|
||||
end.
|
||||
10
components/lazbarcodes/src/tbarcodeaztec.lrs
Normal file
10
components/lazbarcodes/src/tbarcodeaztec.lrs
Normal file
@ -0,0 +1,10 @@
|
||||
LazarusResources.Add('tbarcodeaztec','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#21#0#0#0#21#8#2#0#0#0'&u2'#193#0#0
|
||||
+#0#146'IDATx'#156#165#145#11#10#128'0'#12'C{'#255'K+'#226#152#237'kR'#17#3
|
||||
+#142#209#207#242'1'#142#127#136#235#139'u'#222#216#21'\P\g'#30#202'sv'#161'r'
|
||||
+#8#182#168#0#1'u'#201#134'4'#146'_'#164#255#238#211'9'#167#216#238'y'#6'_A<'
|
||||
+#210#237#148'b'#31#26'R'#212#254#231#228'dK'#235#135#194#225'd~'#162#161#248
|
||||
+#179#199#226#31'>'#157#255#137#31'l.'#127'J'#19#165#17'4'#229#168#228#14'Z/'
|
||||
+#250'e'#28'Z'#255#158#176'>'#235#254'3'#211#151'K'#219#252#11#193#223'5;]'
|
||||
+#165#168#226#251#128#19#236#248#12#31'X'#10'[q'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
8
components/lazbarcodes/src/tbarcodeaztecrune.lrs
Normal file
8
components/lazbarcodes/src/tbarcodeaztecrune.lrs
Normal file
@ -0,0 +1,8 @@
|
||||
LazarusResources.Add('tbarcodeaztecrune','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#21#0#0#0#21#8#2#0#0#0'&u2'#193#0#0
|
||||
+#0'QIDATx'#156#189#148'I'#14#0' '#8#3#249#255#167#245#214#152#176#148'Hu'#142
|
||||
+#208'!p'#193#214#12#211#248#230'@='#214#16#200'|'#202#27#159#31#28#250'h'#212
|
||||
+#187#156'1'#169'_$'#178#233'R'#223'''P'#28#249#180#251#204#15#249#226#215#16
|
||||
+#191#143#218#239#224#15#20#253#159'k6'#235#244#3'('#147#160'.|'#0#0#0#0'IEND'
|
||||
+#174'B`'#130
|
||||
]);
|
||||
10
components/lazbarcodes/src/tbarcodedatamatrix.lrs
Normal file
10
components/lazbarcodes/src/tbarcodedatamatrix.lrs
Normal file
@ -0,0 +1,10 @@
|
||||
LazarusResources.Add('tbarcodedatamatrix','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#21#0#0#0#21#8#2#0#0#0'&u2'#193#0#0
|
||||
+#0#132'IDATx'#156#165#146#11#10#128'0'#12'C{'#255'KO'#196#129'5'#191'!'#13'8'
|
||||
+':'#182#152#246'i'#173#153#234'~*'#173#135#163#190'y'#234'ns'#219#183#128#156
|
||||
+#174#254'Rw'#138#7#178#29#167#143#31#156'0'#142#13#176#131#197#201'u>gB/P'#8
|
||||
+#191#228#23#16'j?S'#228#238','#127#246#232'd'#200#31#249'a'#21#156'I'#130#159
|
||||
+#196#230'p'#166'|'#219'-'#255#26#1'o'#230#130#249#185#17#6#132#243#243#189'#'
|
||||
+#203#244#253#224#30#143#169#243#127'i'#251''''#186#0#208#138#166'v0'#27'oM'#0
|
||||
+#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
10
components/lazbarcodes/src/tbarcodemicroqr.lrs
Normal file
10
components/lazbarcodes/src/tbarcodemicroqr.lrs
Normal file
@ -0,0 +1,10 @@
|
||||
LazarusResources.Add('tbarcodemicroqr','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#21#0#0#0#21#8#2#0#0#0'&u2'#193#0#0
|
||||
+#0#137'IDATx'#156#181#145#139#10#128'0'#8'E'#253#255#159'^D'#209#244'>'#28
|
||||
+#163#18#138#161'^'#31#199#24#239','#206#207#216#21#130'?:s'#160#20#142'Y'#26
|
||||
+'z'#148'Z'#144#202#25'O'#185#236#153'i'#189#30'4b'#192#127#245#240#200'[l'
|
||||
+#243#3#10'E'#223#220'O'#234#11#191#222#220'E'#238'(o'#200#171'.'#248#201#152
|
||||
+';'#7'f'#230#152#235#198#3#174#251#243#170'0'#151#237#207#8#154#1#245#229'%'
|
||||
+#209'A'#128'?'#210'3'#213'F,'#248'3'#30#30#164#211'K`'#2'u'#245#216#253#183
|
||||
+#236#0#242#191#30#13'!j_/'#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
10
components/lazbarcodes/src/tbarcodeqr.lrs
Normal file
10
components/lazbarcodes/src/tbarcodeqr.lrs
Normal file
@ -0,0 +1,10 @@
|
||||
LazarusResources.Add('TBarcodeQR','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#21#0#0#0#21#8#2#0#0#0'&u2'#193#0#0
|
||||
+#0#142'IDATx'#156#165#147#1#10#128'0'#12#3#253#255#167'''"L'#151'\2'#193#130
|
||||
+'"k'#218'&'#233'<'#198#191'8'#174#199#194#15'#'#236'N,-_h'#249#0#24#22'L'#196
|
||||
+'<L'#176'M='#20#164'z'#231'/'#169#198#31#221#242'7'#251#199#139'Yq'#17'&>'
|
||||
+#149'm'#137#151':'#223#167#185#249#172'_lK'#132'y;'#146#198'^'#133'H'#219#127
|
||||
+'j'#202#243#157'm'#241#255#233'2'#200#234#164#194#137'l'#238#159#162#189'{'
|
||||
+#215#191#141#252'c'#216']`Q'#157#191'k'#225#253#185#127#238'%'#187#251']*'
|
||||
+#198#9'Nm'#27#16' W'#213#132#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
2802
components/lazbarcodes/src/uaztec.pas
Normal file
2802
components/lazbarcodes/src/uaztec.pas
Normal file
File diff suppressed because it is too large
Load Diff
439
components/lazbarcodes/src/ubarcodes.pas
Normal file
439
components/lazbarcodes/src/ubarcodes.pas
Normal file
@ -0,0 +1,439 @@
|
||||
unit ubarcodes;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Controls, LResources, Graphics,
|
||||
ubasic,uqr,zint,urender,uaztec,udatamatrix;
|
||||
|
||||
type
|
||||
|
||||
TBarcodeQR_ECCLevel= (eBarcodeQR_ECCLevel_Auto=0,
|
||||
eBarcodeQR_ECCLevel_L=1,eBarcodeQR_ECCLevel_M=2,
|
||||
eBarcodeQR_ECCLevel_Q=3,eBarcodeQR_ECCLevel_H=4);
|
||||
TBarcodeAztecRune_Value= 0..999;
|
||||
|
||||
{ TLazBarcodeCustomBase }
|
||||
|
||||
TLazBarcodeCustomBase=class(TGraphicControl)
|
||||
private
|
||||
mIsPainting: Boolean;
|
||||
function GetStrictSize: Boolean;
|
||||
procedure SetStrictSize(const AValue: Boolean);
|
||||
function GetBackgroundColor: TColor;
|
||||
function GetForegroundColor: TColor;
|
||||
procedure SetBackgroundColor(const AValue: TColor);
|
||||
procedure SetForegroundColor(const AValue: TColor);
|
||||
protected
|
||||
FQR: PointerTo_zint_symbol;
|
||||
FLastErrorString: UTF8String;
|
||||
FBackgroundColor: TColor;
|
||||
FForegroundColor: TColor;
|
||||
FStrictSize: Boolean;
|
||||
procedure GenerateAndInvalidate;
|
||||
procedure Paint; override;
|
||||
procedure Resize; override;
|
||||
procedure intfPaintOnCanvas(const aTargetCanvas: TCanvas; const aRect: TRect);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure PaintOnCanvas(const aTargetCanvas: TCanvas; const aRect: TRect);
|
||||
procedure Generate; virtual; abstract;
|
||||
published
|
||||
property StrictSize: Boolean read GetStrictSize write SetStrictSize;
|
||||
property BackgroundColor: TColor read GetBackgroundColor write SetBackgroundColor default clWhite;
|
||||
property ForegroundColor: TColor read GetForegroundColor write SetForegroundColor default clBlack;
|
||||
end;
|
||||
|
||||
{ TLazBarcodeCustomText }
|
||||
|
||||
TLazBarcodeCustomText=class(TLazBarcodeCustomBase)
|
||||
private
|
||||
function GetText: UTF8String;
|
||||
procedure SetText(const AValue: UTF8String);
|
||||
protected
|
||||
FText: UTF8String;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
published
|
||||
property Text: UTF8String read GetText write SetText;
|
||||
end;
|
||||
|
||||
{ TBarcodeQR }
|
||||
|
||||
TBarcodeQR=class(TLazBarcodeCustomText)
|
||||
private
|
||||
procedure SetECCLevel(const AValue: TBarcodeQR_ECCLevel);
|
||||
protected
|
||||
FECCLevel: TBarcodeQR_ECCLevel;
|
||||
procedure UpdateECCLevel;
|
||||
public
|
||||
procedure Generate; override;
|
||||
published
|
||||
property ECCLevel: TBarcodeQR_ECCLevel read FECCLevel write SetECCLevel default eBarcodeQR_ECCLevel_Auto;
|
||||
end;
|
||||
|
||||
{ TBarcodeMicroQR }
|
||||
|
||||
TBarcodeMicroQR=class(TBarcodeQR)
|
||||
private
|
||||
protected
|
||||
public
|
||||
procedure Generate; override;
|
||||
published
|
||||
end;
|
||||
|
||||
{ TBarcodeAztec }
|
||||
|
||||
TBarcodeAztec=class(TLazBarcodeCustomText)
|
||||
private
|
||||
protected
|
||||
public
|
||||
procedure Generate; override;
|
||||
published
|
||||
end;
|
||||
|
||||
{ TBarcodeAztecRune }
|
||||
|
||||
TBarcodeAztecRune=class(TLazBarcodeCustomBase)
|
||||
private
|
||||
procedure SetValue(const AValue: TBarcodeAztecRune_Value);
|
||||
protected
|
||||
FValue: TBarcodeAztecRune_Value;
|
||||
public
|
||||
procedure Generate; override;
|
||||
published
|
||||
property Value: TBarcodeAztecRune_Value read FValue write SetValue;
|
||||
end;
|
||||
|
||||
{ TBarcodeDataMatrix }
|
||||
|
||||
TBarcodeDataMatrix=class(TLazBarcodeCustomText)
|
||||
private
|
||||
protected
|
||||
public
|
||||
procedure Generate; override;
|
||||
published
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
{$I tbarcodeqr.lrs}
|
||||
RegisterComponents('Laz Barcodes 2D',[TBarcodeQR]);
|
||||
{$I tbarcodemicroqr.lrs}
|
||||
RegisterComponents('Laz Barcodes 2D',[TBarcodeMicroQR]);
|
||||
{$I tbarcodeaztec.lrs}
|
||||
RegisterComponents('Laz Barcodes 2D',[TBarcodeAztec]);
|
||||
{$I tbarcodeaztecrune.lrs}
|
||||
RegisterComponents('Laz Barcodes 2D',[TBarcodeAztecRune]);
|
||||
{$I tbarcodedatamatrix.lrs}
|
||||
RegisterComponents('Laz Barcodes 2D',[TBarcodeDataMatrix]);
|
||||
end;
|
||||
|
||||
{ TBarcodeDataMatrix }
|
||||
|
||||
procedure TBarcodeDataMatrix.Generate;
|
||||
var
|
||||
ErrorCode: integer;
|
||||
begin
|
||||
if Assigned(FQR) then begin
|
||||
ZBarcode_Delete(FQR);
|
||||
FQR:=nil;
|
||||
end;
|
||||
if Length(FText)>0 then begin
|
||||
FQR:=ZBarcode_Create();
|
||||
with FQR^ do begin
|
||||
border_width:=1;
|
||||
end;
|
||||
ErrorCode:=dmatrix(FQR,@FText[1],Length(FText));
|
||||
if ErrorCode<>0 then begin
|
||||
FLastErrorString:=FQR^.errtxt;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TBarcodeAztecRune }
|
||||
|
||||
procedure TBarcodeAztecRune.SetValue(const AValue: TBarcodeAztecRune_Value);
|
||||
begin
|
||||
if FValue=AValue then exit;
|
||||
FValue:=AValue;
|
||||
GenerateAndInvalidate;
|
||||
end;
|
||||
|
||||
procedure TBarcodeAztecRune.Generate;
|
||||
var
|
||||
ErrorCode: integer;
|
||||
NumberText: ansistring;
|
||||
begin
|
||||
if Assigned(FQR) then begin
|
||||
ZBarcode_Delete(FQR);
|
||||
FQR:=nil;
|
||||
end;
|
||||
NumberText:=IntToStr(FValue);
|
||||
if (Length(NumberText)>0) and (Length(NumberText)<=3) then begin
|
||||
FQR:=ZBarcode_Create();
|
||||
with FQR^ do begin
|
||||
border_width:=0;
|
||||
end;
|
||||
ErrorCode:=aztec_runes(FQR,@NumberText[1],Length(NumberText));
|
||||
if ErrorCode<>0 then begin
|
||||
FLastErrorString:=FQR^.errtxt;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TBarcodeAztec }
|
||||
|
||||
procedure TBarcodeAztec.Generate;
|
||||
var
|
||||
ErrorCode: integer;
|
||||
begin
|
||||
if Assigned(FQR) then begin
|
||||
ZBarcode_Delete(FQR);
|
||||
FQR:=nil;
|
||||
end;
|
||||
if Length(FText)>0 then begin
|
||||
FQR:=ZBarcode_Create();
|
||||
with FQR^ do begin
|
||||
border_width:=0;
|
||||
end;
|
||||
ErrorCode:=aztec(FQR,@FText[1],Length(FText));
|
||||
if ErrorCode<>0 then begin
|
||||
FLastErrorString:=FQR^.errtxt;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TLazBarcodeCustomBase }
|
||||
|
||||
function TLazBarcodeCustomBase.GetStrictSize: Boolean;
|
||||
begin
|
||||
Result:=FStrictSize;
|
||||
end;
|
||||
|
||||
procedure TLazBarcodeCustomBase.SetStrictSize(const AValue: Boolean);
|
||||
begin
|
||||
if FStrictSize<>AValue then begin
|
||||
FStrictSize:=AValue;
|
||||
GenerateAndInvalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TLazBarcodeCustomBase.GetBackgroundColor: TColor;
|
||||
begin
|
||||
Result:=FBackgroundColor;
|
||||
end;
|
||||
|
||||
function TLazBarcodeCustomBase.GetForegroundColor: TColor;
|
||||
begin
|
||||
Result:=FForegroundColor;
|
||||
end;
|
||||
|
||||
procedure TLazBarcodeCustomBase.SetBackgroundColor(const AValue: TColor);
|
||||
begin
|
||||
if FBackgroundColor<>AValue then begin
|
||||
FBackgroundColor:=AValue;
|
||||
GenerateAndInvalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TLazBarcodeCustomBase.SetForegroundColor(const AValue: TColor);
|
||||
begin
|
||||
if FForegroundColor<>AValue then begin
|
||||
FForegroundColor:=AValue;
|
||||
GenerateAndInvalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TLazBarcodeCustomBase.GenerateAndInvalidate;
|
||||
begin
|
||||
Generate;
|
||||
Self.Invalidate;
|
||||
end;
|
||||
|
||||
procedure TLazBarcodeCustomBase.Paint;
|
||||
begin
|
||||
if mIsPainting then exit;
|
||||
mIsPainting:=true;
|
||||
intfPaintOnCanvas(Canvas, self.ClientRect);
|
||||
mIsPainting:=false;
|
||||
end;
|
||||
|
||||
procedure TLazBarcodeCustomBase.Resize;
|
||||
begin
|
||||
inherited Resize;
|
||||
Generate;
|
||||
end;
|
||||
|
||||
constructor TLazBarcodeCustomBase.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FBackgroundColor:=clWhite;
|
||||
FForegroundColor:=clBlack;
|
||||
FStrictSize:=true;
|
||||
end;
|
||||
|
||||
destructor TLazBarcodeCustomBase.Destroy;
|
||||
begin
|
||||
if Assigned(FQR) then begin
|
||||
ZBarcode_Delete(FQR);
|
||||
FQR:=nil;
|
||||
end;
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TLazBarcodeCustomBase.PaintOnCanvas(const aTargetCanvas: TCanvas;
|
||||
const aRect: TRect);
|
||||
begin
|
||||
//Destroy rendering
|
||||
Generate;
|
||||
//Create new rendering
|
||||
intfPaintOnCanvas(aTargetCanvas,aRect);
|
||||
//Destroy rendering, new rendering generated when paint called.
|
||||
Generate;
|
||||
end;
|
||||
|
||||
procedure TLazBarcodeCustomBase.intfPaintOnCanvas(const aTargetCanvas: TCanvas;
|
||||
const aRect: TRect);
|
||||
var
|
||||
ErrorCode: integer;
|
||||
Line: PointerTo_zint_render_line;
|
||||
BaseX,BaseY: integer;
|
||||
X,Y: integer;
|
||||
procedure ClearBackground;
|
||||
begin
|
||||
aTargetCanvas.Brush.Color:=FBackgroundColor;
|
||||
aTargetCanvas.FillRect(aRect);
|
||||
end;
|
||||
begin
|
||||
if not aTargetCanvas.HandleAllocated then exit;
|
||||
if not Assigned(FQR) then begin
|
||||
ClearBackground;
|
||||
exit;
|
||||
end;
|
||||
if not Assigned(FQR^.rendered) then begin
|
||||
X:=aRect.Right-aRect.Left+1;
|
||||
Y:=aRect.Bottom-aRect.Top+1;
|
||||
if not FStrictSize then begin
|
||||
ErrorCode:=render_plot(FQR,X,Y);
|
||||
end else begin
|
||||
BaseX:=FQR^.width+FQR^.border_width*2;
|
||||
BaseY:=FQR^.rows+FQR^.border_width*2;
|
||||
ErrorCode:=render_plot(FQR,X-(X mod BaseX),(Y-(Y mod BaseY)));
|
||||
end;
|
||||
if ErrorCode<>1 then begin
|
||||
FLastErrorString:=FQR^.errtxt;
|
||||
exit;
|
||||
end else begin
|
||||
FLastErrorString:='';
|
||||
end;
|
||||
end;
|
||||
if Assigned(FQR^.rendered) then begin
|
||||
Line:=FQR^.rendered^.lines;
|
||||
ClearBackground;
|
||||
aTargetCanvas.Brush.Color:=FForegroundColor;
|
||||
while Assigned(Line) do begin
|
||||
aTargetCanvas.FillRect( round(Line^.x)+aRect.Left,round(Line^.y)+aRect.Top,
|
||||
round(Line^.x+Line^.width)+aRect.Left,round(Line^.y+Line^.length)+aRect.Top);
|
||||
Line:=Line^.next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TLazBarcodeCustomText.GetText: UTF8String;
|
||||
begin
|
||||
Result:=FText;
|
||||
end;
|
||||
|
||||
procedure TLazBarcodeCustomText.SetText(const AValue: UTF8String);
|
||||
begin
|
||||
if FText<>AValue then begin
|
||||
FText:=AValue;
|
||||
GenerateAndInvalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TLazBarcodeCustomText.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FText:=ClassName;
|
||||
end;
|
||||
|
||||
{ TBarcodeQR }
|
||||
|
||||
procedure TBarcodeQR.SetECCLevel(const AValue: TBarcodeQR_ECCLevel);
|
||||
begin
|
||||
if FECCLevel=AValue then exit;
|
||||
FECCLevel:=AValue;
|
||||
GenerateAndInvalidate;
|
||||
end;
|
||||
|
||||
procedure TBarcodeQR.UpdateECCLevel;
|
||||
begin
|
||||
case FECCLevel of
|
||||
eBarcodeQR_ECCLevel_L: FQR^.option_1:=1;
|
||||
eBarcodeQR_ECCLevel_M: FQR^.option_1:=2;
|
||||
eBarcodeQR_ECCLevel_Q: FQR^.option_1:=3;
|
||||
eBarcodeQR_ECCLevel_H: FQR^.option_1:=4;
|
||||
else begin
|
||||
FQR^.option_1:=0;
|
||||
FECCLevel:=eBarcodeQR_ECCLevel_Auto;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBarcodeQR.Generate;
|
||||
var
|
||||
ErrorCode: integer;
|
||||
begin
|
||||
if Assigned(FQR) then begin
|
||||
ZBarcode_Delete(FQR);
|
||||
FQR:=nil;
|
||||
end;
|
||||
FQR:=ZBarcode_Create();
|
||||
with FQR^ do begin
|
||||
border_width:=4;
|
||||
end;
|
||||
UpdateECCLevel;
|
||||
ErrorCode:=qr_code(FQR,@FText[1],Length(FText));
|
||||
if ErrorCode<>0 then begin
|
||||
FLastErrorString:=FQR^.errtxt;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TBarcodeMicroQR }
|
||||
|
||||
procedure TBarcodeMicroQR.Generate;
|
||||
var
|
||||
ErrorCode: integer;
|
||||
begin
|
||||
if Assigned(FQR) then begin
|
||||
ZBarcode_Delete(FQR);
|
||||
FQR:=nil;
|
||||
end;
|
||||
FQR:=ZBarcode_Create();
|
||||
with FQR^ do begin
|
||||
border_width:=4;
|
||||
end;
|
||||
UpdateECCLevel;
|
||||
ErrorCode:=microqr(FQR,@FText[1],Length(FText));
|
||||
if ErrorCode<>0 then begin
|
||||
FLastErrorString:=FQR^.errtxt;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
120
components/lazbarcodes/src/ubasic.pas
Normal file
120
components/lazbarcodes/src/ubasic.pas
Normal file
@ -0,0 +1,120 @@
|
||||
unit ubasic;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils,zint,uhelper;
|
||||
|
||||
function ZBarcode_Create(): PointerTo_zint_symbol;
|
||||
procedure ZBarcode_Clear(symbol: PointerTo_zint_symbol);
|
||||
procedure ZBarcode_Delete(symbol: PointerTo_zint_symbol);
|
||||
|
||||
implementation
|
||||
|
||||
function ZBarcode_Create(): PointerTo_zint_symbol;
|
||||
var
|
||||
symbol: PointerTo_zint_symbol;
|
||||
i: Integer;
|
||||
begin
|
||||
symbol := GetMem (SizeOf (zint_symbol));
|
||||
if not Assigned(symbol) then
|
||||
begin
|
||||
exit (nil);
|
||||
end;
|
||||
FillByte(symbol^, SizeOf (zint_symbol),0);
|
||||
symbol^.symbology := BARCODE_CODE128;
|
||||
symbol^.height := 0;
|
||||
symbol^.whitespace_width := 0;
|
||||
symbol^.border_width := 0;
|
||||
symbol^.output_options := 0;
|
||||
symbol^.rows := 0;
|
||||
symbol^.width := 0;
|
||||
strcpy (symbol^.fgcolour, '000000');
|
||||
strcpy (symbol^.bgcolour, 'ffffff');
|
||||
strcpy (symbol^.outfile, '');
|
||||
symbol^.scale := 1.0;
|
||||
symbol^.option_1 := -1;
|
||||
symbol^.option_2 := 0;
|
||||
symbol^.option_3 := 928;
|
||||
symbol^.show_hrt := 1;
|
||||
symbol^.input_mode := DATA_MODE;
|
||||
strcpy (symbol^.primary, '');
|
||||
FillByte (symbol^.encoded_data[0][0], SizeOf (symbol^.encoded_data),0);
|
||||
i := 0;
|
||||
while i < 178 do
|
||||
begin
|
||||
symbol^.row_height[i] := 0;
|
||||
Inc (i);
|
||||
end;
|
||||
symbol^.bitmap := nil;
|
||||
symbol^.bitmap_width := 0;
|
||||
symbol^.bitmap_height := 0;
|
||||
exit (symbol);
|
||||
end;
|
||||
|
||||
procedure ZBarcode_Clear(symbol: PointerTo_zint_symbol);
|
||||
var
|
||||
j: Integer;
|
||||
i: Integer;
|
||||
begin
|
||||
i := 0;
|
||||
while i < symbol^.rows do
|
||||
begin
|
||||
j := 0;
|
||||
while j < symbol^.width do
|
||||
begin
|
||||
unset_module (symbol, i, j);
|
||||
Inc (j);
|
||||
end;
|
||||
Inc (i);
|
||||
end;
|
||||
symbol^.rows := 0;
|
||||
symbol^.width := 0;
|
||||
symbol^.text[0] := 0;
|
||||
symbol^.errtxt[0] := #0;
|
||||
if Assigned(symbol^.bitmap) then
|
||||
begin
|
||||
FreeMem (symbol^.bitmap);
|
||||
end;
|
||||
symbol^.bitmap := nil;
|
||||
symbol^.bitmap_width := 0;
|
||||
symbol^.bitmap_height := 0;
|
||||
end;
|
||||
|
||||
procedure ZBarcode_Delete(symbol: PointerTo_zint_symbol);
|
||||
var
|
||||
l: PointerTo_zint_render_line;
|
||||
line: PointerTo_zint_render_line;
|
||||
s: PointerTo_zint_render_string;
|
||||
TheString: PointerTo_zint_render_string;
|
||||
begin
|
||||
if Boolean(symbol^.bitmap <> nil) then
|
||||
begin
|
||||
FreeMem (symbol^.bitmap);
|
||||
end;
|
||||
if Boolean(symbol^.rendered <> nil) then
|
||||
begin
|
||||
line := symbol^.rendered^.lines;
|
||||
while Assigned(line) do
|
||||
begin
|
||||
l := line;
|
||||
line := line^.next;
|
||||
FreeMem (l);
|
||||
end;
|
||||
TheString := symbol^.rendered^.strings;
|
||||
while Assigned(TheString) do
|
||||
begin
|
||||
s := TheString;
|
||||
TheString := TheString^.next;
|
||||
FreeMem (s^.text);
|
||||
FreeMem (s);
|
||||
end;
|
||||
FreeMem (symbol^.rendered);
|
||||
end;
|
||||
FreeMem (symbol);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
1329
components/lazbarcodes/src/udatamatrix.pas
Normal file
1329
components/lazbarcodes/src/udatamatrix.pas
Normal file
File diff suppressed because it is too large
Load Diff
485
components/lazbarcodes/src/uhelper.pas
Normal file
485
components/lazbarcodes/src/uhelper.pas
Normal file
@ -0,0 +1,485 @@
|
||||
unit uhelper;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses sysutils,zint;
|
||||
|
||||
const RHODIUM = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ $%*+-./:';
|
||||
const NEON = '0123456789';
|
||||
|
||||
function IsTrue(aBoolean: Boolean): Boolean;
|
||||
function IsTrue(aInteger: Integer): Boolean;
|
||||
function iif(const aBoolean: integer; const aCh1,aCh2: pchar): pchar;
|
||||
function iif(const aBoolean: integer; const aCh1,aCh2: char): char;
|
||||
function iif(const aBoolean: Boolean; const aV1,aV2: Word): word;
|
||||
procedure concat(const aText: pchar; const aChar: char);
|
||||
procedure concat(const aText: pchar; const aText2: pchar);
|
||||
procedure concat(var aText: array of char; const aText2: pchar);
|
||||
procedure strcpy(const aText: pchar; const aText2: pchar);
|
||||
procedure strcpy(var aText: array of char; const aText2: pchar); overload;
|
||||
function posn(const aText: pchar; const aChar: Char): integer;
|
||||
function strlen(const aText: array of char): integer;
|
||||
function is_sane(test_string: PChar; source: PBYTE; length: Integer): Integer;
|
||||
function utf8toutf16(symbol: PointerTo_zint_symbol; source: PBYTE; vals: PInteger; length: PInteger): Integer;
|
||||
procedure set_module(symbol: PointerTo_zint_symbol; y_coord: Integer; x_coord: Integer);
|
||||
procedure unset_module(symbol: PointerTo_zint_symbol; y_coord: Integer; x_coord: Integer);
|
||||
function module_is_set(symbol: PointerTo_zint_symbol; y_coord: Integer; x_coord: Integer): Boolean;
|
||||
function PostInc(var v: integer): integer;
|
||||
function PostDec(var v: integer): integer;
|
||||
function is_extendable(symbology: Integer): Boolean;
|
||||
function is_stackable(symbology: Integer): Boolean;
|
||||
function NotBoolean(const aValue: integer): Boolean;
|
||||
function NotBoolean(const aValue: Boolean): Boolean;
|
||||
function latin1_process(symbol: PointerTo_zint_symbol; source: PBYTE; preprocessed: PBYTE; length: PInteger): Integer;
|
||||
function ctoi(c: char): integer;
|
||||
function ctoi(c: BYTE): integer;
|
||||
function BooleanNot(const aValue: integer): Boolean;
|
||||
procedure memset(const p: Pointer; const aValue: BYTE; const aSize: integer);
|
||||
function istwodigits(source: PBYTE; position: Integer): Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
function istwodigits(source: PBYTE; position: Integer): Boolean;
|
||||
begin
|
||||
if (Char(source[position]) in ['0'..'9']) and (Char(source[position+1]) in ['0'..'9']) then begin
|
||||
Result:=true;
|
||||
end else begin
|
||||
Result:=false;
|
||||
end;
|
||||
end;
|
||||
|
||||
function PostInc(var v: integer): integer;
|
||||
begin
|
||||
Result:=v;
|
||||
inc(v);
|
||||
end;
|
||||
|
||||
function PostDec(var v: integer): integer;
|
||||
begin
|
||||
Result:=v;
|
||||
Dec(v);
|
||||
end;
|
||||
|
||||
function IsTrue(aBoolean: Boolean): Boolean;
|
||||
begin
|
||||
Result:=aBoolean;
|
||||
end;
|
||||
|
||||
function IsTrue(aInteger: Integer): Boolean;
|
||||
begin
|
||||
if aInteger=0 then Result:=false else Result:=true;
|
||||
end;
|
||||
|
||||
function iif(const aBoolean: integer; const aCh1, aCh2: pchar): pchar;
|
||||
begin
|
||||
if aBoolean=0 then begin
|
||||
Result:=aCh2;
|
||||
end else begin
|
||||
Result:=aCh1;
|
||||
end;
|
||||
end;
|
||||
|
||||
function iif(const aBoolean: integer; const aCh1,aCh2: char): char;
|
||||
begin
|
||||
if aBoolean=0 then begin
|
||||
Result:=aCh2;
|
||||
end else begin
|
||||
Result:=aCh1;
|
||||
end;
|
||||
end;
|
||||
|
||||
function iif(const aBoolean: Boolean; const aV1,aV2: Word): word;
|
||||
begin
|
||||
if aBoolean then Result:=aV1 else Result:=aV2;
|
||||
end;
|
||||
|
||||
procedure concat(const aText: pchar; const aChar: char);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
i:=sysutils.strlen(aText);
|
||||
aText[i]:=aChar;
|
||||
inc(i);
|
||||
aText[i]:=#0;
|
||||
end;
|
||||
|
||||
procedure concat(const aText: pchar; const aText2: pchar);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
i:=sysutils.strlen(aText);
|
||||
move(aText2^,aText[i],sysutils.strlen(aText2)+1);
|
||||
end;
|
||||
|
||||
procedure concat(var aText: array of char; const aText2: pchar);
|
||||
begin
|
||||
concat(pchar(@aText[0]),aText2);
|
||||
end;
|
||||
|
||||
procedure strcpy(const aText: pchar; const aText2: pchar);
|
||||
begin
|
||||
move(aText2^,aText^,sysutils.strlen(aText2)+1);
|
||||
end;
|
||||
|
||||
procedure strcpy(var aText: array of char; const aText2: pchar);
|
||||
begin
|
||||
move(aText2^,aText[0],sysutils.strlen(aText2)+1);
|
||||
end;
|
||||
|
||||
function posn(const aText: pchar; const aChar: Char): integer;
|
||||
var
|
||||
p: Pchar;
|
||||
c: integer;
|
||||
begin
|
||||
p:=aText;
|
||||
c:=0;
|
||||
while p^<>#0 do begin
|
||||
if p^<>aChar then begin
|
||||
inc(c);
|
||||
inc(p);
|
||||
end else begin
|
||||
Exit(c);
|
||||
end;
|
||||
end;
|
||||
Result:=0;
|
||||
end;
|
||||
|
||||
function strlen(const aText: array of char): integer;
|
||||
begin
|
||||
Result:=sysutils.strlen(pchar(@aText[0]));
|
||||
end;
|
||||
|
||||
function is_sane(test_string: PChar; source: PBYTE; length: Integer): Integer;
|
||||
var
|
||||
latch: Boolean;
|
||||
j: Cardinal;
|
||||
i: Integer;
|
||||
lt: Cardinal;
|
||||
begin
|
||||
{INITCODE} lt := sysutils.strlen (test_string);
|
||||
i := 0;
|
||||
while i < length do
|
||||
begin
|
||||
latch := FALSE;
|
||||
j := 0;
|
||||
while j < lt do
|
||||
begin
|
||||
if Boolean(source[i] = BYTE(test_string[j])) then
|
||||
begin
|
||||
latch := TRUE;
|
||||
break;
|
||||
end;
|
||||
Inc (j);
|
||||
end;
|
||||
if Boolean(NotBoolean (latch)) then
|
||||
begin
|
||||
exit (ERROR_INVALID_DATA);
|
||||
end;
|
||||
Inc (i);
|
||||
end;
|
||||
exit (0);
|
||||
end;
|
||||
|
||||
function utf8toutf16(symbol: PointerTo_zint_symbol; source: PBYTE; vals: PInteger; length: PInteger): Integer;
|
||||
var
|
||||
error_number: Integer;
|
||||
jpos: Integer;
|
||||
bpos: Integer;
|
||||
next: Integer;
|
||||
begin
|
||||
bpos := 0;
|
||||
jpos := 0;
|
||||
error_number := 0;
|
||||
next := 0;
|
||||
repeat
|
||||
if source[bpos] <= $7F then
|
||||
begin
|
||||
vals[jpos] := source[bpos];
|
||||
next := bpos + 1;
|
||||
Inc (jpos);
|
||||
end else begin
|
||||
if (source[bpos] >= $80) and (source[bpos] <= $BF) then
|
||||
begin
|
||||
strcpy (symbol^.errtxt, 'Corrupt Unicode data');
|
||||
exit (ERROR_INVALID_DATA);
|
||||
end;
|
||||
if (source[bpos] >= $C0) and (source[bpos] <= $C1) then
|
||||
begin
|
||||
strcpy (symbol^.errtxt, 'Overlong encoding not supported');
|
||||
exit (ERROR_INVALID_DATA);
|
||||
end;
|
||||
if (source[bpos] >= $C2) and (source[bpos] <= $DF) then
|
||||
begin
|
||||
vals[jpos] := ((source[bpos] and $1F) shl 6) + (source[bpos + 1] and $3F);
|
||||
next := bpos + 2;
|
||||
Inc (jpos);
|
||||
end else begin
|
||||
if (source[bpos] >= $E0) and (source[bpos] <= $EF) then
|
||||
begin
|
||||
vals[jpos] := ((source[bpos] and $0F) shl 12) + ((source[bpos + 1] and $3F) shl 6) + (source[bpos + 2] and $3F);
|
||||
next := bpos + 3;
|
||||
Inc (jpos);
|
||||
end else begin
|
||||
if source[bpos] >= $F0 then
|
||||
begin
|
||||
strcpy (symbol^.errtxt, 'Unicode sequences of more than 3 bytes not supported');
|
||||
exit (ERROR_INVALID_DATA);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
bpos := next;
|
||||
until not (bpos < length^);
|
||||
length^ := jpos;
|
||||
exit (error_number);
|
||||
end;
|
||||
|
||||
function module_is_set(symbol: PointerTo_zint_symbol; y_coord: Integer; x_coord: Integer): Boolean;
|
||||
var
|
||||
x_sub: Integer;
|
||||
x_char: Integer;
|
||||
begin
|
||||
x_char := x_coord div 7;
|
||||
x_sub := x_coord mod 7;
|
||||
{$PUSH}{$R-}
|
||||
Result:=((symbol^.encoded_data[y_coord][x_coord div 7] shr (x_coord mod 7)) and 1)<>0;
|
||||
{$POP}
|
||||
exit;
|
||||
|
||||
Result:=false;
|
||||
case x_sub of
|
||||
0: if Boolean((symbol^.encoded_data[y_coord][x_char] and $01) <> 0) then
|
||||
begin
|
||||
result := true;
|
||||
end;
|
||||
1: if Boolean((symbol^.encoded_data[y_coord][x_char] and $02) <> 0) then
|
||||
begin
|
||||
result := true;
|
||||
end;
|
||||
2: if Boolean((symbol^.encoded_data[y_coord][x_char] and $04) <> 0) then
|
||||
begin
|
||||
result := true;
|
||||
end;
|
||||
3: if Boolean((symbol^.encoded_data[y_coord][x_char] and $08) <> 0) then
|
||||
begin
|
||||
result := true;
|
||||
end;
|
||||
4: if Boolean((symbol^.encoded_data[y_coord][x_char] and $10) <> 0) then
|
||||
begin
|
||||
result := true;
|
||||
end;
|
||||
5: if Boolean((symbol^.encoded_data[y_coord][x_char] and $20) <> 0) then
|
||||
begin
|
||||
result := true;
|
||||
end;
|
||||
6: if Boolean((symbol^.encoded_data[y_coord][x_char] and $40) <> 0) then
|
||||
begin
|
||||
result := true;
|
||||
end;
|
||||
else
|
||||
result:=false;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure set_module(symbol: PointerTo_zint_symbol; y_coord: Integer; x_coord: Integer);
|
||||
var
|
||||
x_sub: Integer;
|
||||
x_char: Integer;
|
||||
begin
|
||||
x_char := x_coord div 7;
|
||||
x_sub := x_coord mod 7;
|
||||
case x_sub of
|
||||
0: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] + $01;
|
||||
1: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] + $02;
|
||||
2: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] + $04;
|
||||
3: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] + $08;
|
||||
4: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] + $10;
|
||||
5: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] + $20;
|
||||
6: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] + $40;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure unset_module(symbol: PointerTo_zint_symbol; y_coord: Integer; x_coord: Integer);
|
||||
var
|
||||
x_sub: Integer;
|
||||
x_char: Integer;
|
||||
begin
|
||||
x_char := x_coord div 7;
|
||||
x_sub := x_coord mod 7;
|
||||
case x_sub of
|
||||
0: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] - $01;
|
||||
1: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] - $02;
|
||||
2: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] - $04;
|
||||
3: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] - $08;
|
||||
4: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] - $10;
|
||||
5: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] - $20;
|
||||
6: symbol^.encoded_data[y_coord][x_char] := symbol^.encoded_data[y_coord][x_char] - $40;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure to_upper(a: PBYTE);
|
||||
begin
|
||||
while a^<>0 do begin
|
||||
if char(a^) in ['a'..'z'] then begin
|
||||
a^:=BYTE(upCase(char(a^)));
|
||||
end;
|
||||
inc(a);
|
||||
end;
|
||||
end;
|
||||
|
||||
function ctoi(c: char): integer;
|
||||
begin
|
||||
if c in ['0'..'9'] then begin
|
||||
Result:=BYTE(c)-48;
|
||||
end else begin
|
||||
Result:=-1;
|
||||
end;
|
||||
end;
|
||||
|
||||
function ctoi(c: BYTE): integer;
|
||||
begin
|
||||
Result:=ctoi(char(c));
|
||||
end;
|
||||
|
||||
function BooleanNot(const aValue: integer): Boolean;
|
||||
begin
|
||||
Result:=NotBoolean(aValue);
|
||||
end;
|
||||
|
||||
procedure memset(const p: Pointer; const aValue: BYTE; const aSize: integer);
|
||||
begin
|
||||
FillByte(PBYTE(p)^,aSize,aValue);
|
||||
end;
|
||||
|
||||
function is_extendable(symbology: Integer): Boolean;
|
||||
begin
|
||||
if symbology = BARCODE_EANX then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_UPCA then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_UPCE then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_ISBNX then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_UPCA_CC then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_UPCE_CC then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_EANX_CC then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
exit (false);
|
||||
end;
|
||||
|
||||
function is_stackable(symbology: Integer): Boolean;
|
||||
begin
|
||||
if symbology < BARCODE_PDF417 then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_CODE128B then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_ISBNX then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_EAN14 then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_NVE18 then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_KOREAPOST then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_PLESSEY then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_TELEPEN_NUM then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_ITF14 then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
if symbology = BARCODE_CODE32 then
|
||||
begin
|
||||
exit (true);
|
||||
end;
|
||||
exit (false);
|
||||
end;
|
||||
|
||||
function NotBoolean(const aValue: integer): Boolean;
|
||||
begin
|
||||
if aValue=0 then Result:=true else Result:=false;
|
||||
end;
|
||||
|
||||
function NotBoolean(const aValue: Boolean): Boolean;
|
||||
begin
|
||||
if aValue=false then Result:=true else Result:=false;
|
||||
end;
|
||||
|
||||
function latin1_process(symbol: PointerTo_zint_symbol; source: PBYTE; preprocessed: PBYTE; length: PInteger): Integer;
|
||||
var
|
||||
next: Integer;
|
||||
i: Integer;
|
||||
j: Integer;
|
||||
begin
|
||||
j := 0;
|
||||
i := 0;
|
||||
repeat
|
||||
next := -1;
|
||||
if Boolean(source[i] < 128) then
|
||||
begin
|
||||
preprocessed[j] := source[i];
|
||||
Inc (j);
|
||||
next := i + 1;
|
||||
end else begin
|
||||
if Boolean(source[i] = $C2) then
|
||||
begin
|
||||
preprocessed[j] := source[i + 1];
|
||||
Inc (j);
|
||||
next := i + 2;
|
||||
end;
|
||||
if Boolean(source[i] = $C3) then
|
||||
begin
|
||||
preprocessed[j] := source[i + 1] + 64;
|
||||
Inc (j);
|
||||
next := i + 2;
|
||||
end;
|
||||
end;
|
||||
if Boolean(next = -1) then
|
||||
begin
|
||||
strcpy (symbol^.errtxt, 'error: Invalid character in input string (only Latin-1 characters supported)');
|
||||
exit (ERROR_INVALID_DATA);
|
||||
end;
|
||||
i := next;
|
||||
until not (i < length^);
|
||||
preprocessed[j] := 0;
|
||||
length^ := j;
|
||||
exit (0);
|
||||
end;
|
||||
|
||||
end.
|
||||
3507
components/lazbarcodes/src/uqr.pas
Normal file
3507
components/lazbarcodes/src/uqr.pas
Normal file
File diff suppressed because it is too large
Load Diff
172
components/lazbarcodes/src/ureedsolomon.pas
Normal file
172
components/lazbarcodes/src/ureedsolomon.pas
Normal file
@ -0,0 +1,172 @@
|
||||
unit ureedsolomon;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
procedure rs_init_gf(poly: Integer);
|
||||
procedure rs_init_code(nsym: Integer; index: Integer);
|
||||
procedure rs_encode(len: Integer; data: PBYTE; res: PBYTE);
|
||||
procedure rs_encode_long(len: Integer; data: PCardinal; res: PCardinal);
|
||||
procedure rs_free();
|
||||
|
||||
implementation
|
||||
|
||||
var
|
||||
// gfpoly: integer;
|
||||
// symsize: integer; // in bits
|
||||
logmod: integer; // 2**symsize - 1
|
||||
rlen: integer;
|
||||
|
||||
logt: PInteger = nil;
|
||||
alog: PInteger = nil;
|
||||
rspoly: PInteger = nil;
|
||||
|
||||
procedure rs_init_gf(poly: Integer);
|
||||
var
|
||||
b: Integer;
|
||||
p: Integer;
|
||||
v: Integer;
|
||||
m: Integer;
|
||||
begin
|
||||
b := 1;
|
||||
m := 0;
|
||||
while b <= poly do
|
||||
begin
|
||||
Inc (m);
|
||||
b := b shl 1;
|
||||
end;
|
||||
b := b shr 1;
|
||||
Dec (m);
|
||||
// gfpoly := poly;
|
||||
// symsize := m;
|
||||
logmod := (1 shl m) - 1;
|
||||
logt := PInteger (GetMem (SizeOf (Integer) * (logmod + 1)));
|
||||
alog := PInteger (GetMem (SizeOf (Integer) * logmod));
|
||||
p := 1;
|
||||
v := 0;
|
||||
while v < logmod do
|
||||
begin
|
||||
alog[v] := p;
|
||||
logt[p] := v;
|
||||
p := p shl 1;
|
||||
if (p and b)<>0 then
|
||||
begin
|
||||
p:=p xor poly;
|
||||
end;
|
||||
Inc (v);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure rs_init_code(nsym: Integer; index: Integer);
|
||||
var
|
||||
k: Integer;
|
||||
i: Integer;
|
||||
begin
|
||||
rspoly := PInteger (GetMem (SizeOf (Integer) * (nsym + 1)));
|
||||
rlen := nsym;
|
||||
rspoly[0] := 1;
|
||||
i := 1;
|
||||
while i <= nsym do
|
||||
begin
|
||||
rspoly[i] := 1;
|
||||
k := i - 1;
|
||||
while k > 0 do
|
||||
begin
|
||||
if rspoly[k]<>0 then
|
||||
begin
|
||||
rspoly[k] := alog[(logt[rspoly[k]] + index) mod logmod];
|
||||
end;
|
||||
rspoly[k] := rspoly[k] xor rspoly[k - 1];
|
||||
Dec (k);
|
||||
end;
|
||||
rspoly[0] := alog[(logt[rspoly[0]] + index) mod logmod];
|
||||
Inc (index);
|
||||
Inc (i);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure rs_encode(len: Integer; data: PBYTE; res: PBYTE);
|
||||
var
|
||||
k: Integer;
|
||||
m: Integer;
|
||||
i: Integer;
|
||||
begin
|
||||
i := 0;
|
||||
while i < rlen do
|
||||
begin
|
||||
res[i] := 0;
|
||||
Inc (i);
|
||||
end;
|
||||
i := 0;
|
||||
while i < len do
|
||||
begin
|
||||
m := res[rlen - 1] xor data[i];
|
||||
k := rlen - 1;
|
||||
while k > 0 do
|
||||
begin
|
||||
if (m<>0) and (rspoly[k]<>0) then
|
||||
begin
|
||||
res[k] := integer(res[k - 1]) xor alog[(logt[m] + logt[rspoly[k]]) mod logmod];
|
||||
end else begin
|
||||
res[k] := integer(res[k - 1]);
|
||||
end;
|
||||
Dec (k);
|
||||
end;
|
||||
if (m<>0) and (rspoly[0]<>0) then
|
||||
begin
|
||||
res[0] := alog[(logt[m] + logt[rspoly[0]]) mod logmod];
|
||||
end else begin
|
||||
res[0] := 0;
|
||||
end;
|
||||
Inc (i);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure rs_encode_long(len: Integer; data: PCardinal; res: PCardinal);
|
||||
var
|
||||
k: Integer;
|
||||
m: Integer;
|
||||
i: Integer;
|
||||
begin
|
||||
i := 0;
|
||||
while i < rlen do
|
||||
begin
|
||||
res[i] := 0;
|
||||
Inc (i);
|
||||
end;
|
||||
i := 0;
|
||||
while i < len do
|
||||
begin
|
||||
m := res[rlen - 1] xor data[i];
|
||||
k := rlen - 1;
|
||||
while k > 0 do
|
||||
begin
|
||||
if (m<>0) and (rspoly[k]<>0) then
|
||||
begin
|
||||
res[k] := Integer(res[k - 1]) xor alog[(logt[m] + logt[rspoly[k]]) mod logmod];
|
||||
end else begin
|
||||
res[k] := res[k - 1];
|
||||
end;
|
||||
Dec (k);
|
||||
end;
|
||||
if (m<>0) and (rspoly[0]<>0) then
|
||||
begin
|
||||
res[0] := alog[(logt[m] + logt[rspoly[0]]) mod logmod];
|
||||
end else begin
|
||||
res[0] := 0;
|
||||
end;
|
||||
Inc (i);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure rs_free();
|
||||
begin
|
||||
freeMem (logt);
|
||||
freeMem (alog);
|
||||
freeMem (rspoly);
|
||||
rspoly := nil;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
782
components/lazbarcodes/src/urender.pas
Normal file
782
components/lazbarcodes/src/urender.pas
Normal file
@ -0,0 +1,782 @@
|
||||
unit urender;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils,zint,uhelper;
|
||||
|
||||
function render_plot_create_line(x: Single; y: Single; width: Single; length: Single): PointerTo_zint_render_line;
|
||||
function render_plot_add_line(symbol: PointerTo_zint_symbol; line: PointerTo_zint_render_line; last_line: PointerTo_PointerTo_zint_render_line): Integer;
|
||||
function render_plot_create_ring(x: Single; y: Single; radius: Single; line_width: Single): PointerTo_zint_render_ring;
|
||||
function render_plot_add_ring(symbol: PointerTo_zint_symbol; ring: PointerTo_zint_render_ring; last_ring: PointerTo_PointerTo_zint_render_ring): Integer;
|
||||
function render_plot_create_hexagon(x: Single; y: Single): PointerTo_zint_render_hexagon;
|
||||
function render_plot_add_hexagon(symbol: PointerTo_zint_symbol; hexagon: PointerTo_zint_render_hexagon; last_hexagon: PointerTo_PointerTo_zint_render_hexagon): Integer;
|
||||
function render_plot_add_string(symbol: PointerTo_zint_symbol; text: PBYTE; x: Single; y: Single; fsize: Single; width: Single; last_string: PointerTo_PointerTo_zint_render_string): Integer;
|
||||
function render_plot(symbol: PointerTo_zint_symbol; width: Single; height: Single): Integer;
|
||||
|
||||
implementation
|
||||
|
||||
const GL_CONST=2.8346;
|
||||
|
||||
function render_plot(symbol: PointerTo_zint_symbol; width: Single; height: Single): Integer;
|
||||
var
|
||||
render: PointerTo_zint_render;
|
||||
last_line: PointerTo_zint_render_line = nil;
|
||||
line: PointerTo_zint_render_line = nil;
|
||||
last_string: PointerTo_zint_render_string = nil;
|
||||
//last_ring: PointerTo_zint_render_ring = nil;
|
||||
//ring: PointerTo_zint_render_ring = nil;
|
||||
//last_hexagon: PointerTo_zint_render_hexagon = nil;
|
||||
//hexagon: PointerTo_zint_render_hexagon = nil;
|
||||
this_row: Integer;
|
||||
latch: Integer;
|
||||
block_width: Integer;
|
||||
r: Integer;
|
||||
i: Integer;
|
||||
row_posn: Single = 0.0;
|
||||
row_height: Single = 0.0;
|
||||
preset_height: Single = 0.0;
|
||||
large_bar_height: Single = 0.0;
|
||||
textwidth: Single = 0.0;
|
||||
textpos: Single = 0.0;
|
||||
addon_width_x: Integer;
|
||||
main_symbol_width_x: Integer;
|
||||
textdone: Integer;
|
||||
yoffset: Integer;
|
||||
xoffset: Integer;
|
||||
text_height: Integer;
|
||||
text_offset: Integer;
|
||||
textpart: array [0..10-1] of Char;
|
||||
addon: array [0..6-1] of Char;
|
||||
total_area_width_x: Integer;
|
||||
total_symbol_width_x: Integer;
|
||||
symbol_lead_in: Integer;
|
||||
large_bar_count: Integer;
|
||||
addon_text_posn: Single;
|
||||
default_text_posn: Single;
|
||||
scaler: Single;
|
||||
//locale: pchar = nil;
|
||||
hide_text: Integer = 0;
|
||||
required_aspect: Single;
|
||||
symbol_aspect: Single = 1;
|
||||
x_dimension: Single;
|
||||
upceanflag: Integer = 0;
|
||||
addon_latch: Integer = 0;
|
||||
begin
|
||||
Result:=0;
|
||||
{INITCODE} last_line := nil;
|
||||
{INITCODE} line := nil;
|
||||
{INITCODE} last_string := nil;
|
||||
//{INITCODE} last_ring := nil;
|
||||
//{INITCODE} ring := nil;
|
||||
//{INITCODE} last_hexagon := nil;
|
||||
//{INITCODE} hexagon := nil;
|
||||
{INITCODE} row_posn := 0.0;
|
||||
{INITCODE} row_height := 0.0;
|
||||
{INITCODE} preset_height := 0.0;
|
||||
{INITCODE} large_bar_height := 0.0;
|
||||
{INITCODE} textwidth := 0.0;
|
||||
{INITCODE} textpos := 0.0;
|
||||
//{INITCODE} locale := nil;
|
||||
{INITCODE} hide_text := 0;
|
||||
{INITCODE} symbol_aspect := 1;
|
||||
{INITCODE} upceanflag := 0;
|
||||
GetMem(Symbol^.rendered,sizeof(zint_render));
|
||||
render:=Symbol^.rendered;
|
||||
|
||||
render^.lines := nil;
|
||||
render^.strings := nil;
|
||||
render^.rings := nil;
|
||||
render^.hexagons := nil;
|
||||
// locale := setlocale (LC_ALL, 'C');
|
||||
row_height := 0;
|
||||
textdone := 0;
|
||||
textpos := 0.0;
|
||||
main_symbol_width_x := symbol^.width;
|
||||
addon[0]:=#0;
|
||||
strcpy (addon, '');
|
||||
symbol_lead_in := 0;
|
||||
addon_text_posn := 0.0;
|
||||
addon_width_x := 0;
|
||||
latch := 0;
|
||||
r := 0;
|
||||
if IsTrue(is_extendable (symbol^.symbology)) then
|
||||
begin
|
||||
i := 0;
|
||||
while i < sysutils.strlen (@symbol^.text[0]) do
|
||||
begin
|
||||
if IsTrue(latch = 1) then
|
||||
begin
|
||||
addon[r] := char(symbol^.text[i]);
|
||||
Inc (r);
|
||||
end;
|
||||
if IsTrue(char(symbol^.text[i]) = '+') then
|
||||
begin
|
||||
latch := 1;
|
||||
end;
|
||||
Inc (i);
|
||||
end;
|
||||
end;
|
||||
addon[r] := #0;
|
||||
if (symbol^.show_hrt=0) or (sysutils.strlen (@symbol^.text[0]) = 0) then
|
||||
begin
|
||||
hide_text := 1;
|
||||
text_offset := 0;
|
||||
text_height := 0;
|
||||
end else begin
|
||||
text_height := 9;
|
||||
text_offset := 2;
|
||||
end;
|
||||
while not (module_is_set (symbol, symbol^.rows - 1, symbol_lead_in)) do
|
||||
begin
|
||||
Inc (symbol_lead_in);
|
||||
end;
|
||||
if IsTrue(((((((symbol^.symbology = BARCODE_EANX)) and ((symbol^.rows = 1)))) or ((symbol^.symbology = BARCODE_EANX_CC)))) or ((symbol^.symbology = BARCODE_ISBNX))) then
|
||||
begin
|
||||
case sysutils.strlen (@symbol^.text[0]) of
|
||||
13,
|
||||
16,
|
||||
19:
|
||||
begin
|
||||
if IsTrue(symbol^.whitespace_width = 0) then
|
||||
begin
|
||||
symbol^.whitespace_width := 10;
|
||||
end;
|
||||
main_symbol_width_x := 96 + symbol_lead_in;
|
||||
upceanflag := 13;
|
||||
end;
|
||||
2:
|
||||
begin
|
||||
main_symbol_width_x := 22 + symbol_lead_in;
|
||||
upceanflag := 2;
|
||||
end;
|
||||
5:
|
||||
begin
|
||||
main_symbol_width_x := 49 + symbol_lead_in;
|
||||
upceanflag := 5;
|
||||
end;
|
||||
otherwise
|
||||
begin
|
||||
main_symbol_width_x := 68 + symbol_lead_in;
|
||||
upceanflag := 8;
|
||||
end;
|
||||
end;
|
||||
case sysutils.strlen (@symbol^.text[0]) of
|
||||
11,
|
||||
16: addon_width_x := 31;
|
||||
14,
|
||||
19: addon_width_x := 58;
|
||||
end;
|
||||
end;
|
||||
if IsTrue(((((symbol^.symbology = BARCODE_UPCA)) and ((symbol^.rows = 1)))) or ((symbol^.symbology = BARCODE_UPCA_CC))) then
|
||||
begin
|
||||
upceanflag := 12;
|
||||
if Boolean(symbol^.whitespace_width < 10) then
|
||||
begin
|
||||
symbol^.whitespace_width := 10;
|
||||
main_symbol_width_x := 96 + symbol_lead_in;
|
||||
end;
|
||||
case sysutils.strlen (@symbol^.text[0]) of
|
||||
15: addon_width_x := 31;
|
||||
18: addon_width_x := 58;
|
||||
end;
|
||||
end;
|
||||
if Boolean(((((symbol^.symbology = BARCODE_UPCE)) and ((symbol^.rows = 1)))) or ((symbol^.symbology = BARCODE_UPCE_CC))) then
|
||||
begin
|
||||
upceanflag := 6;
|
||||
if symbol^.whitespace_width = 0 then
|
||||
begin
|
||||
symbol^.whitespace_width := 10;
|
||||
main_symbol_width_x := 51 + symbol_lead_in;
|
||||
end;
|
||||
case sysutils.strlen (@symbol^.text[0]) of
|
||||
11: addon_width_x := 31;
|
||||
14: addon_width_x := 58;
|
||||
end;
|
||||
end;
|
||||
total_symbol_width_x := main_symbol_width_x + addon_width_x;
|
||||
total_area_width_x := total_symbol_width_x + (2 * (symbol^.border_width + symbol^.whitespace_width));
|
||||
xoffset := symbol^.border_width + symbol^.whitespace_width;
|
||||
yoffset := symbol^.border_width;
|
||||
large_bar_count := 0;
|
||||
preset_height := 0.0;
|
||||
i := 0;
|
||||
while i < symbol^.rows do
|
||||
begin
|
||||
preset_height := preset_height + (symbol^.row_height[i]);
|
||||
if symbol^.row_height[i] = 0 then
|
||||
begin
|
||||
Inc (large_bar_count);
|
||||
end;
|
||||
Inc (i);
|
||||
end;
|
||||
if large_bar_count = 0 then
|
||||
begin
|
||||
required_aspect := width / height;
|
||||
symbol_aspect := (total_symbol_width_x + (2 * xoffset)) / (preset_height + (2 * yoffset) + text_offset + text_height);
|
||||
symbol^.height := trunc(preset_height);
|
||||
if required_aspect > symbol_aspect then
|
||||
begin
|
||||
scaler := height / (preset_height + (2 * yoffset) + text_offset + text_height);
|
||||
render^.width := symbol_aspect * height;
|
||||
render^.height := height;
|
||||
end else begin
|
||||
scaler := width / (total_symbol_width_x + (2 * xoffset));
|
||||
render^.width := width;
|
||||
render^.height := width / symbol_aspect;
|
||||
end;
|
||||
end else begin
|
||||
scaler := width / (total_symbol_width_x + (2 * xoffset));
|
||||
symbol^.height := Trunc((height / scaler) - ((2 * yoffset) + text_offset + text_height));
|
||||
render^.width := width;
|
||||
render^.height := height;
|
||||
end;
|
||||
if large_bar_count=0 then begin
|
||||
large_bar_height:=0;
|
||||
end else begin
|
||||
large_bar_height := (symbol^.height - preset_height) / large_bar_count;
|
||||
end;
|
||||
if ((symbol^.output_options and BARCODE_BOX) <> 0) or ((symbol^.output_options and BARCODE_BIND) <> 0) then
|
||||
begin
|
||||
default_text_posn := (symbol^.height + text_offset + symbol^.border_width + symbol^.border_width) * scaler;
|
||||
end else begin
|
||||
default_text_posn := (symbol^.height + text_offset + symbol^.border_width) * scaler;
|
||||
end;
|
||||
x_dimension := render^.width / total_area_width_x;
|
||||
x_dimension := x_dimension / GL_CONST;
|
||||
|
||||
|
||||
if render^.height < ((x_dimension * ((2 * symbol^.border_width) + text_offset + text_height)) + 2.0) * GL_CONST then
|
||||
begin
|
||||
render^.height := ((x_dimension * ((2 * symbol^.border_width) + text_offset + text_height)) + 2.0) * GL_CONST;
|
||||
end;
|
||||
if render^.width < (2.0 * GL_CONST) then
|
||||
begin
|
||||
render^.width := (2.0 * GL_CONST);
|
||||
end;
|
||||
if symbol^.symbology = BARCODE_CODABAR then
|
||||
begin
|
||||
if x_dimension < 0.191 then
|
||||
begin
|
||||
render^.width := 0.191 * GL_CONST * total_area_width_x;
|
||||
end;
|
||||
if render^.height < ((x_dimension * ((2 * symbol^.border_width) + text_offset + text_height)) + 5.0) * GL_CONST then
|
||||
begin
|
||||
render^.height := ((x_dimension * ((2 * symbol^.border_width) + text_offset + text_height)) + 5.0) * GL_CONST;
|
||||
end;
|
||||
end;
|
||||
if symbol^.symbology = BARCODE_CODE49 then
|
||||
begin
|
||||
if x_dimension < 0.191 then
|
||||
begin
|
||||
render^.width := 0.191 * GL_CONST * total_area_width_x;
|
||||
render^.height := render^.width / symbol_aspect;
|
||||
end;
|
||||
end;
|
||||
if upceanflag <> 0 then
|
||||
begin
|
||||
render^.width := 0.330 * GL_CONST * total_area_width_x;
|
||||
case upceanflag of
|
||||
6,
|
||||
12,
|
||||
13: render^.height := ((0.330 * ((2 * symbol^.border_width) + text_offset + text_height)) + 22.85) * GL_CONST;
|
||||
8: render^.height := ((0.330 * ((2 * symbol^.border_width) + text_offset + text_height)) + 18.23) * GL_CONST;
|
||||
otherwise
|
||||
render^.height := ((0.330 * ((2 * symbol^.border_width) + text_offset + text_height)) + 21.10) * GL_CONST;
|
||||
end;
|
||||
end;
|
||||
(*
|
||||
if Boolean(symbol^.symbology = BARCODE_ONECODE) then
|
||||
begin
|
||||
render^.width := <*Error: Missing expression 191 *> * GL_CONST * total_area_width_x;
|
||||
render^.height := <*Error: Missing expression 191 *> * GL_CONST;
|
||||
end;
|
||||
if Boolean(((symbol^.symbology = BARCODE_POSTNET)) or ((symbol^.symbology = BARCODE_PLANET))) then
|
||||
begin
|
||||
render^.width := <*Error: Missing expression 191 *> * GL_CONST * total_area_width_x;
|
||||
render^.height := <*Error: Missing expression 191 *> * GL_CONST;
|
||||
end;
|
||||
if Boolean(((((symbol^.symbology = BARCODE_AUSPOST)) or ((symbol^.symbology = BARCODE_AUSREPLY)))) or ((((symbol^.symbology = BARCODE_AUSROUTE)) or ((symbol^.symbology = BARCODE_AUSREDIRECT))))) then
|
||||
begin
|
||||
render^.width := <*Error: Missing expression 191 *> * GL_CONST * total_area_width_x;
|
||||
render^.height := <*Error: Missing expression 191 *> * GL_CONST;
|
||||
end;
|
||||
if Boolean(((symbol^.symbology = BARCODE_RM4SCC)) or ((symbol^.symbology = BARCODE_KIX))) then
|
||||
begin
|
||||
render^.width := <*Error: Missing expression 191 *> * GL_CONST * total_area_width_x;
|
||||
render^.height := <*Error: Missing expression 191 *> * GL_CONST;
|
||||
end;
|
||||
*)
|
||||
|
||||
if symbol^.symbology = BARCODE_MAXICODE then
|
||||
begin
|
||||
(* scaler := GL_CONST;
|
||||
render^.width := <*Error: Missing expression 191 *> * scaler;
|
||||
render^.height := <*Error: Missing expression 191 *> * scaler;
|
||||
ring := render_plot_create_ring (<*Error: Missing expression 191 *> * scaler, <*Error: Missing expression 191 *> * scaler, <*Error: Missing expression 191 *> * scaler, <*Error: Missing expression 191 *> * scaler);
|
||||
render_plot_add_ring (symbol, ring, @last_ring);
|
||||
ring := render_plot_create_ring (<*Error: Missing expression 191 *> * scaler, <*Error: Missing expression 191 *> * scaler, <*Error: Missing expression 191 *> * scaler, <*Error: Missing expression 191 *> * scaler);
|
||||
render_plot_add_ring (symbol, ring, @last_ring);
|
||||
ring := render_plot_create_ring (<*Error: Missing expression 191 *> * scaler, <*Error: Missing expression 191 *> * scaler, <*Error: Missing expression 191 *> * scaler, <*Error: Missing expression 191 *> * scaler);
|
||||
render_plot_add_ring (symbol, ring, @last_ring);
|
||||
r := 0;
|
||||
while r < symbol^.rows do
|
||||
begin
|
||||
i := 0;
|
||||
while i < symbol^.width do
|
||||
begin
|
||||
if Boolean(module_is_set (symbol, r, i)) then
|
||||
begin
|
||||
hexagon := render_plot_create_hexagon (((i * <*Error: Missing expression 191 *>) + (iif (r and 1,<*Error: Missing expression 191 *>,<*Error: Missing expression 191 *>))) * scaler, ((r * <*Error: Missing expression 191 *>) + <*Error: Missing expression 191 *>) * scaler);
|
||||
render_plot_add_hexagon (symbol, hexagon, @last_hexagon);
|
||||
end;
|
||||
Inc (i);
|
||||
end;
|
||||
Inc (r);
|
||||
end;*)
|
||||
end else begin
|
||||
{INITCODE} addon_latch := 0;
|
||||
r := 0;
|
||||
while r < symbol^.rows do
|
||||
begin
|
||||
this_row := r;
|
||||
if symbol^.row_height[this_row] = 0 then
|
||||
begin
|
||||
row_height := large_bar_height;
|
||||
end else begin
|
||||
row_height := symbol^.row_height[this_row];
|
||||
end;
|
||||
row_posn := 0;
|
||||
i := 0;
|
||||
while i < r do
|
||||
begin
|
||||
if symbol^.row_height[i] = 0 then
|
||||
begin
|
||||
row_posn := row_posn + large_bar_height;
|
||||
end else begin
|
||||
row_posn := row_posn + (symbol^.row_height[i]);
|
||||
end;
|
||||
Inc (i);
|
||||
end;
|
||||
row_posn := row_posn + yoffset;
|
||||
i := 0;
|
||||
if module_is_set (symbol, this_row, 0) then
|
||||
begin
|
||||
latch := 1;
|
||||
end else begin
|
||||
latch := 0;
|
||||
end;
|
||||
repeat
|
||||
block_width := 0;
|
||||
repeat
|
||||
Inc (block_width);
|
||||
until (module_is_set (symbol, this_row, i + block_width) <> module_is_set (symbol, this_row, i));
|
||||
if (((addon_latch = 0)) and ((r = (symbol^.rows - 1)))) and ((i > main_symbol_width_x)) then
|
||||
begin
|
||||
addon_text_posn := row_posn * scaler;
|
||||
addon_latch := 1;
|
||||
end;
|
||||
if latch = 1 then
|
||||
begin
|
||||
if addon_latch = 0 then
|
||||
begin
|
||||
line := render_plot_create_line ((i + xoffset) * scaler, (row_posn) * scaler, block_width * scaler, row_height * scaler);
|
||||
end else begin
|
||||
line := render_plot_create_line ((i + xoffset) * scaler, (row_posn + 10.0) * scaler, block_width * scaler, (row_height - 5.0) * scaler);
|
||||
end;
|
||||
latch := 0;
|
||||
render_plot_add_line (symbol, line, @last_line);
|
||||
end else begin
|
||||
latch := 1;
|
||||
end;
|
||||
i := i + block_width;
|
||||
until not (i < symbol^.width);
|
||||
Inc (r);
|
||||
end;
|
||||
end;
|
||||
xoffset := xoffset - symbol_lead_in;
|
||||
row_posn := (row_posn + large_bar_height) * scaler;
|
||||
if NotBoolean(hide_text) then
|
||||
begin
|
||||
if upceanflag = 8 then
|
||||
begin
|
||||
i := 0;
|
||||
line := symbol^.rendered^.lines;
|
||||
while line <> nil do
|
||||
begin
|
||||
case i of
|
||||
0,
|
||||
1,
|
||||
10,
|
||||
11,
|
||||
20,
|
||||
21: line^.length := line^.length + ((5.0 * scaler));
|
||||
end;
|
||||
Inc (i);
|
||||
line := line^.next;
|
||||
end;
|
||||
i := 0;
|
||||
while i < 4 do
|
||||
begin
|
||||
textpart[i] := char(symbol^.text[i]);
|
||||
Inc (i);
|
||||
end;
|
||||
textpart[4] := #0;
|
||||
textpos := 17;
|
||||
textwidth := 4.0 * 8.5;
|
||||
render_plot_add_string (symbol, PBYTE (@textpart[0]), (textpos + xoffset) * scaler, default_text_posn, 11.0 * scaler, textwidth * scaler, @last_string);
|
||||
i := 0;
|
||||
while i < 4 do
|
||||
begin
|
||||
textpart[i] := char(symbol^.text[i + 4]);
|
||||
Inc (i);
|
||||
end;
|
||||
textpart[4] := #0;
|
||||
textpos := 50;
|
||||
render_plot_add_string (symbol, PBYTE (@textpart[0]), (textpos + xoffset) * scaler, default_text_posn, 11.0 * scaler, textwidth * scaler, @last_string);
|
||||
textdone := 1;
|
||||
case strlen (addon) of
|
||||
2:
|
||||
begin
|
||||
textpos := xoffset + 86;
|
||||
textwidth := 2.0 * 8.5;
|
||||
render_plot_add_string (symbol, PBYTE (@addon[0]), textpos * scaler, addon_text_posn * scaler, 11.0 * scaler, textwidth * scaler, @last_string);
|
||||
end;
|
||||
5:
|
||||
begin
|
||||
textpos := xoffset + 100;
|
||||
textwidth := 5.0 * 8.5;
|
||||
render_plot_add_string (symbol, PBYTE (@addon[0]), textpos * scaler, addon_text_posn * scaler, 11.0 * scaler, textwidth * scaler, @last_string);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
(*
|
||||
if Boolean(upceanflag = 13) then
|
||||
begin
|
||||
i := 0;
|
||||
line := symbol^.rendered^.lines;
|
||||
while line <> nil do
|
||||
begin
|
||||
case i of
|
||||
0,
|
||||
1,
|
||||
14,
|
||||
15,
|
||||
28,
|
||||
29: line^.length := line^.length + ((<*Error: Missing expression 191 *> * scaler));
|
||||
end;
|
||||
Inc (i);
|
||||
line := line^.next;
|
||||
end;
|
||||
textpart[0] := symbol^.text[0];
|
||||
textpart[1] := '\0';
|
||||
textpos := -5;
|
||||
textwidth := <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (textpart), (textpos + xoffset) * scaler, default_text_posn, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
i := 0;
|
||||
while i < 6 do
|
||||
begin
|
||||
textpart[i] := symbol^.text[i + 1];
|
||||
Inc (i);
|
||||
end;
|
||||
textpart[6] := '\0';
|
||||
textpos := 25;
|
||||
textwidth := <*Error: Missing expression 191 *> * <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (textpart), (textpos + xoffset) * scaler, default_text_posn, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
i := 0;
|
||||
while i < 6 do
|
||||
begin
|
||||
textpart[i] := symbol^.text[i + 7];
|
||||
Inc (i);
|
||||
end;
|
||||
textpart[6] := '\0';
|
||||
textpos := 72;
|
||||
render_plot_add_string (symbol, PBYTE (textpart), (textpos + xoffset) * scaler, default_text_posn, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
textdone := 1;
|
||||
case strlen (addon) of
|
||||
2:
|
||||
begin
|
||||
textpos := xoffset + 114;
|
||||
textwidth := <*Error: Missing expression 191 *> * <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (addon), textpos * scaler, addon_text_posn * scaler, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
end;
|
||||
5:
|
||||
begin
|
||||
textpos := xoffset + 128;
|
||||
textwidth := <*Error: Missing expression 191 *> * <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (addon), textpos * scaler, addon_text_posn * scaler, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
*)
|
||||
(*
|
||||
if Boolean(upceanflag = 12) then
|
||||
begin
|
||||
i := 0;
|
||||
line := symbol^.rendered^.lines;
|
||||
while line <> nil do
|
||||
begin
|
||||
case i of
|
||||
0:
|
||||
1:
|
||||
2:
|
||||
3:
|
||||
14:
|
||||
15:
|
||||
26:
|
||||
27:
|
||||
28:
|
||||
29: line^.length := line^.length + ((<*Error: Missing expression 191 *> * scaler));
|
||||
end;
|
||||
Inc (i);
|
||||
line := line^.next;
|
||||
end;
|
||||
textpart[0] := symbol^.text[0];
|
||||
textpart[1] := '\0';
|
||||
textpos := -5;
|
||||
textwidth := <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (textpart), (textpos + xoffset) * scaler, default_text_posn + (<*Error: Missing expression 191 *> * scaler), <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
i := 0;
|
||||
while i < 5 do
|
||||
begin
|
||||
textpart[i] := symbol^.text[i + 1];
|
||||
Inc (i);
|
||||
end;
|
||||
textpart[5] := '\0';
|
||||
textpos := 27;
|
||||
textwidth := <*Error: Missing expression 191 *> * <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (textpart), (textpos + xoffset) * scaler, default_text_posn, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
i := 0;
|
||||
while i < 5 do
|
||||
begin
|
||||
textpart[i] := symbol^.text[i + 6];
|
||||
Inc (i);
|
||||
end;
|
||||
textpos := 68;
|
||||
render_plot_add_string (symbol, PBYTE (textpart), (textpos + xoffset) * scaler, default_text_posn, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
textpart[0] := symbol^.text[11];
|
||||
textpart[1] := '\0';
|
||||
textpos := 100;
|
||||
textwidth := <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (textpart), (textpos + xoffset) * scaler, default_text_posn + (<*Error: Missing expression 191 *> * scaler), <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
textdone := 1;
|
||||
case strlen (addon) of
|
||||
2:
|
||||
begin
|
||||
textpos := xoffset + 116;
|
||||
textwidth := <*Error: Missing expression 191 *> * <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (addon), textpos * scaler, addon_text_posn * scaler, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
end;
|
||||
5:
|
||||
begin
|
||||
textpos := xoffset + 130;
|
||||
textwidth := <*Error: Missing expression 191 *> * <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (addon), textpos * scaler, addon_text_posn * scaler, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
*)
|
||||
(*
|
||||
if Boolean(upceanflag = 6) then
|
||||
begin
|
||||
i := 0;
|
||||
line := symbol^.rendered^.lines;
|
||||
while line <> nil do
|
||||
begin
|
||||
case i of
|
||||
0:
|
||||
1:
|
||||
14:
|
||||
15:
|
||||
16: line^.length := line^.length + ((<*Error: Missing expression 191 *> * scaler));
|
||||
end;
|
||||
Inc (i);
|
||||
line := line^.next;
|
||||
end;
|
||||
textpart[0] := symbol^.text[0];
|
||||
textpart[1] := '\0';
|
||||
textpos := -5;
|
||||
textwidth := <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (textpart), (textpos + xoffset) * scaler, default_text_posn + (<*Error: Missing expression 191 *> * scaler), <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
i := 0;
|
||||
while i < 6 do
|
||||
begin
|
||||
textpart[i] := symbol^.text[i + 1];
|
||||
Inc (i);
|
||||
end;
|
||||
textpart[6] := '\0';
|
||||
textpos := 24;
|
||||
textwidth := <*Error: Missing expression 191 *> * <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (textpart), (textpos + xoffset) * scaler, default_text_posn, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
textpart[0] := symbol^.text[7];
|
||||
textpart[1] := '\0';
|
||||
textpos := 55;
|
||||
textwidth := <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (textpart), (textpos + xoffset) * scaler, default_text_posn + (<*Error: Missing expression 191 *> * scaler), <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
textdone := 1;
|
||||
case strlen (addon) of
|
||||
2:
|
||||
begin
|
||||
textpos := xoffset + 70;
|
||||
textwidth := <*Error: Missing expression 191 *> * <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (addon), textpos * scaler, addon_text_posn * scaler, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
end;
|
||||
5:
|
||||
begin
|
||||
textpos := xoffset + 84;
|
||||
textwidth := <*Error: Missing expression 191 *> * <*Error: Missing expression 191 *>;
|
||||
render_plot_add_string (symbol, PBYTE (addon), textpos * scaler, addon_text_posn * scaler, <*Error: Missing expression 191 *> * scaler, textwidth * scaler, @last_string);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
*)
|
||||
if textdone = 0 then
|
||||
begin
|
||||
render_plot_add_string (symbol, symbol^.text, ((symbol^.width / 2.0) + xoffset) * scaler, default_text_posn, 9.0 * scaler, 0.0, @last_string);
|
||||
end;
|
||||
end;
|
||||
case symbol^.symbology of
|
||||
BARCODE_MAXICODE:
|
||||
begin
|
||||
//Do nothing...
|
||||
end;
|
||||
otherwise
|
||||
begin
|
||||
if (symbol^.output_options and BARCODE_BIND) <> 0 then
|
||||
begin
|
||||
if (symbol^.rows > 1) and is_stackable (symbol^.symbology) then
|
||||
begin
|
||||
r := 1;
|
||||
while r < symbol^.rows do
|
||||
begin
|
||||
line := render_plot_create_line (xoffset * scaler, ((r * row_height) + yoffset - 1) * scaler, symbol^.width * scaler, 2.0 * scaler);
|
||||
render_plot_add_line (symbol, line, @last_line);
|
||||
Inc (r);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
if (((symbol^.output_options and BARCODE_BOX) <> 0)) or (((symbol^.output_options and BARCODE_BIND) <> 0)) then
|
||||
begin
|
||||
line := render_plot_create_line (0, 0, (symbol^.width + xoffset + xoffset) * scaler, symbol^.border_width * scaler);
|
||||
render_plot_add_line (symbol, line, @last_line);
|
||||
line := render_plot_create_line (0, (symbol^.height + symbol^.border_width) * scaler, (symbol^.width + xoffset + xoffset) * scaler, symbol^.border_width * scaler);
|
||||
render_plot_add_line (symbol, line, @last_line);
|
||||
end;
|
||||
if (symbol^.output_options and BARCODE_BOX) <> 0 then
|
||||
begin
|
||||
line := render_plot_create_line (0, 0, symbol^.border_width * scaler, (symbol^.height + (2 * symbol^.border_width)) * scaler);
|
||||
render_plot_add_line (symbol, line, @last_line);
|
||||
line := render_plot_create_line ((symbol^.width + xoffset + xoffset - symbol^.border_width) * scaler, 0, symbol^.border_width * scaler, (symbol^.height + (2 * symbol^.border_width)) * scaler);
|
||||
render_plot_add_line (symbol, line, @last_line);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
(*
|
||||
if Boolean(locale) then
|
||||
begin
|
||||
setlocale (LC_ALL, locale);
|
||||
end;
|
||||
*)
|
||||
Result:=1;
|
||||
end;
|
||||
|
||||
function render_plot_create_line(x: Single; y: Single; width: Single; length: Single): PointerTo_zint_render_line;
|
||||
var
|
||||
line: PointerTo_zint_render_line;
|
||||
begin
|
||||
line := GetMem (SizeOf (zint_render_line));
|
||||
line^.next := nil;
|
||||
line^.x := x;
|
||||
line^.y := y;
|
||||
line^.width := width;
|
||||
line^.length := length;
|
||||
exit (line);
|
||||
end;
|
||||
|
||||
function render_plot_add_line(symbol: PointerTo_zint_symbol; line: PointerTo_zint_render_line; last_line: PointerTo_PointerTo_zint_render_line): Integer;
|
||||
begin
|
||||
if last_line^<>nil then
|
||||
begin
|
||||
(last_line^)^.next := line;
|
||||
end else begin
|
||||
symbol^.rendered^.lines := line;
|
||||
end;
|
||||
last_line^ := line;
|
||||
exit (1);
|
||||
end;
|
||||
|
||||
function render_plot_create_ring(x: Single; y: Single; radius: Single; line_width: Single): PointerTo_zint_render_ring;
|
||||
var
|
||||
ring: PointerTo_zint_render_ring;
|
||||
begin
|
||||
ring := GetMem (SizeOf (zint_render_ring));
|
||||
ring^.next := nil;
|
||||
ring^.x := x;
|
||||
ring^.y := y;
|
||||
ring^.radius := radius;
|
||||
ring^.line_width := line_width;
|
||||
exit (ring);
|
||||
end;
|
||||
|
||||
function render_plot_add_ring(symbol: PointerTo_zint_symbol; ring: PointerTo_zint_render_ring; last_ring: PointerTo_PointerTo_zint_render_ring): Integer;
|
||||
begin
|
||||
if last_ring^<>nil then
|
||||
begin
|
||||
(last_ring^)^.next := ring;
|
||||
end else begin
|
||||
symbol^.rendered^.rings := ring;
|
||||
end;
|
||||
last_ring^ := ring;
|
||||
exit (1);
|
||||
end;
|
||||
|
||||
function render_plot_create_hexagon(x: Single; y: Single): PointerTo_zint_render_hexagon;
|
||||
var
|
||||
hexagon: PointerTo_zint_render_hexagon;
|
||||
begin
|
||||
hexagon := GetMem (SizeOf (zint_render_hexagon));
|
||||
hexagon^.next := nil;
|
||||
hexagon^.x := x;
|
||||
hexagon^.y := y;
|
||||
exit (hexagon);
|
||||
end;
|
||||
|
||||
function render_plot_add_hexagon(symbol: PointerTo_zint_symbol; hexagon: PointerTo_zint_render_hexagon; last_hexagon: PointerTo_PointerTo_zint_render_hexagon): Integer;
|
||||
begin
|
||||
if last_hexagon^<>nil then
|
||||
begin
|
||||
(last_hexagon^)^.next := hexagon;
|
||||
end else begin
|
||||
symbol^.rendered^.hexagons := hexagon;
|
||||
end;
|
||||
last_hexagon^ := hexagon;
|
||||
exit (1);
|
||||
end;
|
||||
|
||||
function render_plot_add_string(symbol: PointerTo_zint_symbol; text: PBYTE; x: Single; y: Single; fsize: Single; width: Single; last_string: PointerTo_PointerTo_zint_render_string): Integer;
|
||||
var
|
||||
pstring: PointerTo_zint_render_string;
|
||||
begin
|
||||
pstring := GetMem (SizeOf (zint_render_string));
|
||||
pstring^.next := nil;
|
||||
pstring^.x := x;
|
||||
pstring^.y := y;
|
||||
pstring^.width := width;
|
||||
pstring^.fsize := fsize;
|
||||
pstring^.length := sysutils.strlen (pchar(text));
|
||||
pstring^.text := GetMem (SizeOf (BYTE) * (sysutils.strlen (pchar(text)) + 1));
|
||||
strcpy (pchar(pstring^.text), pchar(text));
|
||||
if last_string^<>nil then
|
||||
begin
|
||||
(last_string^)^.next := pstring;
|
||||
end else begin
|
||||
symbol^.rendered^.strings := pstring;
|
||||
end;
|
||||
last_string^ := pstring;
|
||||
exit (1);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
6857
components/lazbarcodes/src/usjis.pas
Normal file
6857
components/lazbarcodes/src/usjis.pas
Normal file
File diff suppressed because it is too large
Load Diff
245
components/lazbarcodes/src/zint.pp
Normal file
245
components/lazbarcodes/src/zint.pp
Normal file
@ -0,0 +1,245 @@
|
||||
|
||||
unit zint;
|
||||
interface
|
||||
|
||||
{
|
||||
Automatically converted by H2Pas 1.0.0 from zint.h
|
||||
The following command line parameters were used:
|
||||
zint.h
|
||||
}
|
||||
|
||||
{$IFDEF FPC}
|
||||
//{$PACKRECORDS C}
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
{ zint.h - definitions for libzint
|
||||
|
||||
libzint - the open source barcode library
|
||||
Copyright (C) 2009 Robin Stuart <robin@zint.org.uk>
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License along
|
||||
with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
}
|
||||
{$ifndef ZINT_H}
|
||||
{$define ZINT_H}
|
||||
{ C++ extern C conditionnal removed }
|
||||
{ __cplusplus }
|
||||
{ Pointer to next line }
|
||||
|
||||
type
|
||||
zint_render_line = record
|
||||
x : single;
|
||||
y : single;
|
||||
length : single;
|
||||
width : single;
|
||||
next : ^zint_render_line;
|
||||
end;
|
||||
PointerTo_zint_render_line=^zint_render_line;
|
||||
PointerTo_PointerTo_zint_render_line=^PointerTo_zint_render_line;
|
||||
|
||||
{ Suggested string width, may be 0 if none recommended }
|
||||
{ Pointer to next character }
|
||||
zint_render_string = record
|
||||
x : single;
|
||||
y : single;
|
||||
fsize : single;
|
||||
width : single;
|
||||
length : longint;
|
||||
text : ^byte;
|
||||
next : ^zint_render_string;
|
||||
end;
|
||||
PointerTo_zint_render_string=^zint_render_string;
|
||||
PointerTo_PointerTo_zint_render_string=^PointerTo_zint_render_string;
|
||||
|
||||
{ Pointer to next ring }
|
||||
zint_render_ring = record
|
||||
x : single;
|
||||
y : single;
|
||||
radius : single;
|
||||
line_width : single;
|
||||
next : ^zint_render_ring;
|
||||
end;
|
||||
PointerTo_zint_render_ring=^zint_render_ring;
|
||||
PointerTo_PointerTo_zint_render_ring=^PointerTo_zint_render_ring;
|
||||
|
||||
{ Pointer to next hexagon }
|
||||
zint_render_hexagon = record
|
||||
x : single;
|
||||
y : single;
|
||||
next : ^zint_render_hexagon;
|
||||
end;
|
||||
PointerTo_zint_render_hexagon=^zint_render_hexagon;
|
||||
PointerTo_PointerTo_zint_render_hexagon=^PointerTo_zint_render_hexagon;
|
||||
|
||||
{ Pointer to first line }
|
||||
{ Pointer to first string }
|
||||
{ Pointer to first ring }
|
||||
{ Pointer to first hexagon }
|
||||
zint_render = record
|
||||
width : single;
|
||||
height : single;
|
||||
lines : ^zint_render_line;
|
||||
strings : ^zint_render_string;
|
||||
rings : ^zint_render_ring;
|
||||
hexagons : ^zint_render_hexagon;
|
||||
end;
|
||||
PointerTo_zint_render=^zint_render;
|
||||
|
||||
{ Largest symbol is 177x177 QR Code }
|
||||
zint_symbol = record
|
||||
symbology : longint;
|
||||
height : longint;
|
||||
whitespace_width : longint;
|
||||
border_width : longint;
|
||||
output_options : longint;
|
||||
fgcolour : array[0..9] of char;
|
||||
bgcolour : array[0..9] of char;
|
||||
outfile : array[0..255] of char;
|
||||
scale : single;
|
||||
option_1 : longint;
|
||||
option_2 : longint;
|
||||
option_3 : longint;
|
||||
show_hrt : longint;
|
||||
input_mode : longint;
|
||||
text : array[0..127] of byte;
|
||||
rows : longint;
|
||||
width : longint;
|
||||
primary : array[0..127] of char;
|
||||
encoded_data : array[0..177] of array[0..142] of byte;
|
||||
row_height : array[0..177] of longint;
|
||||
errtxt : array[0..99] of char;
|
||||
bitmap : ^char;
|
||||
bitmap_width : longint;
|
||||
bitmap_height : longint;
|
||||
rendered : ^zint_render;
|
||||
end;
|
||||
|
||||
PointerTo_zint_symbol=^zint_symbol;
|
||||
{ Tbarcode 7 codes }
|
||||
|
||||
const
|
||||
BARCODE_CODE11 = 1;
|
||||
BARCODE_C25MATRIX = 2;
|
||||
BARCODE_C25INTER = 3;
|
||||
BARCODE_C25IATA = 4;
|
||||
BARCODE_C25LOGIC = 6;
|
||||
BARCODE_C25IND = 7;
|
||||
BARCODE_CODE39 = 8;
|
||||
BARCODE_EXCODE39 = 9;
|
||||
BARCODE_EANX = 13;
|
||||
BARCODE_EAN128 = 16;
|
||||
BARCODE_CODABAR = 18;
|
||||
BARCODE_CODE128 = 20;
|
||||
BARCODE_DPLEIT = 21;
|
||||
BARCODE_DPIDENT = 22;
|
||||
BARCODE_CODE16K = 23;
|
||||
BARCODE_CODE49 = 24;
|
||||
BARCODE_CODE93 = 25;
|
||||
BARCODE_FLAT = 28;
|
||||
BARCODE_RSS14 = 29;
|
||||
BARCODE_RSS_LTD = 30;
|
||||
BARCODE_RSS_EXP = 31;
|
||||
BARCODE_TELEPEN = 32;
|
||||
BARCODE_UPCA = 34;
|
||||
BARCODE_UPCE = 37;
|
||||
BARCODE_POSTNET = 40;
|
||||
BARCODE_MSI_PLESSEY = 47;
|
||||
BARCODE_FIM = 49;
|
||||
BARCODE_LOGMARS = 50;
|
||||
BARCODE_PHARMA = 51;
|
||||
BARCODE_PZN = 52;
|
||||
BARCODE_PHARMA_TWO = 53;
|
||||
BARCODE_PDF417 = 55;
|
||||
BARCODE_PDF417TRUNC = 56;
|
||||
BARCODE_MAXICODE = 57;
|
||||
BARCODE_QRCODE = 58;
|
||||
BARCODE_CODE128B = 60;
|
||||
BARCODE_AUSPOST = 63;
|
||||
BARCODE_AUSREPLY = 66;
|
||||
BARCODE_AUSROUTE = 67;
|
||||
BARCODE_AUSREDIRECT = 68;
|
||||
BARCODE_ISBNX = 69;
|
||||
BARCODE_RM4SCC = 70;
|
||||
BARCODE_DATAMATRIX = 71;
|
||||
BARCODE_EAN14 = 72;
|
||||
BARCODE_CODABLOCKF = 74;
|
||||
BARCODE_NVE18 = 75;
|
||||
BARCODE_JAPANPOST = 76;
|
||||
BARCODE_KOREAPOST = 77;
|
||||
BARCODE_RSS14STACK = 79;
|
||||
BARCODE_RSS14STACK_OMNI = 80;
|
||||
BARCODE_RSS_EXPSTACK = 81;
|
||||
BARCODE_PLANET = 82;
|
||||
BARCODE_MICROPDF417 = 84;
|
||||
BARCODE_ONECODE = 85;
|
||||
BARCODE_PLESSEY = 86;
|
||||
{ Tbarcode 8 codes }
|
||||
BARCODE_TELEPEN_NUM = 87;
|
||||
BARCODE_ITF14 = 89;
|
||||
BARCODE_KIX = 90;
|
||||
BARCODE_AZTEC = 92;
|
||||
BARCODE_DAFT = 93;
|
||||
BARCODE_MICROQR = 97;
|
||||
{ Tbarcode 9 codes }
|
||||
BARCODE_HIBC_128 = 98;
|
||||
BARCODE_HIBC_39 = 99;
|
||||
BARCODE_HIBC_DM = 102;
|
||||
BARCODE_HIBC_QR = 104;
|
||||
BARCODE_HIBC_PDF = 106;
|
||||
BARCODE_HIBC_MICPDF = 108;
|
||||
BARCODE_HIBC_BLOCKF = 110;
|
||||
BARCODE_HIBC_AZTEC = 112;
|
||||
{ Zint specific }
|
||||
BARCODE_AZRUNE = 128;
|
||||
BARCODE_CODE32 = 129;
|
||||
BARCODE_EANX_CC = 130;
|
||||
BARCODE_EAN128_CC = 131;
|
||||
BARCODE_RSS14_CC = 132;
|
||||
BARCODE_RSS_LTD_CC = 133;
|
||||
BARCODE_RSS_EXP_CC = 134;
|
||||
BARCODE_UPCA_CC = 135;
|
||||
BARCODE_UPCE_CC = 136;
|
||||
BARCODE_RSS14STACK_CC = 137;
|
||||
BARCODE_RSS14_OMNI_CC = 138;
|
||||
BARCODE_RSS_EXPSTACK_CC = 139;
|
||||
BARCODE_CHANNEL = 140;
|
||||
BARCODE_CODEONE = 141;
|
||||
BARCODE_GRIDMATRIX = 142;
|
||||
BARCODE_NO_ASCII = 1;
|
||||
BARCODE_BIND = 2;
|
||||
BARCODE_BOX = 4;
|
||||
BARCODE_STDOUT = 8;
|
||||
READER_INIT = 16;
|
||||
SMALL_TEXT = 32;
|
||||
DATA_MODE = 0;
|
||||
UNICODE_MODE = 1;
|
||||
GS1_MODE = 2;
|
||||
KANJI_MODE = 3;
|
||||
SJIS_MODE = 4;
|
||||
DM_SQUARE = 100;
|
||||
WARN_INVALID_OPTION = 2;
|
||||
ERROR_TOO_LONG = 5;
|
||||
ERROR_INVALID_DATA = 6;
|
||||
ERROR_INVALID_CHECK = 7;
|
||||
ERROR_INVALID_OPTION = 8;
|
||||
ERROR_ENCODING_PROBLEM = 9;
|
||||
ERROR_FILE_ACCESS = 10;
|
||||
ERROR_MEMORY = 11;
|
||||
{$ENDIF}
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user