Como coloco UN JPG en mi pantalla principal

[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

[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

[rbt]

Puedes usar IMAGE para manejar JPGS, o bien convertir tu JPG a BMP

Espero te sirva...

[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 | Expand

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

[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

[ralph]

Yo lo hago asi:

Code: Select all | Expand

....   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()     Endifreturn nil

espero te sirva

Ralph

[Manuel Aranda]

Gracias Antonio. ¡¡Perfecto!!!