Закраска в таблице StringGrid

[OSW]

Доброе время суток, у меня есть идея.

Сделать с помощью закраски ячеек StringGrid линию до ячейке что в фокусе и изменении линия постоянно перерисовуеться отображая линию.

Снимок.JPG

При изменении положения (влево, вправо, верх, вниз) выбранной ячейки линия до ячейке по новому перерисовуется.

Подскажите как можно это организовать.

Идея найти координаты фокусной ячейки, прорисовать линию влево и вверх от фокусной ячейки, и если есть изменения координат фокуса то очисть закраску и по новому прорисовать линии.

Но я не имею опита в таком деле и пока растерян в написании алгоритма действий и программном коде.

[Stilet]

В OnDrawCell:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
  with TStringGrid(sender) do begin
  if (arow=Row)and(aCol<=Col)and(aCol>FixedCols) then begin
    Canvas.Brush.Color:=clRed;
    Canvas.FillRect(aRect);
  end;
  end;
end;

идея понятна?

[OSW]

Попробую, но подсветку самой выбранной (в фокусе) я делал, а чтоб от выбранной ячейки влево и вверх линии рисовались, вот тут и загвоздка. Но и на том спс.

[Stilet]

а чтоб от выбранной ячейки влево и вверх линии рисовались

Эм... братюнь, я тебе именно код для заливки всех ячеек влево дал. Присмотрись к его условию.