[vikk]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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, чтоб сохранялось изображение квадратика и галочки при перепозиционировании на другую строку или столбец ?
Большое Спасибо!