Imprimir una imagen por medio del preprocesador

Imprimir una imagen por medio del preprocesador

Postby noe aburto » Sat Sep 23, 2017 4:39 am

Saludos

tengo esta intruccion como preprocesador para imprimir imagenes JPG, pero al correrla me marca errores,
alguna ayuda?....


Code: Select all  Expand view

#command IMPRIME IMAGEN <cImagen> POS <nRow>,<nCol>;
                                  SIZE <nWidth>,<nHeight> EN <Reporte>;
                => <Reporte> := ImprImagen(<Reporte>,<cImagen>,<nRow>,<nCol>,<nWidth>,<nHeight>)

codigo fuente de prueba

imprime imagen 'c:\tmp\banorte.jpg' pos nRen+4,0 size 150,80 en oPrn


// --- Impresion de una imagen
function ImprImagen(OBJ_PRINT,cImagen,nRow,nCol,nWidth,nHeight)
local oImage

if File(cImagen)
 @ nRow,nCol IMAGE oImage FILE cImagen SIZE nWidth,nHeight OF OBJ_PRINT ADJUST
 oImage:Progress( .f. )
 oImage:LoadBmp(cImagen)
 oImage:Refresh()
 oImage:SaveImage(cImagen,2)
endif
return NIL
 



Gracias
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 8 guests