Dbgrid Que Permita Checkbox Para Datos Booleanos

[SoftMakerMex]

SALUDOS AL FORO


Hola, en el area de componentes lei sobre un componente que hace esto (DBGRID QUE PERMITA CHECKBOX PARA DATOS BOOLEANOS) pero desafortunadamente la liga no funciona,



es por eso que solicito a la comunidad si me pueden compartir el componente (quiza alguien lo descargo cuando aun funcionaba el link) o me puede dar una idea de como insertar el checkbox en el grid...


Ojala me puedan ayudar...

Gracias

[JavierB]

Hola, SoftMakerMex.

No tento el componente que dices, pero tengo este código que saque de no recuerdo donde:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Check: Integer;
  R: TRect;
begin
  if Column.FieldName = 'NombreCampo' then
  begin
    DBGrid1.Canvas.FillRect(Rect);
    Check := 0;
    if Table1.FindField('NombreCampo').AsBoolean then Check := DFCS_CHECKED;
    R:=Rect;
    InflateRect(R,-2,-2); //Disminuye el tamaño del CheckBox
    DrawFrameControl(DBGrid1.Canvas.Handle,R,DFC_BUTTON, DFCS_BUTTONCHECK or Check);
  end;
end;


procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Column.FieldName = 'NombreCampo' then
  begin
    Table1.Edit;
    Table1.FindField('NombreCampo').AsBoolean:=not Table1.FindField('NombreCampo').AsBoolean;
  end;
end;

NombreCampo es el nombre del campo que tienes en tu base de datos como booleano.

Espero que te sirva. Saludos,

[Descendents]

mira este hilo

http://www.clubdelphi.com/foros/show...&threadid=5083

[SoftMakerMex]

Saludos Javier, te agradezco tu ayuda, voy a implementarlo y te comento como me va...


Hasta Luego

[Anubys]

Existe una Libreria qu e hace lo que tu necesitas de una forma muy facil, bueno y a parte de esto hace muchas cosas más, su nombre es InfoPower y se puede encontrar en la red en forma libre, pesa como 7 Mg.