paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:39:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, for selected barcode symbols with invalid data, return the fixed code instead of the default one

Browse Source 
git-svn-id: trunk@33472 -
This commit is contained in:
jesus 2011-11-11 07:47:11 +00:00
parent ff1298f838
commit fe098f786f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -254,7 +254,8 @@ begin
Memo1.Assign(Memo); Memo1.Assign(Memo);
if (Memo1.Text <> '') and (pos('[',Memo1.Strings[0])=0) and if (Memo1.Text <> '') and (pos('[',Memo1.Strings[0])=0) and
((bcNames[Param.cBarType, 1] = 'A') or IsNumeric(Memo1.Strings[0])) then ((bcNames[Param.cBarType, 1] = 'A') or IsNumeric(Memo1.Strings[0]) or
Barc.BarcodeTypeChecked(Param.cBarType) ) then
begin begin
BarC.Text := Memo1.Strings[0]; BarC.Text := Memo1.Strings[0];
BarC.Checksum := Param.cCheckSum; BarC.Checksum := Param.cCheckSum;
@ -594,7 +595,6 @@ begin
XML.SetValue(Path+'BarCode/Zoom', GetSaveProperty('Zoom')); XML.SetValue(Path+'BarCode/Zoom', GetSaveProperty('Zoom'));
end; end;
//-------------------------------------------------------------------------- //--------------------------------------------------------------------------
procedure TfrBarCodeForm.FormCreate(Sender: TObject); procedure TfrBarCodeForm.FormCreate(Sender: TObject);
var var