Kolorierung einer TcxGrid nach Kriterien

[Borni]

so gehts auch

Delphi-Quellcode:

procedure gridCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;var ADone: Boolean);
var
  rot:Boolean;
begin

  if (AViewInfo.Item = SPALTENNAMEZUMFAERBEN) then begin
    rot :=AViewInfo.RecordViewInfo.GridRecord.Values[SPALTEMITBEDINGUNG.Index]>=0;
    if rot then begin
      ACanvas.Font.Color := clWhite;
      ACanvas.Brush.Color := clred;
    end else begin
      ACanvas.Font.Color := clWhite;
      ACanvas.Brush.Color := clgreen;
    end;
  end;
end;