Fórum Imagem em dbgrid mestre detalhe #371923

dbgrTeste -> TDBGrid
Campo "T" deve ser do tipo inteiro

procedure dbgrTesteCellClick(Column: TColumn);
begin
  with cdsTeste do
  begin
    if  not IsEmpty then
      begin
        if  Column.Field = FindField(´T´) then
          begin
            Edit;
            FieldByName(´T´).AsInteger := Abs( FieldByName(´T´).AsInteger - 1 );
            Post;
          end
        ;
      end
    ;
  end;
end;


procedure dbgrTesteDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if  UpperCase(Column.FieldName) = UpperCase(´T´) then
      ImagemCheckBoxDBGrid( dbgrTeste, Rect, Column, State, ´1´, False, ImageList1 )
  ;
end;


{ Desenha a imagem do CheckBox na coluna do DBGrid, conforme o valor do campo
  que está sendo passado como parâmetro (ValorChecked) }
procedure ImagemCheckBoxDBGrid( DBGrid: TDBGrid; Rect: TRect; Column: TColumn;
  State: TGridDrawState; ValorChecked: string; AjustaAltura: Boolean = False;
  ImageList: TImageList);
Const
  IMG_UNCHECKED = 0;
  IMG_CHECKED   = 1;
var
  PosLeft, PosTop: integer;
begin
  if  Column.Field.AsString <> ´´ then
    begin
      DBGrid.Canvas.FillRect(Rect);

      { Tenta posicionar a imagem do CheckBok no centro da coluna,
        independentemente da largura }
      PosLeft := Round( (column.Width - ImageList.Width) / 2 );

      if  not AjustaAltura then
          PosTop := 1
      else
          PosTop := Round( (Rect.Bottom - Rect.Top) / 2 ) - 6;
      ;

      if  Column.Field.AsString = ValorChecked then
          ImageList.Draw(
            DBGrid.Canvas, Rect.Left + PosLeft, Rect.Top + PosTop, IMG_CHECKED )
      else
          ImageList.Draw(
            DBGrid.Canvas, Rect.Left + PosLeft, Rect.Top + PosTop, IMG_UNCHECKED )
      ;

    end
  ;
end;