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

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

....
   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

[Manuel Aranda]

Gracias Antonio. ¡¡Perfecto!!!