Foros Club Delphi - Dbgrid Que Permita Checkbox Para Datos Booleanos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Dbgrid Que Permita Checkbox Para Datos Booleanos (https://www.clubdelphi.com/foros/showthread.php?t=5989)

Dbgrid Que Permita Checkbox Para Datos Booleanos

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,

:confused:

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

Hola, SoftMakerMex.

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

Código:

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, :cool:

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

Hasta Luego

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.