Registriert seit: 16. Aug 2004
Ort: Algermissen
89 Beiträge
Delphi 12 Athens
|
AW: Kolorierung einer TcxGrid nach Kriterien
17. Sep 2015, 10:40
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;
Geändert von Borni (17. Sep 2015 um 10:46 Uhr)
|