Закрашивание ячеек грида по нажатию кнопки.

[.FROST.]

Здравствуйте. Мне необходимо закрасить ячейки, в зависимости от значений в них( учитываются только значения в зеленых ячейках). Например, если таблица заполнена так:, то после нажатия на кнопку "Найти минимальный путь", должно получится так:.
Принцип такой:
Начиная с нижней левой зеленой ячейки, сравнивается зеленая ячейка справа и сверху, и та, в которой значение меньше закрашивается вместе с желтой ячейкой между двумя зелеными. Когда происходит выход из цикла закрашивается строка до конца или столбец до верха, в зависимости от "причины" выхода из цикла. Но вот почему-то закрашивание не происходит. Гугл не помог...
В DrawCell пишу код:

//Закрасить минимальный путь

  with StringGrid1, StringGrid1.Canvas do
  begin
  if clrd=true then
    begin
      ARow:=RowCount-2;
      ACol:=1;
     while ((ACol<=ColCount-1) or (ARow>=1)) do
      begin
        if (Cells[ACol+2,ARow]<Cells[ACol,ARow-2])then
        begin
          Brush.Color := clBtnFace;
          FillRect(Rect);
          TextOut(Rect.Left, Rect.Top + 2, Cells[ACol, ARow]);
          ARow:=ARow-2;
        end;
        if (Cells[ACol+2,ARow]<Cells[ACol,ARow-2])then
        begin
          Brush.Color := clBtnFace;
          FillRect(Rect);
          TextOut(Rect.Left, Rect.Top + 2, Cells[ACol, ARow]);
          ACol:=ACol+2;
        end;
        if (Cells[ACol+2,ARow]<Cells[ACol,ARow-2])and (Cells[ACol+2,ARow]<Cells[ACol,ARow-2]) then
        begin
          Brush.Color := clBtnFace;
          FillRect(Rect);
          TextOut(Rect.Left, Rect.Top + 2, Cells[ACol, ARow]);
          ACol:=ACol+2;
          ARow:=ARow-2;
        end;
      end;
  end;

Код кнопки:

procedure TForm1.Button4Click(Sender: TObject);
begin
if (StringGrid1.Cells[1,StringGrid1.RowCount-2]<>'') then
  begin
   clrd := True;
    Refresh;
  end
  else
    ShowMessage('Табица заполнена не полностью!');
end;

Начальное значение clrd:=false;
Помогите, пожалуйста.

[phomm]

Неверный подход.
Поиск надо производить отдельно, отрисовку отдельно (например запоминать индексы клеток , включённых в путь в некий массив, и потом при отрисовке проверять их). А у Вас на каждой клетке (дроселл вызывается для каждой клетки грида, при его полной перерисовке, типа рефреша) цикл, который бегает по клеткам, но рисует постоянно в один и тот же рект. Если уж вы не хотите менять код серьёзно, то попробуйте менять хоть рект , например так Rect = stringgrid1.cellrect(acol, arow); Но ничего не гарантирую, т.к. в Ваш код почти не вчитывался (даже чисто подсознательно сложновато концентрировать внимание).

[Serge_Bliznykov]

полностью и категорически согласен с phomm

добавлю - ваша задача заполнить некую структуру (в простейшем случае - массив, равноразмерный StringGrid) значениями, которые однозначно определяют, являетс ли ячейка I,J частью минимального пути или нет.
после этого процедура рисования грида будет брать значение из этой структуры для текущей ячейки и выводить данную ячейку нужным цветом.


p.s. используйте StringGrid исключительно в качестве инструмента визуализации (отображения) данных, а не в качестве хранения в нём исходной информации и в качестве источника данных при обработке!