1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TWarenInOut.cxGridDBTableView1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
  out AStyle: TcxStyle);
begin
  inherited;
  if ARecord.Values[Sender.IndexOfItem(Sender.FindItemByName('IO'))] = 'I' then
    AStyle := Mainform.WareIOIn
  else
    AStyle := Mainform.WareIOOut;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TOffenePostenFrm.OffenePostenVerwaltungViewStylesGetContentStyle
  (Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
  out AStyle: TcxStyle);
begin
  if ARecord.Values[Sender.IndexOfItem(Sender.FindItemByName('BELEGART'))] = 'GU' then
    AStyle := Gutschrift;
end;