Ocultar valores de celda en dbgrid

[ecfisa]

Hola amigo newtron

Tiempo ya sin verte, se te extrañaba...

Y no. No estas diciendo ninguna tontería, no se me había ocurrido esa posibilidad...

Siendo 2 y 3 las columnas a ocultar segun el valor del campo importe (50 por ejemplo), ¿ Vos te referís a algo parecido a esto ?

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with Sender as TDBGrid do
  begin
    if(DataSource.DataSet.FieldByName('Importe').AsFloat <= 50) and (DataCol = 3) then
      DBGrid1.Canvas.FillRect(Rect);
    if (DataSource.DataSet.FieldByName('Importe').AsFloat > 50) and (DataCol = 2) then
      DBGrid1.Canvas.FillRect(Rect);
  end
end;

Saludos.