[vikk]

Здравствуйте!
Хочу выделить жирной линией верхнюю границу ячейки грида, но так, чтоб содержимое ячейки не уничтожалось.
С ячейками типа TEditText всё нормально, а ячейка типа CheckBox затирается после перепозиционирования. Вот код:

Код:

procedure TFUsualForms.View_UsualFormCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var ind: integer;
begin
  ind := Sender.FindItemByTag(11).Index;
  if AViewInfo.GridRecord.Values[ind] = null then exit;
  if  AViewInfo.GridRecord.Values[ind] then
  begin
    ACanvas.FrameRect(AViewInfo.ClientBounds,clRed,2,[btop]);
    ACanvas.Font.Color := clDefault;
...//интуитивно понятно, что здесь нужно какое-то условие написать, чтоб  ячейка типа CheckBox обрабатывалась по-другому
    ACanvas.DrawTexT(AViewInfo.Text,AViewInfo.Bounds,0);
    ADone := true;
  end;
end;

Как должна быть обработана ячейка типа CHeckBox, чтоб сохранялось изображение квадратика и галочки при перепозиционировании на другую строку или столбец ?
Большое Спасибо!