Einzelnen Beitrag anzeigen

Borni

Registriert seit: 16. Aug 2004
Ort: Algermissen
89 Beiträge
 
Delphi 12 Athens
 
#7

AW: Kolorierung einer TcxGrid nach Kriterien

  Alt 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)
  Mit Zitat antworten Zitat