FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ¿Como puedo mostrar PNG, JPG o GIF además de BMP?
Posts: 139
Joined: Sun Apr 23, 2006 09:00 AM
¿Como puedo mostrar PNG, JPG o GIF además de BMP?
Posted: Fri Dec 16, 2011 07:59 PM

Hola.
Para establecer el fondo de mi aplicación utilizo DrawBitmap() pero sólo me sirve para archivos BMP. ¿Existe alguna función que me permita mostrar archivos PNG, JPG o GIF al igual que hace DrawBitmap()?
También me gustaría poder crear BRUSH con otro tipo de archivos que no sean BMP.
Gracias por adelantado.

Un saludo,

Fernando

Las Palmas de Gran Canaria
Posts: 119
Joined: Fri Nov 04, 2005 12:23 AM
Re: ¿Como puedo mostrar PNG, JPG o GIF además de BMP?
Posted: Fri Dec 16, 2011 08:13 PM

Buen dia

Puedes convertir archivos de formato png o jpg a bmp de una forma muy sencilla, solo abrelos con el visor de imagenes y fax de windows y luego le das 'guardar como'  y seleccionas tipo de archivo 'bmp'. Tambien lo puedes hacer con el paint.

 Saludos.
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: ¿Como puedo mostrar PNG, JPG o GIF además de BMP?
Posted: Fri Dec 16, 2011 11:02 PM

Hola Fernando.
El fondo de mi aplicación lo establezco así:

FUNCTION MAIN()
local oBmp = TImage():Define( , GetPvProfString("Config","ImagenWnd",".\FapSoft.jpg",cIniFile) ) //Uso fichero .Ini

DEFINE WINDOW oWnd......

oWnd:bPainted := { | hDC | PongaBmp( hDC , oBmp , oWnd ) }

ACTIVATE WINDOW oWnd...

RETURN NIL

//-----------------------------------------//
STATIC FUNCTION PongaBmp( hDC, oBmp, oWnd )
PalBmpDraw( hDC, 0, 0,oBmp:hBitmap,, oWnd:oWndClient:nWidth, oWnd:oWndClient:nHeight,, .t.)
return nil

Espero te sirva de guía.

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion