Einzelnen Beitrag anzeigen

TheFrog

Registriert seit: 24. Mär 2009
145 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Kolorierung einer TcxGrid nach Kriterien

  Alt 17. Sep 2015, 08:59
Nur mal so als ergänzende Anregung:

Ich habe hier mal eine Lösung über das OnGetContentStyle-Event der Styles-Property der TableView gemacht:

Delphi-Quellcode:
procedure TForm.MycxGridDBTableViewStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var
  Col: TcxGridColumn;
  FieldValue: Variant;
begin
  Col := GetColumnByFieldName('Status');

  if Assigned(Col) then
  begin
    FieldValue := ARecord.Values[Col.Index];
    if FieldValue <> Null then
    begin
      // falls FieldValue = "Grün" ==> AStyle := FStyleGruen
      // ansonsten falls FieldValue = "Rot" ==> AStyle := FStyleRot
      // usw.
    end;
  end;
end;
Der Code wurde nur mal schnell rauskopiert ohne Anspruch auf Vollständigkeit!

Die Styles (im Beispiel FStyleGruen, usw.) habe ich einfach vorher einmalig erstellt.
  Mit Zitat antworten Zitat