Kolorierung einer TcxGrid nach Kriterien

[Dejan Vu]

Du musst Dir aber einen TcxStyle definieren und den zuweisen. Nur eine Farbe klappt nicht. Du kannst Dem Style auch keine Farbe zuweisen, weil 'AStyle' als 'out' deklariert ist.

Du MUSST also einen eigenen Style deklarieren. Das ist aber sehr praktisch, weil damit der komplette Stil der Zelle gesetzt wird.

[TheFrog]

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.

[TheFrog]

Uups, sehe gerade, das Juergen seine Antwort sehr ähnlich ist!

... naja, sehe es einfach als weitere Möglichkeit!

[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;

[leonreiser]

Danke für alle Antworten erstmal.
Ich habs jetzt einfach mit folgendem Cod hinbekommen:

Delphi-Quellcode:

procedure TFormMain.tcxGridCustomDrawCell(Sender: TcxCustomGridTableView;
  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
  var ADone: Boolean);
var
  rot:Boolean;
begin
  if AViewInfo.RecordViewInfo.GridRecord.Values[tvHPSUsers.DataController.GetItemByFieldName('status').Index] = 0 then
  ACanvas.font.Color := clGrayText
  else
  ACanvas.font.Color := CLNone;
end;

Nun hat jemand zu mir gesagt, dass immer wenn man in dem CustomDrawCell etwas verändert, dass
man dann die ADone Variable (siehe Parameterliste TcxGridCustomDrawCell)auf True setzen sollte.
Tu ich dass, wird mir in der Tabelle nichts mehr angezeigt, was daran liegt dass ich den Text
noch nicht in das Canvas schreibe.

Jedoch klappt ja alles wenn ich ADone nicht auf true setze.
Was bringt mir diese Variable denn jetzt nun?
Ist sie eine Art free nur für Cells oder Canvas??

Ansonsten danke schonmal für die Problemlösung.

Lg Leon

[Daniel]

Mittels "ADone" steuerst Du, wer für das Zeichnen der Zellen verantwortlich sein soll. Damit soll vermieden werden, dass am Ende Deine Zeichenoperationen von DevExpress buchstäblich übermalt werden.
Wenn also jemand eine Zelle vollständig selbst zeichnet, dann setzt er die Variable "ADone" auf den Wert "true" und verhindert damit weiteres Zeichnen seitens DevExpress.

[leonreiser]

@Daniel

Oke das habe ich verstanden.
Dadurch resultiert warscheinlich auch, dass wenn man jetzt eine Row markiert,
dass sie nichtmehr so leicht bläulich wird, sondern nurnoch umrandet.
Gibt es eine Möglichkeit die Zelle beim anklicken wie herkömmlich
so blau transparent zu verfärben?
Ich habe schon mit ACanvas.Brush.Color := clBlue; //und verschiedene Farbtöne versucht sie manuell einzufärben, aber "Brush" funktioniert irgendiwe nicht seitdem ich ADone gesetzt habe.
ACanvas.Font.Color := clBlue funktioniert dafür umso besser