cargar imagen, colocar texto y grabarla(SOLUCIONADO)

[Patricio Avalos Aguirre]

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: Select all  Expand view

            DEFINE IMAGE oImg FILE "IMAGEN\FONDO.jpg" OF oWnd
            oImg:Say( 5,10,"PRUEBA" )
            oImg:SaveImage( "IMAGEN\FONDO2.JPG", 2, 25 )
 

[Antonio Linares]

Patricio,

Prueba asi:

Code: Select all  Expand view

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 )

[Antonio Linares]

De no funcionarte, prueba asi:

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

en vez de DEFINE IMAGE ...

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

[Patricio Avalos Aguirre]

Gracias antonio

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