FiveTech Support Forums

Un Listbox de tipo
@ 50, 3 LISTBOX oLbx VAR nPos ITEMS aLista OF oDlg COLOR CLR_BLACK, CLR_FONDO_LST SIZE 160, 74 PIXEL

Se puede cambiar el color de la barra?, como

gracias
uso FWH DIC'2005

Hola Mario. Mira si te funciona esto:

oLbx:nClrText := RGB(0,0,0) // text
oLbx:nClrPane := RGB(235,225,45) // background

 //Apuntador
 oLbx:nClrBackFocus := {|| GetSysColor( COLOR_ACTIVECAPTION ) }  //fondo
 oLbx:nClrForeFocus := {|| CLR_WHITE }   //texto

o asi:
/*
Cabeceras:
oBjeto:nClrBackHead := RGB(...) // fondo
oBjeto:nClrForeHead := RGB(...) // texto
Apuntador:
oBjeto:nClrBackFocus := RGB(...) // fondo
oBjeto:nClrForeFocus := RGB(...) // texto
Renglones:
oBjeto:nClrText := RGB(...) // text
oBjeto:nClrPane := RGB(...) // background

Además, dentro de los renglones, el color puede ser asignado por medio de un bloque de código y desplegar los renglones de distintos colores. Ejemplo:
oBjeto:nClrText:={|| IF dbf->campo > 0, RGB(),RGB()}
*/

Saludos

MarioG wrote:Se puede cambiar el color de la barra?, como

Hola Mario:

El color de la barra en estos controles ListBox simples lo define automaticamente Windows (COLOR_HIGHLIGHT), se puede cambiar pero no lo considero conveniente porque con el cambio afectarías temporalmente a todas tus aplicaciones activas.

Si quieres dímelo y te muestro como se puede hacer.

Un abrazo.

Manuel Mercado

gracias por as respuestas
Francisco: Lo que explicas es para el caso de usar listbox para desplegar DBFs

Manuel: me temía al leer que hereda de TControl. Buscaré otra alternativa

saludos

oltra alternativa,

xBrowse