TSayBarCode

Source: source/classes/tsaybcod.prg

Inherits from: TControl

TSayBarCode renders barcodes as a visual control on windows and dialogs. It supports multiple barcode symbologies (Code 128, Code 39, EAN, etc.) with configurable orientation, pin size, and display flags. The control can be bound to a data variable for automatic refresh.

Key DATA Members

DATA	Type	Description
`cText`	Character	Text string to encode in the barcode
`bGet`	Code block	Code block returning the barcode text value
`BarCodeType`	Numeric	Barcode symbology type (default 128 for Code 128)
`lVertical`	Logical	Render the barcode vertically
`nPinSize`	Numeric	Width of the narrowest bar element in pixels
`nFlags`	Numeric	Additional rendering flags for the barcode engine

Methods

Method	Description
`New( nRow, nCol, bText, cType, oWnd, nW, nH )`	Create a new barcode control with text block, type, and dimensions
`Redefine( nID, bText, cType, oWnd )`	Redefine from a dialog resource by control ID
`Paint()`	Draw the barcode graphic in the control area
`Refresh()`	Re-render the barcode after changing properties
`SetText( c )`	Update the barcode text and refresh the display

Commands

@ nRow, nCol SAYBARCODE oBar VAR bBlock TYPE cType SIZE nW, nH OF oDlg

Example: Code128 Barcode

#include "FiveWin.ch"

function Main()

   local oWnd, oBar
   local cCode := "ABC-12345"

   DEFINE WINDOW oWnd TITLE "Barcode Demo" SIZE 400, 200

   @ 20, 20 SAYBARCODE oBar VAR { || cCode } ;
      TYPE "CODE128" SIZE 360, 80 OF oWnd

   oBar:nPinSize := 2
   oBar:lVertical := .F.

   ACTIVATE WINDOW oWnd CENTERED

return nil

Notes