FiveTech Software tech support forums

Hola amigos del foro.

Estoy tratando de cambiar el color a header y/o footer (indistintamente) de UNA SOLA COLUMNA, en tiempo de ejecución.
Me explico:
Al recorrer las columnas con las teclas right o left, o dar click a determinada columna, quiero que el header o el footer, o ambos. cambien su color pero unicamente de la columna actualmente seleccionada. (las demas deben conservar su color original)

En el foro en Inglés he posteado algo al respecto, pero le falta porque afecta la velocidad del xbrowse al bajar o subir.
Este es el codigo: viewtopic.php?f=3&t=30456#p174862

¿Se puede hacer?. De ser así, alguien ya lo ha hecho y quiere compartirlo?

Gracias de antemano.

+1 crei tenia algo, pero no creo sea lo que buscas, igual dejo el link, aunque alli tu haces comentarios sobre el tema...saludos...

viewtopic.php?f=6&t=30004&start=0

Jose Luis.
Si, ese es otro tema. Seguimos intentando.
Saludos.

Alguien mas?
Nadie ha intentado esto?
Creo que he visto en post de hace rato que intentaron hacerlo. ¿Lo consiguieron?

Hola Francisco: (Ya vi que no eds lo que buscas, lo dejo igual, es para colorear la columna no el header y footer, disculpa)
No se si es lo que buscas. Lo sa qué de un recopilado de funciones que veo en el Foro y pienso que me
pueden servir. La tengo en un programa que se llama Treepad Lite.
Suerte.

nNumeroDaColunaAColorar := 2
...
oTBLLbx:bTextColor := {|nRow,nCol| CLR_BLACK }
oTBLLbx:bbkColor := {|nRow,nCol| PintaCelula(nRow,nCol,DBF->CAMPO,nNumeroDaColunaAColorar) }
...

Function PintaCelula( _nRow_, _nCol_, _status_, _qCol_ )
Local nCor := nRGB(255,255,255)
if _nRow_ > 0
do case
case _status_ = "V"
if _nCol_ = _qCol_
nCor = nRGB( 236,253,255 ) // CLR_AZULADITO
endif
case _status_ = "A"
if _nCol_ = _qCol_
nCor = nRGB( 234,255,229 ) // CLR_VERDEAGUA
endif
case _status_ = "R"
if _nCol_ = _qCol_
nCor = nRGB( 255,238,238 ) // CLR_VENCIDOS
endif
endcase
endif
return nCor

Ruben, gracias por contestar.
Tu ejemplo lo usaré en otro pequeño proyecto.

Les digo que estoy avanzando. Solo me queda un pequeño inconveniente.

En cuanto lo tenga listo, lo comparto con todos, aqui en el foro.

Saludos.

Aqui está la solucion:
viewtopic.php?f=6&t=30514&start=0