DBgrid con checks como ?

[Coco_jac]

Hola amigos del foro como podria mostrar check en una columna del DBGrid de manera que podria activarlo o no..........
Acabo e ver post relacionados , pero a diferencia de esto no tengo campos booleanos , sino que deseo tener check en una columna de manera que al seleccionrlos me permitiria borrar el registro o registros, se que e puede hacer de otra manara mas facil pero me lo solicitan asi.

Espero sus comentarios...........

[Delfino]

intenta esto, teniendo una imagelist con dos bitmaps, una para el estado cheked y otra para el unchecked, el evento es el OnDrawColumnCell:

  if Column.Field = campo then
  begin
    DBGrid1.Canvas.FillRect(Rect);
    if campo.value = 0 then //unchecked condition
      ImageList1.Draw(DBGrid1.Canvas,Rect.Left+10,Rect.Top+1,0)
    else  //checked condition
      ImageList1.Draw(DBGrid1.Canvas,Rect.Left+10,Rect.Top+1,1);
  end;

[Casimiro Notevi]

Añade un campo calculado y que sea éste el que conviertas en un checkbox, como te indica Delfino

[el_barto]

este problema me aquejo hace ya un tiempo, y esta explicado aqui:

http://www.clubdelphi.com/foros/show...t=dbgrid+check

ademas agregaria esto :

dbgrid1.SelectedIndex:=cualquiera;

para que el efecto del click sea mas original aun.

[amadis]

Alguien probò esto de los bitmaps?

Parece simple y muy estetico pero no pude hacerlo funcionar.

Código Delphi [-]
 if Column.Field = campo then
  begin
    DBGrid1.Canvas.FillRect(Rect);
    if campo.value = 0 then //unchecked condition
      ImageList1.Draw(DBGrid1.Canvas,Rect.Left+10,Rect.Top+1,0)
    else  //checked condition
      ImageList1.Draw(DBGrid1.Canvas,Rect.Left+10,Rect.Top+1,1);
  end;

[amadis]

Nadie lo ha probado?

Neftali no estas por ahi con tu sabidurìa como para dar opinión al respecto?

Saludos a todos

[Casimiro Notevi]

¿Te refieres a pintar los checkbox cargando una pequeña imagen?. sí, es algo habitual, lo hago normalmente así:

Código Delphi [-]
procedure TFempresas.grUsuaDrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin   // pintar los checkbox 
  if AnsiLowerCase(Column.Field.FieldName) = _acceso_ then 
  begin 
    (Sender As TDBGrid).Canvas.FillRect( Rect ); 
    imglst2.Draw((Sender As TDBGrid).Canvas,Rect.Left+10,Rect.Top+1,0); 
    if Column.Field.Value=1 then 
      imglst2.Draw((Sender As TDBGrid).Canvas,Rect.Left+10,Rect.Top+1,2) 
    else 
      imglst2.Draw((Sender As TDBGrid).Canvas,Rect.Left+10,Rect.Top+1,0{1});  // 0.en blanco 1.no 2.si 
  end;
end;