17.10.2016, 16:14
|
Активный
|
|
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
|
|
Код:
procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
if Column.Field.DataSet.FieldByName(STATUS_F).AsString='Выполнено' then
begin
with DBGrid.Canvas do begin
Brush.Color:=$00FF77;
Font.Color:=clBlack;
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
|