Советы по Delphi

Dbgrid с цветными ячейками V


Попробуйте следующий код в обработчике события TDBGrid OnDrawDataCell:

    Procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);

begin

If
gdFocused in State then
with
(Sender as TDBGrid).Canvas do


begin


Brush.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Field.AsString);

end;

end;

Установите рисование по умолчинию (Default drawing) в True. Только после этого можно нарисовать выделенную ячейку. Если вы установили DefaultDrawing в False, вы должны сами рисовать все ячейки, используя свойство Canvas. [001470]



Содержание раздела