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!!! :D