procedure TForm2.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var c:char;
begin
if (Field.FieldName='Event')
then
begin
if (Field.Text='') or (Field.Text[0]>#1)
then DBGrid2.Canvas.Brush.Color:=clRed
else
begin
c:=Field.Text[1];
case c of
'0':{вошел}
DBGrid2.Canvas.Brush.Color:=clYellow;
'1':{вышел}
DBGrid2.Canvas.Brush.Color:=clBlue;
'2':{попытка войти}
DBGrid2.Canvas.Brush.Color:=clRed;
'3':{попытка выйти}
DBGrid2.Canvas.Brush.Color:=clRed;
'4':{отк на вх картой}
DBGrid2.Canvas.Brush.Color:=clYellow;
'5':{открыт на вых картой}
DBGrid2.Canvas.Brush.Color:=clBlue;
'6':{заперт с пульта}
DBGrid2.Canvas.Brush.Color:=clRed;
'7':{открыт с пульта}
DBGrid2.Canvas.Brush.Color:=clGreen;
'8':{металл}
DBGrid2.Canvas.Brush.Color:=clRed;
'9':{в штат раб}
DBGrid2.Canvas.Brush.Color:=clWhite;
else
DBGrid2.Canvas.Brush.Color:=clRed;{вошел}
end;{c}
DBGrid2.Canvas.Brush.Style:=bsSolid;
DBGrid2.Canvas.Rectangle(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom);
end;
end;
end;