Ver Mensaje Individual
  #3  
Antiguo 07-10-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Con el DBGrid normalito puedes hacerlo poniendo su propiedad DefaultDrawing en false y escribiendo esto en su evento OnDrawColumnCell:

Código:
const
  // Aquí los colores que desees
  Colores: array[Boolean] of TColor = (clWhite, clSilver);

var
  Color: TColor;

begin
  Color := Colores[ Odd(Column.Field.DataSet.RecNo)];
  if not (gdSelected in State) then
    (Sender as TDBGrid).Canvas.Brush.Color := Color;

  (Sender as TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
// Saludos
Responder Con Cita