Fórum Imagem no DBgrid #370558

var
  bmpImagem: TBitmap;
  CaminhoImg: string;
  PosLeft, PosTop: integer;
begin
  if  UpperCase(Column.FieldName) = UpperCase(´Imagem´) then
    begin
      if  Column.Field.AsString <> ´´ then
        begin
          { Column.Field.AsString deve conter o nome do arquivo. Exemplo: Imagem.bmp}
          CaminhoImg := ´C:\´ + Column.Field.AsString;

          if  FileExists( CaminhoImg ) then
            begin
              bmpImagem := TBitmap.Create;
              bmpImagem.LoadFromFile( CaminhoImg );

              DBGrid.Canvas.CopyRect( Rect, bmpImagem.Canvas,
                Classes.Rect(0, 0, bmpImagem.Width, bmpImagem.Height) );

              FreeAndNil( bmpImagem );
            end
          else
            begin
              DBGrid.Canvas.FillRect( Rect );
              DBGrid.Canvas.Pen.Style := psClear;
            end
          ;
        end
      ;
    end
  else
    begin
      DBGrid.Canvas.FillRect( Rect );
      DBGrid.Canvas.Font.Size := 8;

      if  Column.Alignment = taRightJustify then
          PosLeft :=
            Rect.Right - DBGrid.Canvas.TextWidth(Column.Field.AsString) - 4
      else
          PosLeft := Rect.Left + 2
      ;

      PosTop := Rect.Top + Round( (Rect.Bottom - Rect.Top) / 2 ) - 6;

      DBGrid.Canvas.TextOut( PosLeft, PosTop , Column.Field.AsString );
    end
  ;
end;