Fórum Delphi XE 8 DBGRID #537138

procedure TfrmCadastroClientes.DBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if Column.Field.FieldName = 'Principal' then
    Begin
        if Column.Field.Value = '-1' then
        begin
            sAlphaImageList1.Draw(DBGrid2.Canvas, Rect.Left + 24, Rect.Top + 1, 0);
        end;
    End;
end;