FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour cargar imagen, colocar texto y grabarla(SOLUCIONADO)
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
cargar imagen, colocar texto y grabarla(SOLUCIONADO)
Posted: Wed Dec 28, 2016 04:07 AM
Estimados
como puedo colocar texto a una imagen y grabarla
estoy haciendo esto me graba la imagen pero no me graba el texto, queda lo mismo que la imagen original

esta imagen es del fondo del sistema, necesito colocar el texto
Code (fw): Select all Collapse
            DEFINE IMAGE oImg FILE "IMAGEN\FONDO.jpg" OF oWnd
            oImg:Say( 5,10,"PRUEBA" )
            oImg:SaveImage( "IMAGEN\FONDO2.JPG", 2, 25 )
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: cargar imagen, colocar texto y grabarla
Posted: Wed Dec 28, 2016 09:37 PM
Patricio,

Prueba asi:
Code (fw): Select all Collapse
DEFINE IMAGE oImg FILE "IMAGEN\FONDO.jpg" OF oWnd
            oImg:Say( 5,10,"PRUEBA" )
            DeleteObject( oImg:hBitmap )
            oImg:hBitmap = WndBitmap( oImg:hWnd ) 
            oImg:SaveImage( "IMAGEN\FONDO2.JPG", 2, 25 )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: cargar imagen, colocar texto y grabarla
Posted: Wed Dec 28, 2016 09:39 PM

De no funcionarte, prueba asi:

@ ..., ... IMAGE oImg ...

en vez de DEFINE IMAGE ...

y usando las líneas que añadí en el mensaje anterior

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: cargar imagen, colocar texto y grabarla(solucionado)
Posted: Thu Dec 29, 2016 03:27 AM

Gracias antonio

la primera deja de funcionar el programa y se cierra
la segunda con @.. funciona perfecto

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Continue the discussion