Проблемы с рисованием на TStringGrid

[megachuhancer]

procedure TCell.Draw(Rect: TRect; State: TGridDrawState; Collapsed,
  FieldNames: Boolean; FV: array of Boolean; ACol, ARow: Integer);
var
  i, j, tw, ctop, cs, off, htop, hbottom: Integer;
  s1, s2, str: string;
  r: TRect;
  NeedDrawTriangle: Boolean;
begin
  with FGrid, FGrid.Canvas do begin
    NeedDrawTriangle := False;
    r := Rect;
    if Collapsed then InflateRect(r, 0, 1);
    //----------------------
    Brush.Style := bsSolid;
    if gdSelected in State then Brush.Color := clLtGray
    else Brush.Color := clWhite;
    //----------------------
    Pen.Color := clWhite;
    if Collapsed then Pen.Color := clLtGray;
      Rectangle(r);
    //----------------------
    InflateRect(r, -1, -1);
    //----------------------
    Pen.Color := clLtGray;
    Rectangle(r);
    //----------------------
    if Length(FItems) = 0 then begin
      Brush.Style := bsBDiagonal;
      Brush.Color := clBlack;
      Rectangle(r);
    end;
    Brush.Style := bsSolid;
    Brush.Color := clWhite;
  end;
end;

Тут есть лишние переменные, потому что я не стал сюда вставлять закомменченый код.
Если что, из GridDrawCell вызывается TCell.Draw. В каждом экземпляре TCell есть ссылка на грид.

Собственно, почему при прокрутке возникает такой эффект?

[Sparkman]

Попробуйте <Имя вашей формы>.DoubleBuffered := true;

ПС: в своем TStringGrid не нашел событие TCell.Draw

[megachuhancer]

Попробуйте <Имя вашей формы>.DoubleBuffered := true;

DoubleBuffered уже пробовал - не помогает.

ПС: в своем TStringGrid не нашел событие TCell.Draw

Не, там используется событие OnDrawCell. Просто вызывается соответствующий метод связанного объекта. Вот:

procedure TfrmSchedule.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  FV: array of Boolean;
  i: Integer;
begin
  SetLength(FV, Length(chksFieldsVisible));
  for i:= 0 to High(FV) do FV[i] := chksFieldsVisible[i].Checked;
  (Grid.Objects[ACol, ARow] as TCustomCell).Draw(Rect, State,
    not chkEmptyLines.Checked and (ecol[ACol] or erow[ARow]),
      chkFieldNames.Checked, FV, ACol, ARow);
end;

Проблема по видимому в том, что в GridDrawCell передаётся прямоугольник, который содержит только видимую на экране часть ячейки (такой же прямоугольник возвращает метод CellRect). Хотя я не уверен. Но если это так, это очень существенно для рисования любых косых линий, потому что угол наклона получается совсем другой. Отсюда "переломанные" линии. Только вот что делать с этим, я не знаю. Не для каждой же ячейки пробегаться по ColWidths и RowHeights чтобы узнать реальный прямоугольник ячейки.

Получается, что GridDrawCell вызывается с такими параметрами, с какими "считает нужным" сам TStringGrid. И при прокрутке по мнению разработчиков этого компонента достаточно перерисовать вновь появившуюся часть ячейки.

[Sparkman]

Используйте компонент TDrawGrid, а не TStringGrid
помню уже сталкивался с проблемой рисования в StringGrid'е, чего только не пробовал - помогло одно - переход на TDrawGrid

[megachuhancer]

Увы, но в TDrawGrid та же проблема, что в общем-то неудивительно, т.к. TStringGrid - наследник TDrawGrid.

Короче, вся проблема упирается в то, как определить координаты всего прямоугольника ячейки, а не только его видимой части.

[Diablero]

Попробуйте явным образом определять координаты интересующей вас области. Например, закрашиваем первые 2 ячейки второго столбца таблицы GridClients:

TRect R;
GridClients->Canvas->Brush->Color=clYellow;
R.left=GridClients->ColWidths[0];
R.right=GridClients->ColWidths[0]+GridClients->ColWidths[1];

R.top=0;
R.Bottom=GridClients->RowHeights[0];
GridClients->Canvas->Rectangle(R);

R.Top=GridClients->RowHeights[0];
R.Bottom=GridClients->RowHeights[0]+GridClients->RowHeights[1];
GridClients->Canvas->Rectangle(R);

При прокрутке эффект полос исчезает.

Правда, возникает вопрос, как учесть толщину линий сетки, ибо при таком подходе при закрашивании ряда ячеек, накапливается "сползание" закрашенных областей. Если у вас возникнут какие-то соображения по этому поводу, буду рад услышать

[Sibedir]

возникает вопрос, как учесть толщину линий сетки

GridLineWidth

[Diablero]

Сообщение от Sibedir

GridLineWidth

То есть ширина i-й ячейки c учётом линий сетки равна StringGrid->ColWidths[i]+GridLineWidth (0.5*GridLineWidth для левой границы ячейки и 0.5*GridLineWidth для правой), и соответственно такой же будет ширина области рисования?

[Sibedir]

Нет. Ширина i-ой ячейки = ColWidths[i]. А GridLineWidth - расстояние м/у ячейками.

[Diablero]

Сообщение от Sibedir

Нет. Ширина i-ой ячейки = ColWidths[i]. А GridLineWidth - расстояние м/у ячейками.

Тогда как правильно переписать мой пример выше, чтобы избежать эффекта смещения области рисования?