paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 16:20:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fixes barcode zoom broken in r33200 #15fd0b5d98

Browse Source 
git-svn-id: trunk@33229 -
This commit is contained in:
jesus 2011-11-02 20:50:27 +00:00
parent d872413a9f
commit 253c353c17
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -272,7 +272,8 @@ begin
BarC.Top := 0;
BarC.Typ := Param.cBarType;
BarC.Angle := Param.cAngle;
BarC.Ratio := 2.1; //Param.cRatio;
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;
{$IFDEF BC_1_25}
BarC.ShowTextPosition:=stpBottomCenter;
@ -488,6 +489,12 @@ begin
Bmp := CreateBarcode;
if Bmp <> nil then
try
// dx/dy is calculated in CreateBarCode using as base
// barcdode type, angle, zoom and data
if (Param.cAngle = 90) or (Param.cAngle = 270) then
dy := round(dy * param.cRatio)
else
dx := round(dx * Param.cRatio);
CalcGaps;
ShowBackground;
if Param.cShowText then
@ -535,12 +542,13 @@ begin
end
else
aCanvas.StretchDraw(DRect,Bmp);
finally
Bmp.Free
end;
ShowFrame;
RestoreCoord;
ShowFrame;
finally
Bmp.Free;
RestoreCoord;
end;
end;
procedure TfrBarCodeView.Print(Stream: TStream);