Añadir Texto a una imagen

[softruz]

Muy buenas, ¿Alguien tiene algún ejemplo de como añadir un texto a una imagen?

Un Saludo.

[Antonio Linares]

Juan,

Si se trata de mostrar un texto sobre una imagen visible, puedes hacer:

oImagen:Say( nRow, nCol, cText [, nClrFore, nClrBack, oFont, lPixel, lTransparent, nAlign] )

Si quieres que el texto se muestre aunque ponas algo encima de la imagen (otro dialogo, otra aplicación), entonces debes usar el dato bPainted del control:

oImagen:bPainted = { || oImagen:Say( nRow, nCol, cText [, nClrFore, nClrBack, oFont, lPixel, lTransparent, nAlign] ) }

Otra opción es crear un control SAY encima de la propia imagen, con lo que podras actualizarlo, etc:

@ nRow, nCol SAY oSay PROMPT "texto" OF oImagen

[softruz]

Me he explicado mal, yo tengo un .jpg y quiero añadirle un texto y despues guardarlo en otra .jpg, ¿podemos hacer algo con esto?

Un Saludo Antonio

[Antonio Linares]

Juan,

Después de mostrar la imagen y de escribir en ella usando una de las formas que te he indicado, haz:

oImagen:SaveToBmp( cFileName )

Creará un fichero BMP en disco.

Para salvarla como JPG tendrías que volver a cargar el bitmap generado y salvarlo:

Code: Select all  Expand view

oImagen:LoadImage( , cFileName )
oImagen:SaveImage( cJPGFileName, 2 [, nQuality] )
 

[softruz]

Muchas gracias Antonio, voy a probarlo.

Un Saludo.

[JmGarcia]

Tengo este codigo fuente y el texto puesto encima del BMP no se queda anclado a este cuando muevo el bmp con los scrolls. Se quedan alclado al la ventana.

Code: Select all  Expand view

function Main()
public oWnd,oBmp

DEFINE WINDOW oWnd FROM 0,0 TO 500,500 PIXEL

// fondo3.bmp es una imagen de 1000x1000 pixles
@ 0,0 BITMAP oBmp FILE "fondo3.bmp" OF oWnd SIZE 1000,1000 PIXEL SCROLL
oBmp:bPainted:={||oBmp:Say(75,75,"Hola mundo",CLR_HCYAN,CLR_BLUE,,.T.,.T.,)}

ACTIVATE WINDOW oWnd ON PAINT {oBmp:aDjClient(),oBmp:ScrollAdjust()} ;
                     ON RESIZE {oBmp:aDjClient(),oBmp:ScrollAdjust()}

return nil

[anserkk]

Dear Mr.JmGarcia,

Did you try to create the SAY as given below

@ nRow, nCol SAY oSay PROMPT "texto" OF oBmp

Code: Select all  Expand view

// fondo3.bmp es una imagen de 1000x1000 pixles
@ 0,0 BITMAP oBmp FILE "fondo3.bmp" OF oWnd SIZE 1000,1000 PIXEL SCROLL
@75,75 SAY oSay PROMPT "Hola mundo" COLOR CLR_HCYAN,CLR_BLUE TRANSPARENT

ACTIVATE WINDOW oWnd ON PAINT {oBmp:aDjClient(),oBmp:ScrollAdjust()} ;
                     ON RESIZE {oBmp:aDjClient(),oBmp:ScrollAdjust()}

Regards
Anser