topic-15488

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

TWBrowse de HC y Fondos
Posted: Mon May 04, 2009 09:29 PM

Buenas Tardes,

Logré, con mis escasos conocimientos, resolver la cuestión de pintar el fondo en la TWBrowse de HC cuando las líneas del lisbox son más que las líneas a mostrar. Esto no me gustaba porque el fondo quedaba como se ve acá:

Agregandole una pequeña función logré que se vea así:

Espero a alguien le sirva.

Rolando

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: TWBrowse de HC y Fondos
Posted: Tue May 05, 2009 02:09 AM

Y la Funcion ????

Salu2

rolando

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

Re: TWBrowse de HC y Fondos
Posted: Tue May 05, 2009 11:27 AM

Buen día,

La función hay que ponerla en la WBrowse.prg y es:

Code (fw): Select all Collapse

METHOD CubroFondo(nClrFondo) INLINE (::SetColor( GetSysColor( COLOR_WINDOWTEXT ) , nClrFondo ) , ::Refresh())   // by rolo

Se la llama enviandole el color que quiero de fondo para el listbox así:

Code (fw): Select all Collapse

oLbx:CubroFondo(nRGB(230,230,250))

Saludos

Rolando

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: TWBrowse de HC y Fondos
Posted: Tue May 12, 2009 03:59 AM

Hola,
El mismo efecto se logra con esto:
DEFINE LISTOB oLbx .....
FIELDS ...
HEADERS ...
ON CHANGE.....
COLOR CLR_HBLUE, nRGB(230,230,250)
....
..

Salu2

rolando

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

Re: TWBrowse de HC y Fondos
Posted: Tue May 12, 2009 02:18 PM

Willi,

Tiene razón, esa es la manera prevista para hacerlo, pero como nadie me respondió a tiempo, hice lo que pude para lograr lo que quería.

Ya que pareces conocer bién esta clase, ¿que tal si me ayudas con esto? http://forums.fivetechsupport.com/viewtopic.php?f=6&t=15407

Saludos.

Rolando

FiveTech Support Forums

Continue the discussion