paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 14:52:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix code128x barcodes, issue #20656

Browse Source 
git-svn-id: trunk@33468 -
This commit is contained in:
jesus 2011-11-11 02:24:40 +00:00
parent 190136efbb
commit bb87ce4341
3 changed files with 1544 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -1519,6 +1519,7 @@ components/lazreport/samples/barcode/cb.res -text
components/lazreport/samples/barcode/cbunit.lfm svneol=native#text/plain
components/lazreport/samples/barcode/cbunit.pas svneol=native#text/pascal
components/lazreport/samples/barcode/reports/codigobarras.lrf svneol=native#text/xml
components/lazreport/samples/editor/BarcodeTester.lrf svneol=native#text/xml
components/lazreport/samples/editor/albumsbycountry.lrf svneol=LF#text/xml eol=lf
components/lazreport/samples/editor/calleditorwithpkg.lpi svneol=native#text/plain
components/lazreport/samples/editor/calleditorwithpkg.lpr svneol=native#text/pascal

1541
components/lazreport/samples/editor/BarcodeTester.lrf Normal file
View File

File diff suppressed because it is too large Load Diff

5
components/lazreport/source/lr_barc.pas
View File

@ -272,9 +272,8 @@ begin
BarC.Top := 0;
BarC.Typ := Param.cBarType;
BarC.Angle := Param.cAngle;
BarC.Ratio := Param.cRatio; // some barcodes allow only some ratios
// use at your own risk, for ean13 only 2.0-3.0
BarC.Modul := 1; //Param.cModul;
BarC.Ratio := 2; // param.cRatio <>2 renders some codes unreadable
BarC.Modul := 1; // param.cModul
{$IFDEF BC_1_25}
BarC.ShowTextPosition:=stpBottomCenter;
BarC.ShowText := bcoNone;