CheckBox en un Grid

[el_barto]

Sisisi pero no ves que asi me saca un error que dice:

cannot acces field 'prodcre' as type boolean

donde prodcre es mi campo integer

[el_barto]

si ves entonces por eso te pregunto que hay que modificar para que acepte el valor no boolean sino integer.

Ayudame please

[ContraVeneno]

Si, bueno, hasta ahora todas los grids que he visto que ponen un checkbox son para campos tipo boolean.

Lepe: la dbGrid del JVCL pone el checkbox de manera automática si el campo esta definido como boolean (bit para SQL Server)

Dos opciones:
1.- Seguir buscando y jugar con el código para que tome un valor entero como boolean.

(editado)....... despues de leer el post de maeyanes esto no tiene mcuho sentido....

2.- Que definas otro campo tipo boolean en tu base de datos.

Supongo que lo más sencillo sería la segunda opción, de cualquie rmanera dejame ver que más se me ocurrre.

[[maeyanes]]

El problema es que su versión de Interbase es menor a la 7, y esta no ofrece soporte a campos booleanos.

[el_barto]

la segunda no por que uso interbase y no permite crear datos boolean

mira yo tengo este codigo pero tiene dos problemas imprime checkbox fuera de la grilla y no se pueden modificar como en esta.

es decir si el checkbox esta checked no lo puedes pasar a unchecked:

Código Delphi [-]
procedure TForm1.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
const
  CtrlState: array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
var
  Exit: boolean;
  IsTrue: boolean;
  CheckBoxRec: TRect;
begin
  // Control del pintado del CheckBox
  Exit := false;

  if not Assigned(Column) or not Assigned(Column.Field) then
    Exit := true;

  // sólo controlamos los campos booleanos o enteros 
  if not Exit and not (Column.Field.DataType in [ftBoolean, ftInteger, ftSmallint]) then
    Exit := true;

  // si el campo es entero, la propiedad Tag de la columna tiene que tener un 1 para imprimir el check
  if ((Column.Field.DataType = ftInteger) or (Column.Field.DataType = ftSmallint)) and
      (Column.Field.Tag = 1) then
    Exit := true;

  // miramos que valor (true/false) hay que asignar al CheckBox
  IsTrue := false;
  if Column.Field.DataType = ftBoolean then
    IsTrue := Column.Field.AsBoolean;
  if ((Column.Field.DataType = ftInteger) or (Column.Field.DataType = ftSmallint)) then
    IsTrue := Column.Field.AsInteger = 1;

  if not Exit then
  begin
    Self.Canvas.FillRect(Rect);
    CheckBoxRec.Left   := Rect.Left + 2;
    CheckBoxRec.Right  := Rect.Right - 2;
    CheckBoxRec.Top    := Rect.Top + 2;
    CheckBoxRec.Bottom := Rect.Bottom - 2;
    DrawFrameControl(Self.Canvas.Handle, CheckBoxRec, DFC_BUTTON, CtrlState[IsTrue]);
  end;
end;

pero el principal problema es que no me imprime el checkbox en la grilla pruebalo y veras

[ContraVeneno]

vamos a ver...
aquí dibujo el checkbox en el grid, dame tiempo para probar si puedo hacer un edit y un post, pero por lo pronto aquí la primera parte. 0=falso, cualquier otra cosa =verdadero.

Código Delphi [-]
procedure TFrmInicial.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  DrawState: Integer;
  DrawRect: TRect;
begin
  if (gdFocused in State) then
  begin
    if (Column.Field.FieldName = 'Campo') then
    begin
     CheckBox1.Left := Rect.Left + DBGrid1.Left + 2;
     CheckBox1.Top := Rect.Top + DBGrid1.top + 2;
     CheckBox1.Width := Rect.Right - Rect.Left;
     CheckBox1.Height := Rect.Bottom - Rect.Top;
     CheckBox1.Visible := True;
    end
  end
  else
  begin
    if (Column.Field.FieldName = 'Campo') then
    begin
      DrawRect:=Rect;
      InflateRect(DrawRect,-1,-1);
      if column.field.asinteger=0 then
       DrawState := DFCS_BUTTONCHECK
      else
       DrawState:= DFCS_CHECKED; 
      DBGrid1.Canvas.FillRect(Rect);
      DrawFrameControl(DBGrid1.Canvas.Handle, DrawRect,
                       DFC_BUTTON, DrawState);
    end;
  end; 
end;

[el_barto]

Gracias por tu dedicacion eres un excelente forista n-mil gracias pero mira el codigo que use:

