Закраска строк в Tstringgrid

[Алексей_2012]

Здравствуйте, подскажите, пожалуйста, как закрасить поочередно строки в разные цвета? допустим 2 фиксированные строки не трогаем, затем закрашиваем, затем обычную строку не трогаем, а затем опять закрашиваем ну и т.д., у меня есть кое какие наработки, но нужно еще и соблюдать чередование цвета,
фиксированных столбцов нет, и 2 фиксированные строки

вот мой код

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (gdFocused in State) then
  begin
    StringGrid1.Canvas.Brush.Color := clBlue;
    StringGrid1.Canvas.Font.Color := clBlack;
  end
  else StringGrid1.canvas.brush.Color := $CCFFCC;
  if (ACol >= 0) and (ARow >= 2) then
  begin
    StringGrid1.canvas.fillRect(rect);
    StringGrid1.canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
  end;
  if (ARow < 2) then
  begin
    StringGrid1.canvas.brush.Color := clAqua;
    StringGrid1.Canvas.Font.Color := clblack;
    StringGrid1.canvas.fillRect(rect);
    StringGrid1.canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
  end;

end;

выкладываю скрины программы как есть,и как надо, помогите кто знает как сделать, пожалуйста

[Stilet]

with StringGrid1 do begin
 if (arow>FixedRows) then begin
  if (arow mod 2)=0 then canvas.brush.Color := clGreen
  else canvas.brush.Color := clYellow;
  Тут вызываем закраску.
 end;
end;

[Алексей_2012]

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; // разкраска таблицы для более приятного восприятия данных
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1.Canvas do
  begin
    if (gdFocused in State) then // для одной ячейки
    begin
    Brush.Color := clwhite;
    Font.Color := clBlack;
    end
    else brush.Color := $CCFFCC; //иначе закрашиваем всю таблицу, кроме заголовков
    if (ACol >= 0) and (ARow >= 2) then
    begin
     fillRect(rect); // применяем изменения
      TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
    end;
    if (ARow < 2) then // после раскрашиваем заголовки
    begin
     brush.Color := clAqua;
    Font.Color := clblack;
     fillRect(rect); // применяем изменения
     TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
    end;
    if (arow > StringGrid1.FixedRows) then
     begin
      if (arow mod 2) <> 0 then
      begin brush.Color := clYellow;
       Font.Color := clblack;
       fillRect(rect);
      end;
    end;
  end;
end;

Спасибо, все работает, но не видно данных, которые под оранжевыми полосками(((

[Человек_Борща]

Я бы заменил StringGrid на VirtualStringTree. ИМХО toExtendedFocus запросто делает его StringGrid'ом, а toRowSelect делает его ListView. До кучи можно дерево строить в любом случае...

Относительно прост в использовании, события, тысячи их..

VirtualDrawTree вообще мощная вещь.

[Алексей_2012]

мощная, но нужен именно Tstringgrid, по учебе

[Stilet]

не видно данных

А где отрисовка текста в ячейках?
Я бы вообще TextOut вынес в конец обработчика, чтоб он всегда выполнялся не зависимо от типа заливки.