pablovidal wrote:Gracias
Pero estube buscando en las contribuciones de harbour y no esta ?
a ver si me la puedes mandar a pabloalbertovidal arroba gmail punto com
#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
elmoiquique wrote:Ademas tu dices de sentarse un rato a cambiarla, yo podria sentarme hacer eso, ya que lo necesito urgente
elmoiquique wrote:Ademas tu dices de sentarse un rato a cambiarla, yo podria sentarme hacer eso, ya que lo necesito urgente
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 49 guests