Page 1 of 1
Como coloco UN JPG en mi pantalla principal
Posted: Tue Oct 11, 2005 4:06 am
by Mario Gonzalez
Saludos a Todos;
Ahora por esta via
a ver quien me puede ayudar
necesito colocar un JPG en mi pantalla principal
hasta ahora solo puedo BMP
de antemano gracias.
Mario Gonzalez
Desde Venezuela
mag071@hotmail.com
Posted: Tue Oct 11, 2005 5:12 am
by jesus
Puedes utilizar la clase TImage retocada por EMG que utiliza freeimage.dll Te la envio por e-mail privado...
Un saludo
Jesús Díez González
JPG BMP
Posted: Tue Oct 11, 2005 5:14 am
by rbt
Puedes usar IMAGE para manejar JPGS, o bien convertir tu JPG a BMP
Espero te sirva...
Posted: Mon Oct 30, 2006 5:53 pm
by Manuel Aranda
Pues eso, se puede poner un JPG de fondo en la pantalla principal
Ahora tengo un BMP que pongo con el siguiente código:
Code: Select all
DEFINE BITMAP oBmp FILENAME "FOTO.BMP"
oVentPrinc:bPainted := {|hDC| PalBmpDraw( hDC, 0, 0,oBmp:hBitmap,, oVentPrinc:nWidth, oVentPrinc:nHeight,, .T.) }
y va perfecto, ¿puedo hacerlo con un JPG? ¿cómo?
Saludos,
Manuel
Posted: Tue Oct 31, 2006 9:57 am
by Antonio Linares
Manuel,
En vez de
DEFINE BITMAP oBmp FILENAME "FOTO.BMP"
usa
oBmp = TImage():Define( , "FOTO.JPG" )
el resto del código sigue igual
Posted: Tue Oct 31, 2006 5:17 pm
by ralph
Yo lo hago asi:
Code: Select all
....
ACTIVATE WINDOW oWndMain MAXIMIZED ;
ON INIT ( Showlogo(oWndMain) )
...
Function ShowLogo(oWnd)
Local oBmp00, _nFil, _nCol
cFileFondo:="mifondo.jpg"
_nFil := GetWndRect(GetDesktopWindow())[3]
_nCol := GetWndRect(GetDesktopWindow())[4]
If File(cFileFondo)
@ 0,0 Image oBmp00 FILENAME "" OF oWnd:oWndClient ;
SIZE _nCol,_nFil NOBORDER PIXEL
oBmp00:LoadImage(,cFileFondo)
oBmp00:refresh()
Endif
return nil
espero te sirva
Ralph
Posted: Tue Oct 31, 2006 5:52 pm
by Manuel Aranda
Gracias Antonio. ¡¡Perfecto!!!
