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

lazbarcodes: Assign useful values to width and height. Fix range overflow error in "Generate".

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4419 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-01-11 10:06:12 +00:00
parent 8dddccd63e
commit 48c2e71437
1 changed files with 26 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -45,6 +45,8 @@ published
property StrictSize: Boolean read GetStrictSize write SetStrictSize;
property BackgroundColor: TColor read GetBackgroundColor write SetBackgroundColor default clWhite;
property ForegroundColor: TColor read GetForegroundColor write SetForegroundColor default clBlack;
property Width default 88;
property Height default 88;
end;
{ TLazBarcodeCustomText }
@ -281,6 +283,8 @@ begin
FBackgroundColor:=clWhite;
FForegroundColor:=clBlack;
FStrictSize:=true;
Width := 88;
Height := 88;
end;
destructor TLazBarcodeCustomBase.Destroy;
@ -400,15 +404,17 @@ begin
ZBarcode_Delete(FQR);
FQR:=nil;
end;
FQR:=ZBarcode_Create();
with FQR^ do begin
border_width:=4;
end;
UpdateECCLevel;
ErrorCode:=qr_code(FQR,@FText[1],Length(FText));
if ErrorCode<>0 then begin
FLastErrorString:=FQR^.errtxt;
exit;
if Length(FText) > 0 then begin
FQR:=ZBarcode_Create();
with FQR^ do begin
border_width:=4;
end;
UpdateECCLevel;
ErrorCode:=qr_code(FQR,@FText[1],Length(FText));
if ErrorCode<>0 then begin
FLastErrorString:=FQR^.errtxt;
exit;
end;
end;
end;
@ -422,15 +428,17 @@ begin
ZBarcode_Delete(FQR);
FQR:=nil;
end;
FQR:=ZBarcode_Create();
with FQR^ do begin
border_width:=4;
end;
UpdateECCLevel;
ErrorCode:=microqr(FQR,@FText[1],Length(FText));
if ErrorCode<>0 then begin
FLastErrorString:=FQR^.errtxt;
exit;
if Length(FText) > 0 then begin
FQR:=ZBarcode_Create();
with FQR^ do begin
border_width:=4;
end;
UpdateECCLevel;
ErrorCode:=microqr(FQR,@FText[1],Length(FText));
if ErrorCode<>0 then begin
FLastErrorString:=FQR^.errtxt;
exit;
end;
end;
end;