TArrayBrowse

[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:

[ALINE]

Ejemplo adjunto:

[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.

[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

[ALINE]

Gracias!

[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: ()

[ALINE]

Proyecto adjunto.

Attached files Ejemplo.zip (2.5 KB)Â

[ALINE]

Lo sentimos, el archivo fue dañado. Sigue a otro proyecto

Attached files Exemplo2.zip (1.2 KB)Â

[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

[ALINE]

Gracias por la información.