[Carlos Arevalo]

Este es el codigo que estoy utilizando pero no logro pintar la fila completa solo la primera celda de cada fila.

Alguna sugerencia?

Gracias.

procedure TFormOrden.StringGridpendientesDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);

var txt: string;
i: integer;

begin

with stringgridpendientes do
begin
i:=Arow;
txt:=Cells[ACol,ARow];
if (Arow=i) and (txt='Por revisar') then
begin
Canvas.Brush.Color:=Clred;
Canvas.FillRect(rect);
Canvas.TextOut(Rect.left +1, Rect.top +1, Cells[ACol,ARow]);
end;

if (Arow=i) and (txt='Lista') then
begin
Canvas.Brush.Color:=Clblue;
Canvas.FillRect(rect);
Canvas.TextOut(Rect.left +1, Rect.top +1, Cells[ACol,ARow]);
end;
end;
end;