Fórum COLORIR LINHA SELECIONADA INTEIRA DO DBGRID #484402

// Deixando um DBGrid zebrado. 

{ No evento OnDrawColumnCell do DBGrid, deixe conforme 
 o cóadigo abaixo : } 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; 
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
  if not (gdSelected in State) then 
  begin 
    if ((Sender as TDBGrid).DataSource.DataSet.RecNo mod 2 = 0) then 
      (Sender as TDBGrid).Canvas.Brush.Color := clWindow 
    else 
      (Sender as TDBGrid).Canvas.Brush.Color := clSkyBlue; 
     
    (Sender as TDBGrid).Canvas.FillRect(Rect); 
    (Sender as TDBGrid).defaultdrawcolumncell(rect,datacol,column,state); 
  end; 
end; 

{ Neste exemplo, as linhas de Número par ficarão brancas 
e as linhas de número ímpar, ficarão azul. }