Ayuda cpm hbzebra.lib
Posted: Wed Sep 06, 2017 6:11 am
Hola amigos:
Tengo este código, que pinta una imagen en la pantalla. lo que no puedo es cargar la imagen a una variable para poder grabarla como archivo bmp
Gracias mil
Tengo este código, que pinta una imagen en la pantalla. lo que no puedo es cargar la imagen a una variable para poder grabarla como archivo bmp
Gracias mil
- Code: Select all Expand view
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 )
hb_zebra_destroy( hZebra )
deleteobject( hBrush )
return(nil)