FiveTech Software tech support forums

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

Y la Funcion ????

Salu2

Buen día,

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

Code: Select all  Expand view

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: Select all  Expand view

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

Saludos

Rolando

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


Salu2

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