Xailer & OZ Software

La duda es:
Como le hago para integrar un Checkbox en una columna de un DbfBrowse.
Lo que pretendo es que el usuario con un simple click, en cualquier línea
del DbfBrowse
Marque y Desmarque la columna del Checkbox en forma alternada.
Saludos
Guillermo Guevara Carrillo

Toc, Toc, Toc.......
Hay alguién en casa
Ing. Guillermo Guevara Carrillo
> La duda es:
>
> Como le hago para integrar un Checkbox en una columna de un DbfBrowse.
> Lo que pretendo es que el usuario con un simple click, en cualquier línea
> del DbfBrowse
> Marque y Desmarque la columna del Checkbox en forma alternada.
>
> Saludos
>
> Guillermo Guevara Carrillo
>

No puedes poner un checkbox directamente pero la manera de hacerlo es
usando 2 bitmap de 16 bits con el Checkbox marcado y desmarcado.
Yo uso dos luces verde y roja que te adjunto.
Para ello has de crear el DbfBrowse y en su oImageLIst añadir ambos
bitmaps, después al crear la columna que quieres que aparezca con el
CheckBox le añades un campo como de costumbre y saldrña su valor, luego
vas a su evento OngetData y escribes algo parecido a esto dependiendo
del campo que quieras controlar
METHOD DBBrowse1Column6GetData( oSender, Value, nImage ) CLASS TFormClientes
If Value="Casado"
nImage := 2
Value :=""
Else
nImage := 1
Value :=""
Endif
RETURN Nil
De esta forma el campo que en origen poní­a "Casado" ahora aparecera con
el bitmap 2 y el value "" para que no se vea el texto y si no esta
casado aparecerá el bitmap 1
Si quieres que cambie al hacer clic en una lí­nea tendrñas que utilizar
el evento OnClick para cambiar el valor del campo asignado a la columna
y con eso cambiará el bitmap el solito.
Facil no?
Salu2
--

Bingen:
Eres un superdotado, bién me lo decia Rene Flores cuando estuve en su curso.
Te agradezco todo el apoyo que siempre me has dado
Gracias
Ing. Guillermo Guevara Carrillo
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:480e325d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> No puedes poner un checkbox directamente pero la manera de hacerlo es
> usando 2 bitmap de 16 bits con el Checkbox marcado y desmarcado.
>
> Yo uso dos luces verde y roja que te adjunto.
>
> Para ello has de crear el DbfBrowse y en su oImageLIst añadir ambos
> bitmaps, después al crear la columna que quieres que aparezca con el
> CheckBox le añades un campo como de costumbre y saldrña su valor, luego
> vas a su evento OngetData y escribes algo parecido a esto dependiendo
> del campo que quieras controlar
>
> METHOD DBBrowse1Column6GetData( oSender, Value, nImage ) CLASS
> TFormClientes
>
> If Value="Casado"
> nImage := 2
> Value :=""
> Else
> nImage := 1
> Value :=""
> Endif
>
> RETURN Nil
>
> De esta forma el campo que en origen ponía "Casado" ahora aparecera con
> el bitmap 2 y el value "" para que no se vea el texto y si no esta
> casado aparecerá el bitmap 1
>
> Si quieres que cambie al hacer clic en una línea tendrñas que utilizar
> el evento OnClick para cambiar el valor del campo asignado a la columna
> y con eso cambiará el bitmap el solito.
>
> Facil no?
>
> Salu2
>
>