Здравствуйте!
Хочу выделить жирной линией верхнюю границу ячейки грида, но так, чтоб содержимое ячейки не уничтожалось.
С ячейками типа 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;
...
ACanvas . DrawTexT(AViewInfo . Text,AViewInfo . Bounds, 0 );
ADone := true ;
end ;
end ;
|
Как должна быть обработана ячейка типа CHeckBox, чтоб сохранялось изображение квадратика и галочки при перепозиционировании на другую строку или столбец ?
Большое Спасибо!