TWBrowse de HC y Fondos

[rolando]

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]

Y la Funcion ????

Salu2

[rolando]

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

[Willi Quintana]

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


Salu2

[rolando]

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