Draw text under a barcode

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

Here is some sample code in Delphi that lets you draw text underneath a barcode.
// Add the Helvetica standard font
QP.AddStandardFont(4);

// Get the width of the barcode with a bar width of 1 unit
BarcodeWidth := QP.GetBarcodeWidth(1, '12345', 1);

// Draw the barcode
QP.DrawBarcode(100, 500, BarcodeWidth, 100, '12345', 1, 0);

// Center the text
QP.SetTextAlign(1);

// Draw the text at 10pt
QP.SetTextSize(10);
QP.DrawText(100 + BarcodeWidth / 2, 500 - 200 - 5 -
QP.GetTextHeight, '12345');

Edited by Rowan - 07 Feb 11 at 8:15PM

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Rowan Members Profile Find Members Posts Moderator Group Joined: 10 Jan 09 Status: Offline Points: 398	Post Options Post Reply Quote Rowan Report Post Thanks(0) Quote Reply Topic: Draw text under a barcode Posted: 03 Feb 11 at 6:21PM
	Here is some sample code in Delphi that lets you draw text underneath a barcode. // Add the Helvetica standard font QP.AddStandardFont(4); // Get the width of the barcode with a bar width of 1 unit BarcodeWidth := QP.GetBarcodeWidth(1, '12345', 1); // Draw the barcode QP.DrawBarcode(100, 500, BarcodeWidth, 100, '12345', 1, 0); // Center the text QP.SetTextAlign(1); // Draw the text at 10pt QP.SetTextSize(10); QP.DrawText(100 + BarcodeWidth / 2, 500 - 200 - 5 - QP.GetTextHeight, '12345'); Edited by Rowan - 07 Feb 11 at 8:15PM