RxDBGrid y los CheckBox

[__cadetill]

Empezado por Nuria

Los TIBQuery no tienen la propiedad RequestLive y que yo sepa nada parecido. Por lo tanto me sigue sin funcionar... .

En este caso tienes 2 opciones, o bien usas un TIBDataset o bien la unión TIBQuery + TIBUpdateSQL

Te lo dejo a tu elección

[Nuria]

Empezado por Cadetill

En este caso tienes 2 opciones, o bien usas un TIBDataset o bien la unión TIBQuery + TIBUpdateSQL

Pues fíjate tú, que nunca he usado el TIBUpdateSQL, acabo de meterme hace muy poco con los IBX, he estado investigando y creo que lo voy a usar en bastantes ocasiones...Gracias.

No creo que pueda hacer lo de los Check con la modificación que me dijiste antes porque el campo Boolean NO es un campo de la tabla propiamente dicho, sino un campo calculado que me he creado yo. Ya veré como lo hago finalmente.

Un saludillo!

[__cadetill]

Empezado por Nuria

No creo que pueda hacer lo de los Check con la modificación que me dijiste antes porque el campo Boolean NO es un campo de la tabla propiamente dicho, sino un campo calculado que me he creado yo. Ya veré como lo hago finalmente.

Bueno, supongo que será un entero con valores 1 o 0, no?
Si es así, prueba a poner....

     if Column.Field.DataType = ftInteger then
      begin
           // Pintamos solo la celda booleana
           if Column.Field.AsBoolean and (Pintar.ItemIndex = 1) then
            begin
                 RxDBGrid1.Canvas.Brush.Color := clInfobk;
                 RxDBGrid1.Canvas.Font.Style  := [fsBold];
                 RxDBGrid1.Canvas.Font.Color  := ClBlack;
                 RxDBGrid1.DefaultDrawColumnCell(Rect,Datacol,Column,State);
            end;

           RxDBGrid1.Canvas.FillRect(Rect);
           CheckBoxRectangle.Left   := Rect.Left + 2;
           CheckBoxRectangle.Right  := Rect.Right - 2;
           CheckBoxRectangle.Top    := Rect.Top + 2;
           CheckBoxRectangle.Bottom := Rect.Bottom - 2;
           DrawFrameControl(RxDBGrid1.Canvas.Handle, CheckBoxRectangle,
              DFC_BUTTON, CtrlState[Column.Field.AsInteger = 1]);
      end;

En negrita las lineas que cambian. De esta manera te evitas el campo calculado. Luego, en el OnClick, sólo has de actualizar susodicho campo.

Atención: esta manera tiene un problema, y es que afectará a todos los campos de tipo Integer.
Solución: en lugar de mirar el tipo de campo, mirar por el nombre de campo
ej: if Column.Field.FieldName = 'MiCampoInteger' then

Espero te sirva

[Nuria]

Muchas gracias de nuevo....

He probado lo que tú me comentabas y me hace lo mismo pero en vez de ponerme true/false pone 0/1... .

Como te dije antes medianamente lo conseguí arreglar, pasando el foco a otra celda. Pero ahora además, me hace otra cosa ... cuando el grid tiene un montón de líneas pues me aparece el scroll vertical como es lógico, marco varios check, pincho en el scroll y voy bajando líneas, cuando vuelvo arriba me ha desmarcado todos los checks . En tú demo lo he probado y funciona correctamente.

Así que sigo dandole vueltas al asunto...

Un saludito!

[__cadetill]

Hola niña

Bueno, he hecho una prueba y ya he visto lo que te pasa
En la prueba me pasaba lo mismo que a ti y decidí mirar qué diferencias había entre la configuración de un Grid y el otro

Pues bien, el de la demo está en Option.dgEditing = false, es decir, no editable

Esto puedes controlarlo, si quieres, en el evento OnColEnter, mirar si es la columna del campo Check y si lo es, poner dgEditing a false, sino, ponerlo a true

¿qué te parece la idea?