Muy buenas, ¿Alguien tiene algún ejemplo de como añadir un texto a una imagen?
Un Saludo.
Board index FiveWin para Harbour/xHarbour Añadir Texto a una imagen
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
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
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:
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:
oImagen:LoadImage( , cFileName )
oImagen:SaveImage( cJPGFileName, 2 [, nQuality] )Muchas gracias Antonio, voy a probarlo.
Un Saludo.
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.
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 nilMi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Dear Mr.JmGarcia,
Did you try to create the SAY as given below
@ nRow, nCol SAY oSay PROMPT "texto" OF oBmp
Regards
Anser
Did you try to create the SAY as given below
@ nRow, nCol SAY oSay PROMPT "texto" OF oBmp
// 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