Como coloco UN JPG en mi pantalla principal

Posts: 6

Joined: Sun Oct 09, 2005 11:24 PM

Como coloco UN JPG en mi pantalla principal
Posted: Tue Oct 11, 2005 04:06 AM

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

Posts: 21

Joined: Fri Oct 07, 2005 05:13 AM

Como coloco UN JPG en mi pantalla principal
Posted: Tue Oct 11, 2005 05:12 AM

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

Dpto.Desarrollos eTi

Jesús Díez González

Villajoyosa (Alicante)

rbt

Posts: 7

Joined: Fri Oct 07, 2005 04:52 AM

JPG BMP
Posted: Tue Oct 11, 2005 05:14 AM

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

Espero te sirva...

Gracias

:-) Carlos Velazquez

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Como coloco UN JPG en mi pantalla principal
Posted: Mon Oct 30, 2006 05:53 PM

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 Collapse

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

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Como coloco UN JPG en mi pantalla principal
Posted: Tue Oct 31, 2006 09:57 AM

Manuel,

En vez de

DEFINE BITMAP oBmp FILENAME "FOTO.BMP"

usa

oBmp = TImage():Define( , "FOTO.JPG" )

el resto del código sigue igual

regards, saludos

Antonio Linares
www.fivetechsoft.com

ralph

Posts: 92

Joined: Fri Nov 18, 2005 11:15 PM

Como coloco UN JPG en mi pantalla principal
Posted: Tue Oct 31, 2006 05:17 PM

Yo lo hago asi:

Code: Select all Collapse

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

Ralph del Castillo

Lima PERU

Fwh 24.07, xHb123_10193, MySQL 8.x, BCC 7.3

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Como coloco UN JPG en mi pantalla principal
Posted: Tue Oct 31, 2006 05:52 PM

Gracias Antonio. ¡¡Perfecto!!!

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

FiveTech Support Forums

Continue the discussion