- Code: Select all Expand view
- #include "fivewin.ch"
function main()
local oWnd
define window oWnd
activate window oWnd;
on paint( BarCode( hDC ) )
return nil
function BarCode( hDC )
local hZebra
local cCode := "testing from fivewin"
local hBrush := CreateSolidBrush( 0 )
hZebra := hb_zebra_create_pdf417( cCode, NIL )
hb_zebra_draw( hZebra, {| x, y, w, h | FillRect( hDC, { y, x, y + h, x + w }, hBrush ) }, 5, 5, 1, 4 )
deleteobject( hBrush )
hb_zebra_destroy( hZebra )
return nil
When tested cCode with:
http://www.lenovocareers.com/CorporateInformation.aspx
The QR Code displayed read as : 15067494.
How to make it to read http://www.lenovocareers.com/CorporateInformation.aspx
Regards
ACWoo
FWH1320+bcc582+harbour