Personalizar las etiquetas de valores lgicos en un DBBrowse?

[Guillermo Garcia]

Buen día me gustaría saber si existe alguna manera de personalizar las
etiquetas mostradas en un DBBrowse para campos Lógicos, es decir, (imagen)
en el campoPDT_ESTADO en vez de mostrarme .T. y .F., muestre "Activo" e
"Inactivo" respectivamente, claro y que al guardar se siga comportando como
está,es decir, guarda 1 ó 0. gracias.
Guillermo García
ADN Software


Attached files

[jrcpoli-quitar]

Guillermo:
Esto ya se ha explicado muchas veces y encontraras hilos hablando de
ello pero lo vuelvo a repetir los pasos:
1.- Creamos dos bimap Checked, UnChecked los adjuntos
2.- Vamos al DBBrowse que tengamos campos lógicos y en
propiedades->oImagenList los añadimos uno será la imagen 1 y el otro la dos
3.- Seleccionamos la columna del Browse que corresponda al campo lógico
y seleccionamos Eventos debemos utilizar dos.
4.- Evento OnDrawCell pulsamos dos veces con el ratón para crearlo, y
ponemos
METHOD DbfBwCestasColumn6DrawCell( oSender, cText, nClrText, nClrPane,
lHighLite, hDC, aRect ) CLASS TFormCestas
IF cText == ".T."
cText := "SI"
nClrText := clYellow
nClrPane := clRed
ELSE
cText := "NO"
ENDIF
RETURN Nil
5.- Evento OnGetData pulsamos dos veces para crearlo y ponemos
IF Value
nImage := 1
ELSE
nImage := 2 // Poner cero si quieres que no muestre imagen
ENDIF
Espero no haberme equivocado.
José Ramón Castro.
El 02/02/2010 15:35, Guillermo Garcia escribió:
> Buen dí­a me gustarí­a saber si existe alguna manera de personalizar las
> etiquetas mostradas en un DBBrowse para campos Lógicos, es decir, (imagen)
> en el campoPDT_ESTADO en vez de mostrarme .T. y .F., muestre "Activo" e
> "Inactivo" respectivamente, claro y que al guardar se siga comportando como
> está,es decir, guarda 1 ó 0. gracias.
>
>
> Guillermo Garcí­a
> ADN Software
>
>
--

[Guillermo Garcia]

Bueno la idea no era esa de poner imagenes pues ya eso lo había preguntado
yo también creo jejejeje, pero sobrecargando la función OnDrawCell y además
la función OnGetValue pude realizar lo que necesitaba así que muchas gracias
de todos modos.
Guillermo García
ADN Software
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escribió
en el mensaje news:[email=4b686b20@svctag-j7w3v3j....]4b686b20@svctag-j7w3v3j....[/email]
> Guillermo:
>
> Esto ya se ha explicado muchas veces y encontraras hilos hablando de
> ello pero lo vuelvo a repetir los pasos:
>
> 1.- Creamos dos bimap Checked, UnChecked los adjuntos
> 2.- Vamos al DBBrowse que tengamos campos lógicos y en
> propiedades->oImagenList los añadimos uno será la imagen 1 y el otro la
> dos
> 3.- Seleccionamos la columna del Browse que corresponda al campo lógico
> y seleccionamos Eventos debemos utilizar dos.
> 4.- Evento OnDrawCell pulsamos dos veces con el ratón para crearlo, y
> ponemos
> METHOD DbfBwCestasColumn6DrawCell( oSender, cText, nClrText, nClrPane,
> lHighLite, hDC, aRect ) CLASS TFormCestas
>
> IF cText == ".T."
> cText := "SI"
> nClrText := clYellow
> nClrPane := clRed
> ELSE
> cText := "NO"
> ENDIF
>
> RETURN Nil
>
> 5.- Evento OnGetData pulsamos dos veces para crearlo y ponemos
> IF Value
> nImage := 1
> ELSE
> nImage := 2 // Poner cero si quieres que no muestre imagen
> ENDIF
>
> Espero no haberme equivocado.
>
> José Ramón Castro.
>
> El 02/02/2010 15:35, Guillermo Garcia escribió:
>> Buen día me gustaría saber si existe alguna manera de personalizar las
>> etiquetas mostradas en un DBBrowse para campos Lógicos, es decir,
>> (imagen)
>> en el campoPDT_ESTADO en vez de mostrarme .T. y .F., muestre "Activo" e
>> "Inactivo" respectivamente, claro y que al guardar se siga comportando
>> como
>> está,es decir, guarda 1 ó 0. gracias.
>>
>>
>> Guillermo García
>> ADN Software
>>
>>
>