pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

lazbarcodes: Fix code-page used by TBarcodeMaxicode.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8240 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-28 17:33:16 +00:00
parent 7e371e08cd
commit efa53cc6d2
2 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazbarcodes/src/lbc_maxicode.pas
View File

@ -2,8 +2,6 @@
Based on Zint (done by Robin Stuart and the Zint team) Based on Zint (done by Robin Stuart and the Zint team)
http://github.com/zint/zint http://github.com/zint/zint
and Pascal adaption by TheUnknownOnes
http://theunknownones.net
Refactoring: W. Pamler Refactoring: W. Pamler
} }
@ -245,7 +243,7 @@ begin
_set[0] := 1; _set[0] := 1;
end; end;
for i := 1 to ALength-1 do for i := 1 to ALength-1 do // Beginning with 1 is intentional here.
begin begin
if _set[i] = 0 then if _set[i] = 0 then
begin begin
@ -257,7 +255,7 @@ begin
_char[i] := 13; _char[i] := 13;
_set[i] := 5; _set[i] := 5;
end else end else
if (i <> ALength -1) and (_set[i+1] = 5) then if (i <> ALength - 1) and (_set[i+1] = 5) then
begin begin
_char[i] := 13; _char[i] := 13;
_set[i] := 5; _set[i] := 5;

4
components/lazbarcodes/src/ubarcodes.pas
View File

@ -651,7 +651,7 @@ implementation
{$R lazbarcodes_icons.res} {$R lazbarcodes_icons.res}
uses uses
clipbrd, propedits, lconvencoding, clipbrd, propedits,
lbc_basic, lbc_helper, lbc_render, lbc_svg, lbc_basic, lbc_helper, lbc_render, lbc_svg,
lbc_code, lbc_code128, lbc_2of5, lbc_upcean, lbc_plessey, lbc_telepen, lbc_code, lbc_code128, lbc_2of5, lbc_upcean, lbc_plessey, lbc_telepen,
lbc_medical, lbc_postal, lbc_auspost, lbc_medical, lbc_postal, lbc_auspost,
@ -3386,7 +3386,7 @@ begin
if FMode in [mcmAuto, mcmMode2, mcmMode3] then if FMode in [mcmAuto, mcmMode2, mcmMode3] then
FSymbol^.SetPrimary(FPrimary); FSymbol^.SetPrimary(FPrimary);
Result := maxicode(FSymbol, FText); Result := maxicode(FSymbol, UTF8ToISO_8859_1(FText));
end; end;
procedure TBarcodeMaxiCode.RenderSymbol(xLeft, yTop, ASymbolWidth, ASymbolHeight, procedure TBarcodeMaxiCode.RenderSymbol(xLeft, yTop, ASymbolWidth, ASymbolHeight,