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

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

@ -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;