Color en xBrowse vacío (SOLUCIONADO)

[Bayron]

Me gustaría saber si hay alguna manera de cambiar el color del area vacia de un xBrowse...
Ahora es blanca y siendo un area tan grande de la pantalla me gustaría colocarle otro color...

[RuFerSo]

Hola Bayron, puedes ponerle una imagen de fondo, hay ejemplos en el foro, si lo necesitas busco uno y lo pongo aquí.

Saludos Ruben Fernandez

[Bayron]

Gracias Ruben, estoy intentando con:

Code: Select all

ListVen:SetBackGround( Camino + 'images\Presentacion.bmp', BCK_FILL )
ListVen:CreateFromCode()
 

Pero me da el siguiente error:

Code: Select all

Application
===========
   Path and name: L:\Violetas\Violetas.EXE (32 bits)
   Size: 4,657,152 bytes
   Compiler version: Harbour 3.2.0dev (Rev. 17660)
   FiveWin  Version: FWH 12.03
   Windows version: 6.1, Build 7600 

   Time from start: 0 hours 0 mins 2 secs 
   Error occurred at: 23/06/2012, 10:36:31
   Error description: Error BASE/1004  Message not found: NIL:EVAL
   Args:
     [   1] = U   

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => NIL:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => NIL:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => (b)EVAL( 0 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 407 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCOUNT( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:REFRESH( 1184 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 562 )
   Called from: .\source\classes\WINDOW.PRG => TXBROWSE:SETBRUSH( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SETBACKGROUND( 5347 )
   Called from: L:\Violetas\prg\Ventas.prg => VENTAS( 0 )
   Called from: L:\Violetas\prg\MayaPOS.prg => (b)MAKERIBBON( 0 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:CLICK( 676 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 854 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1690 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1520 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3153 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 980 )
   Called from: L:\Violetas\prg\MayaPOS.prg => MAIN( 0 )

 

Seguramente es porque el xBrowse está vacío????

No creo que debería ser de esta manera, ya que el area del browse sigue estando ahí aunque esté vacío...

[FranciscoA]

Bayron, intenta colocar el background despues de creado el browse.

ListVen:CreateFromCode()
ListVen:SetBackGround( Camino + 'images\Presentacion.bmp', BCK_FILL )

Saludos.

[Bayron]

Bayron, intenta colocar el background despues de creado el browse.

ListVen:CreateFromCode()
ListVen:SetBackGround( Camino + 'images\Presentacion.bmp', BCK_FILL )

Saludos.

Mismo error...

[FranciscoA]

En un programa para restaurantes que tengo, lleno el xbrowse con la estructura vacía de una dbf y el background lo creo en el ON INIT del dialogo contenedor. Así me funciona. No sé en tu caso. Está hecho con FWXH1006.

Saludos.

[Bayron]

Así si funcionó...

Muchas gracias Francisco

[Bayron]

Logré lo que quería al incluirlo así en el ON INIT:

Code: Select all

ListVen:SetBackGround( Camino + 'images\Presentacion.bmp', BCK_FILL ),;
ListVen:lTransparent := .F.,;
 

Por supuesto que voy as utilizar otra imagen.....