DBgrid con checks como ?

[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 Noteví]

¿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;

[ecfisa]

Hola.

Yo utilizo algo parecido a:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  B: TBitmap;
  R: TRect;
begin
  if Column.FieldName = 'CampoDelBitmap' then
  begin
    TDBGrid(Sender).Canvas.FillRect(Rect);
    B:= TBitmap.Create;
    try
      ImageList1.GetBitMap(TDBGrid(Sender).DataSource.DataSet.FieldByName('Opcion').AsInteger + 1, B); 
      B.Width:= Rect.Right - Rect.Left;
      B.Height:=Rect.Bottom - Rect.Top;
      DBGrid1.Canvas.StretchDraw(Rect, B);
    finally
      B.Free;
    end;
    R:= Rect;
    R.Left := R.Left + R.Bottom - R.Top;
    DBGrid1.DefaultDrawColumnCell(R, DataCol, Column, State);
  end;
end;

Permite el usar varias imágenes para distintos valores, pero el código de Casimiro realmente es mucho más simple... (y ya me lo copié )

Saludos.

[Casimiro Noteví]

Empezado por ecfisa

(y ya me lo copié )

¿Y mis derechos de autor?, espera que recuerde... ah, no, si yo también lo copié

[olbeup]

Yo también lo hacia cómo ecfisa pero el tuyo casimiro notevi, es más corto y no hay que crear ni destruir ningún Objecto, no te acostaras sin saber algo más.

Perdón pero yo también me lo he copiado.

Un saludo.

[Casimiro Noteví]

Empezado por olbeup

Perdón pero yo también me lo he copiado.

¡Copiad, malditos!

[amadis]

Justamente buscaba lograr eso...

Copio a casimiro.