Página 1 de 1

TArrayBrowse

Publicado: Vie Mar 18, 2011 6:01 pm
por ALINE
Buenas tardes
Me pregunto cómo puedo cambiar la lí­nea de color sólo en una columna en particular cuando la columna se selecciona?
Ejemplo adjunto:

TArrayBrowse

Publicado: Lun Mar 21, 2011 8:22 pm
por ALINE
Ejemplo adjunto:

TArrayBrowse

Publicado: Mar Mar 22, 2011 8:53 am
por perolero
Aline:
Utiliza para ello el evento OnDrawCell de la columna que tu quieras cambiar el color tanto del texto como del fondo de columna.
Saludos,
Emilio Gil.

TArrayBrowse

Publicado: Mar Mar 22, 2011 12:12 pm
por jlalin
Aline,
si quieres cambiar el color al pulsar en el encabezado de la columna,
puedes hacerlo así­: selecciona el evento OnHeaderClick de la columna y
añade este código:
::oArrayBrowse1:aCols[ <numero de columna> ]:nClrPane := clRed
::oArrayBrowse1:Refresh()
Saludos,
José Lalí­n

TArrayBrowse

Publicado: Mar Mar 22, 2011 12:21 pm
por ALINE
Gracias!

TArrayBrowse

Publicado: Mar Mar 22, 2011 4:11 pm
por ALINE
José Lalí­n
Entendí­ su explicación, pero quiero cambiar el color del texto del foco de una columna en particular.
Ejemplo:
:: OArrayBrowse1: [<Bloq columna>] aCols: nClrSelFocusPane: = clRed
:: OArrayBrowse1: Actualizar ()
Cuando me pongo en el evento "onchange" el ejemplo anterior da el siguiente error:
BASE/1005 mensaje de advertencia no se encuentran: TARRAYBRWCOLUMN: _NCLRSELFOCUSTEXT
Argumentos: ()

TArrayBrowse

Publicado: Mar Mar 22, 2011 6:42 pm
por ALINE
Proyecto adjunto.

Attached files Ejemplo.zip (2.5 KB)Â

TArrayBrowse

Publicado: Mar Mar 22, 2011 6:52 pm
por ALINE
Lo sentimos, el archivo fue dañado. Sigue a otro proyecto

Attached files Exemplo2.zip (1.2 KB)Â

TArrayBrowse

Publicado: Mar Mar 22, 2011 9:25 pm
por jlalin
Aline,
> BASE/1005 mensaje de advertencia no se encuentran:
> TARRAYBRWCOLUMN: _NCLRSELFOCUSTEXT
Las columnas no tienen la propiedad nClrSelFocusText.
METHOD ArrayBrowse1Change( oSender, lBookMarkChanged ) CLASS Formulario
IF ::oArrayBrowse1:SelectedCol() == ::oArrayBrowse1:aCols[3]
::oArrayBrowse1:aCols[3]:nClrText:=clRed
ENDIF
RETURN Nil
Saludos,
José Lalí­n

TArrayBrowse

Publicado: Mié Mar 23, 2011 12:57 pm
por ALINE
Gracias por la información.