uso esto para dibujarlo:

Código Delphi [-]
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Check: Integer;
begin
{ Compruebo antes si la tabla está vacía. }
if not IBTable1.IsEmpty then
begin
{ Campo 1. }
  if CompareText(Column.FieldName, 'cod_per') = 0 then
  begin
    Check := 0;
  if IBTable1['cod_per'] = '1' then
   Check := DFCS_CHECKED;
   dbGrid1.Canvas.FillRect(Rect);
   DrawFrameControl(dbGrid1.Canvas.Handle, Rect,
   DFC_BUTTON, DFCS_BUTTONCHECK or Check);
  end
else
dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

{ Campo 2. }
if CompareText(Column.FieldName, 'user_name') = 0 then
begin
Check := 0;
  if IBTable1['user_name'] = '1' then
   Check := DFCS_CHECKED;
   dbGrid1.Canvas.FillRect(Rect);
   DrawFrameControl(dbGrid1.Canvas.Handle, Rect,
   DFC_BUTTON, DFCS_BUTTONCHECK or Check);
  end
else
dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

{ Campo 3. }
if CompareText(Column.FieldName, 'prodcre') = 0 then
  begin
  Check := 0;
   if IBTable1['prodcre'] = '1' then
      Check := DFCS_CHECKED;
      dbGrid1.Canvas.FillRect(Rect);
      DrawFrameControl(dbGrid1.Canvas.Handle, Rect,
     DFC_BUTTON, DFCS_BUTTONCHECK or Check);
   end
else
   dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;

y esto para cambiarlo cuando se haga un click en el campo deseado:

Código Delphi [-]
 
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Column.FieldName = 'PRODCRE' then
   begin
     IBTable1.Edit;
     if IBTable1.FindField('PRODCRE').AsInteger = 1 then
       IBTable1.FindField('PRODCRE').AsInteger := 0
     else
       IBTable1.FindField('PRODCRE').AsInteger := 1;
       IBTable1.Post;
       Dbgrid1.Repaint; // quizás más bien un Repaint.... pero en fin.
     end;
end;

Y pues le agregaria un boton que hiciera un commit.

Si te das cuenta es una combinacion de algunas de las respuestas publicadas en este foro

Entonces cuando alguien necesite un checkbox dentro de un dbgrid y el campo no sea booleano ya lo puede hacer asi. probado comprobado y recontraprobado

[ContraVeneno]

Perfecto
Ya estaba pensando cosas de más y tratando de inventar el hilo negro
En fin, que bueno que ya lo resolviste, un saludo!

[dmagui]

Empezado por el_barto

Gracias por tu dedicacion eres un excelente forista n-mil gracias pero mira el codigo que use:

uso esto para dibujarlo:

Código Delphi [-]
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Check: Integer;
begin
{ Compruebo antes si la tabla está vacía. }
if not IBTable1.IsEmpty then
begin
{ Campo 1. }
if CompareText(Column.FieldName, 'cod_per') = 0 then
begin
Check := 0;
if IBTable1['cod_per'] = '1' then
Check := DFCS_CHECKED;
dbGrid1.Canvas.FillRect(Rect);
DrawFrameControl(dbGrid1.Canvas.Handle, Rect,
DFC_BUTTON, DFCS_BUTTONCHECK or Check);
end
else
dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
 
{ Campo 2. }
if CompareText(Column.FieldName, 'user_name') = 0 then
begin
Check := 0;
if IBTable1['user_name'] = '1' then
Check := DFCS_CHECKED;
dbGrid1.Canvas.FillRect(Rect);
DrawFrameControl(dbGrid1.Canvas.Handle, Rect,
DFC_BUTTON, DFCS_BUTTONCHECK or Check);
end
else
dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
 
{ Campo 3. }
if CompareText(Column.FieldName, 'prodcre') = 0 then
begin
Check := 0;
if IBTable1['prodcre'] = '1' then
Check := DFCS_CHECKED;
dbGrid1.Canvas.FillRect(Rect);
DrawFrameControl(dbGrid1.Canvas.Handle, Rect,
DFC_BUTTON, DFCS_BUTTONCHECK or Check);
end
else
dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;

Hola pues fijense muchachos que este codigo no funciona del todo bien, si yo deseo que en mi grid existan dos campos de tipo CheckBox no me lo hace solo me muestra el ultimo, en este caso fijo que muestra en el campo prodcre el checkbox, como podria corregir este error ?, ya la estuve revisando bien y no lo he logrado

Gracias por sus posibles respuestas