Colorir algumas linhas em StringGrid

[fernandocg]

Estou tentando usar uma condição para colorir somente algumas linhas em um StringGrid. Abaixo o código:

procedure TFrmPrincipal.StrgMovDrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
var
  i : integer;
begin
  i := 1;
  with StrgMov do
    begin
      if Time - StrToTime(StrgMov.Cells[3, i]) > StrToTime('00:15:00') then //verifica se o tempo é maior que 15 minutos.
          if StrgMov.Cells[4, i] = 'E' then //verifica o tipo de cliente
            begin
              Canvas.Brush.Color := clRed;
              Canvas.FillRect(aRect);
              Inc(i);
            end;
    end;
  StrgMov.canvas.textrect(arect, 0, 0, StrgMov.cells[acol,arow]);
end;

Ele fica todo em vermelho e desmontado. a imagem está anexada.

Obrigado.

[wp]

Do not use DrawCell. Use the OnPrepareCanvas event instead:

(Google-translated: Não use DrawCell. Use o evento OnPrepareCanvas em vez disso)

Code: [Select]

procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer; aState: TGridDrawState);
begin
  if ARow = 5 then
    StringGrid1.Canvas.Brush.Color := clRed;
end;


[Never]

well you are missing a [begin] and [end] here

      if Time - StrToTime(StrgMov.Cells[3, i]) > StrToTime('00:15:00') then //verifica se o tempo é maior que 15 minutos.
Begin<------------------
          if StrgMov.Cells[4, i] = 'E' then //verifica o tipo de cliente
       
            begin
              Canvas.Brush.Color := clRed;
              Canvas.FillRect(aRect);
              Inc(i);
            end;
End<--------------

change StrgMov.Cells[4, i] to StrgMov.Cells[4, aRow]
and it will work
remove i var

[fernandocg]

Thanks WD,

Now i put:

procedure TFrmPrincipal.StrgMovPrepareCanvas(sender: TObject; aCol,
  aRow: Integer; aState: TGridDrawState);
var
  i : integer;
begin
  i := 1;
  with StrgMov do
    begin
      if not(gdFixed in aState) then //linha de título
        begin
          if Time - StrToTime(StrgMov.Cells[3, i]) > StrToTime('00:15:00') then //verifica se o tempo é maior que 15 minutos.
            if StrgMov.Cells[4, i] = 'E' then //verifica o tipo de cliente
              begin
                Canvas.Brush.Color := clRed;
                Inc(i);
              end
            else
              Canvas.Brush.Color := clDefault;
        end;
    end;
end;

But all rows are in red.

[fernandocg]

Tanks guys!

Now its OK!

Take care...

[wp]

There is a very good wiki page on grids: http://wiki.lazarus.freepascal.org/Grids_Reference_Page