topic-24306

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Color en xBrowse vacío (SOLUCIONADO)
Posted: Sat Jun 23, 2012 12:18 AM

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

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

RuFerSo

Posts: 55

Joined: Mon Feb 20, 2012 02:56 PM

Re: Color en xBrowse vacío
Posted: Sat Jun 23, 2012 04:50 AM

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

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Re: Color en xBrowse vacío
Posted: Sat Jun 23, 2012 04:50 PM

Gracias Ruben, estoy intentando con:

Code (fw): Select all Collapse

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

Pero me da el siguiente error:

Code (fw): Select all Collapse

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

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Color en xBrowse vacío
Posted: Sat Jun 23, 2012 05:03 PM

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

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

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Bayron

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Re: Color en xBrowse vacío
Posted: Sat Jun 23, 2012 05:05 PM

FranciscoA wrote:Bayron, intenta colocar el background despues de creado el browse.

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

Saludos.

Mismo error...

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Color en xBrowse vacío
Posted: Sat Jun 23, 2012 05:44 PM

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.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Bayron

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Re: Color en xBrowse vacío
Posted: Sat Jun 23, 2012 05:49 PM

Así si funcionó...

Muchas gracias Francisco

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Bayron

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Re: Color en xBrowse vacío
Posted: Sat Jun 23, 2012 06:05 PM

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

Code (fw): Select all Collapse

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

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

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

FiveTech Support Forums

Continue the discussion