Ver Mensaje Individual
  #6  
Antiguo 21-11-2018
usuario1000 usuario1000 is offline
Miembro
 
Registrado: nov 2016
Posts: 86
Reputación: 8
usuario1000 Va por buen camino
Wink

Muchas gracias Casimiro Notevi, al final lo he solucionado de esta forma:


Código Delphi [-]
procedure TFPrograma.DBGrid1DrawColumnCell(Sender: TObject;
  const [Ref] Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
            if (column.Field.FieldName = 'datoCampo')then
                 begin
                    dbgrid1.Canvas.Font.Color := clblack;
                    dbgrid1.Canvas.Brush.Color := clWebGreenYellow;
                    dbgrid1.DefaultDrawColumnCell(rect,datacol, column, State);
                 end;
end;


De esta forma esté donde esté la columna lo hace perfecto.


Gracias.
Responder Con Cita