Закрашиваем ячейки в DBGrid. Цветные ячейки в Delphi.
В обработчике событий DBGrid1DrawColumnCell компонента TDBGrid запишем следующее:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if Column.FieldName = 'Фамилия' then if (Column.Field.AsString ='ПЕТРОВ') then begin DBGrid1.Canvas.Brush.Color := clSkyBlue; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; |
В результате выполнения этого кода в колонке «Фамилия» все ячейки, содержащие значение «ПЕТРОВ» будут закрашены в голубой цвет (clSkyBlue).