cambiar color StringGrid, toda una fila, despues de la primera.

[sakuragi]

hola que tal

eh estado viendo en el foro. sobre como cambiar el color de uan fila en un stringgrid

pero asta orita nomas eh visto cambiar el color de una celda. no de toda una fila o renglon.

una de estas forma es este:

Código Delphi [-]
 Procedure TForm1.Grid1DrawCell(Sender: TObject; ACol, ARow: 
  Longint; Rect: TRect; State: TGridDrawState);

Begin
  with Sender as TDrawGrid do
  begin
    if (aCol = 3) and (FSeleccionada) then  
    Begin
      // solamente tomaremos acción cuando sea la columna 3
      // FSeleccionada es un miembro privado booleano de la clase que 
      // indica si la celda de la la columna debe pintarse de un color o de otro
      Canvas.Brush.Color := clBlue;
      Canvas.Font.Color := clWhite;
    end
    else Begin
      Canvas.Brush.Color := clBackGround;
      Canvas.Font.Color := clBlack;
    end;
    Canvas.FillRect(Rect);
    Canvas.TextRect(Rect, 0, 0, (Sender as TStringGrid).Cells[ACol, ARow]);
    if gdFocused in State then
      Canvas.DrawFocusRect(Rect);
    end;
  end;
end;