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

LazBarcodes: Fix crash at runtime when AutoSize has been activated in design mode.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8208 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-10 10:02:37 +00:00
parent ebc0080662
commit 30044a8cf3
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -209,7 +209,7 @@ type
procedure DrawBarcode(ADrawer: TBasicBarcodeDrawer; AFactor: Double);
procedure GetTextSize(const AText: String; out AWidth, AHeight: Integer);
function InternalGenerate: Integer; override;
procedure IntfPaintOnCanvas(const aTargetCanvas: TCanvas; const aRect: TRect); override;
procedure IntfPaintOnCanvas(const aTargetCanvas: TCanvas; const aRect: TRect); override;
procedure Paint; override;
procedure RenderBarcode(AWidth, AHeight: Integer); virtual;
procedure RenderBearerBars(AWidth, AHeight, ABorder: Integer; var ALastLine: PZintRenderline);
@ -1344,7 +1344,8 @@ var
wtot, htot, wsym, hsym, wtxt, htxt, wb, wws: Integer;
begin
inherited;
if (FScale <> 0) and (FSymbolHeight <> 0) then //and (FSymbol <> nil) and (not FShowCodeAsText or (FSymbol^.GetText <> '')) then
if (FScale <> 0) and (FSymbolHeight <> 0) and (FSymbol <> nil) then //and (not FShowCodeAsText or (FSymbol^.GetText <> '')) then
begin
CalcSize(FScale, wtot, htot, wsym, hsym, wtxt, htxt, wb, wws);
PreferredWidth := wtot;
@ -1468,7 +1469,7 @@ begin
drawer.Free;
end;
end;
{ Paints the barcode on the control's canvas. Draws to an intermediate bitmap
first which is then centered on the control. }
procedure TSimpleBarcode.Paint;