Página 1 de 1
Color en celda
Publicado: Jue Ene 19, 2006 1:16 pm
por Paco V
Sería muy complicado que en un TdBrowse hubiera algunas celdas que tuvieran
distinto color según su valor? Ojo, no la columna.
¿Se podria hacer?
Paco V
Color en celda
Publicado: Jue Ene 19, 2006 2:13 pm
por ignacio
Paco,
Echale un vistazo al evento OnDrawCell del objeto TBrwColumn.
Saludos,
"Paco V" <
ssi@ono.com> escribió en el mensaje
news:43cf831e$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
>
> Sería muy complicado que en un TdBrowse hubiera algunas celdas que
> tuvieran
> distinto color según su valor? Ojo, no la columna.
> ¿Se podria hacer?
>
> Paco V
Color en celda
Publicado: Jue Ene 19, 2006 2:23 pm
por jasm.nospam
Paco:
Este método cambia el color de cada celda en la columna 7 de un
ArrayBrowse. Supongo que para los demas browses basados en columnas
tambien vale.
METHOD ArrayBrowse1Column7DrawCell( oSender, cText, nClrText, nClrPane,
lHighLite, hDC, aRect ) CLASS TForm28
IF ::oArrayBrowse1:aArrayData[ ::oArrayBrowse1:nArrayAt
][oSender:nIndex] < 0
IF lHighLite .AND. nClrPane = 12937777
nClrText = CLR_WHITE
ELSE
nClrText = CLR_HRED
ENDIF
ELSE
IF lHighLite .AND. nClrPane = 12937777
nClrText = CLR_WHITE
ELSE
nClrText = CLR_BLUE
ENDIF
ENDIF
RETURN Nil
Saludos,
Jose A. Suarez
Paco V escribió:
> Sería muy complicado que en un TdBrowse hubiera algunas celdas que tuvieran
> distinto color según su valor? Ojo, no la columna.
> ¿Se podria hacer?
>
> Paco V