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

LazBarcodes: In demo, move PDF417 to new node "Stacked".

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8211 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-16 16:48:51 +00:00
parent bcf7b347c4
commit 5e5e918dd5
2 changed files with 43 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazbarcodes/demo/main.pas
View File

@@ -344,7 +344,7 @@ begin
try
Items.Clear;
node := Items.AddChild(nil, '1-dimensional barcodes');
node := Items.AddChild(nil, '1-DIMENSIONAL');
child := Items.AddChildObject(node, 'Code 11', PChar('TBarcodeC11'));
child := Items.AddChildObject(node, 'Code 128 and related', PChar('TBarcodeC128'));
Items.AddChildObject(child, 'Code-128', Pointer(PtrInt(bctCode128)));
@@ -398,17 +398,19 @@ begin
Items.AddChildObject(child, 'PostNet', Pointer(PtrInt(bctPostNet)));
Items.AddChildObject(child, 'Royal Mail RM4SCC', Pointer(PtrInt(bctRM4SCC)));
node := Items.AddChild(nil, '2-dimensional barcodes');
node := Items.AddChild(nil, 'STACKED');
child := Items.AddChildObject(node, 'PDF417 variants', PChar('TBarcodePDF417'));
Items.AddChildObject(child, 'PDF417', Pointer(PtrInt(bctPDF417)));
Items.AddChildObject(child, 'Compact PDF417', Pointer(PtrInt(bctPDF417trunc)));
Items.AddChildObject(child, 'MicroPDF417 (ISO 24728)', Pointer(PtrInt(bctMicroPDF417)));
node := Items.AddChild(nil, '2-DIMENSIONAL');
child := Items.AddChildObject(node, 'QR Code', PChar('TBarcodeQR'));
child := Items.AddChildObject(node, 'Micro QR', PChar('TBarcodeMicroQR'));
child := Items.AddChildObject(node, 'Aztec', PChar('TBarcodeAztec'));
child := Items.AddChildObject(node, 'Aztec Rune', PChar('TBarcodeAztecRune'));
child := Items.AddChildObject(node, 'Data Matrix', PChar('TBarcodeDataMatrix'));
child := Items.AddChildObject(node, 'PDF417 variants', PChar('TBarcodePDF417'));
Items.AddChildObject(child, 'PDF417', Pointer(PtrInt(bctPDF417)));
Items.AddChildObject(child, 'Compact PDF417', Pointer(PtrInt(bctPDF417trunc)));
Items.AddChildObject(child, 'MicroPDF417 (ISO 24728)', Pointer(PtrInt(bctMicroPDF417)));
FullExpand;
finally
Items.EndUpdate;