FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para CA-Clipper ALGUIEN TIENE
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM
ALGUIEN TIENE
Posted: Thu Jan 25, 2007 06:35 PM

Alguien tiene una rutina que permita cambiar un Bitmap en la pantalla principal de un menu,, en tiempo de ejecucion.. un bitmap q sea usado por el usuario,, o alguien sabe como hacerla

GRACIAS

es para darle un cache al sistema

Mi segundo amor es Programar
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
ALGUIEN TIENE
Posted: Fri Feb 02, 2007 08:10 AM
      DEFINE BITMAP oBmpLogo FILE "milogo.bmp"

      oWnd:bPainted = { | hDC | If( oBmpLogo != nil,;
                                  PalBmpDraw( hDC,;
                                  oWnd:nHeight() / 2 - ;
                                  oBmpLogo:nHeight() / 2 - 50,;
                                  oWnd:nWidth() / 2 - ;
                                  oBmpLogo:nWidth() / 2,;
                                  oBmpLogo:hBitmap ),) }

Para cambiar de bitmap sólo tienes que hacer oBmpLogo:End() y volver a ejecutar DEFINE BITMAP oBmpLogo FILE "otro.bmp" con otro nombre de fichero.
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion