ALGUIEN TIENE

[A&C]

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

[Antonio Linares]

Code: Select all  Expand view  RUN

      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.