cxGrid

[Sugar]

Hi, erstmal danke für die Ansätze. Allerdings ist mein Problem nicht, ein Style zu entwerfen, sondern explizit den Inhalt eines Datenfeld zu ermitteln und DANN diese eine Zeile einzufärben (oder einen Style zuzuweise)

Ums mal Platt auszudrücke:

Ist in der ersten Spalte der String "XY" dann nehme Style XY

Mein Ansatz (der m.E, auch schon in anderen Prjekten funktioniert hat):

Delphi-Quellcode:

procedure THauptForm.RepDruckViewCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
  Var I:Integer;
begin

  if (AViewInfo.GridRecord.Values[0] = 'F') then
  showmessage('HUHU');
end;

Ich bekomme hier aber eine Fehlermeldung "Index out of Range'"

[TheFrog]

Du hast doch die Möglichkeit, über den TcxCustomGridRecord an die Werte zu gelangen:

Delphi-Quellcode:

    Col := GetColumnByFieldName('FeldABC');

    if Assigned(Col) then
    begin

      FieldValue := ARecord.Values[Col.Index];

Damit solltest Du an den Wert einer bestimmten Spalte für die aktuelle Zeile kommen.

[vagtler]

Der Ansatz ist in dem von mir genannten Link ausgeführt. Woran scheitert es genau?

[uligerhardt]

Hier ein Sample von denen, die es wissen sollten, wenn du es uns nicht glaubst:
https://www.devexpress.com/Support/C...etails/T334829

[Sugar]

@vagtler:

hier: if RepDruckView.ViewData.Rows[i].Values[1] = 'F' then....

Hier kommt die Fehlermeldung "Invalid DataControllerOperation" ... RecordIndex out of rnage"....

[vagtler]

Zitat von Sugar:

[...] hier: if RepDruckView.ViewData.Rows[i].Values[1] = 'F' then.... [...]

Das war die Problemstellung, nicht die Lösung...

Kleiner Tipp: Vielleicht sollte man auch die Antworten lesen...

[Sugar]

Zitat von vagtler:

Zitat von Sugar:

[...] hier: if RepDruckView.ViewData.Rows[i].Values[1] = 'F' then.... [...]

Das war die Problemstellung, nicht die Lösung...

Kleiner Tipp: Vielleicht sollte man auch die Antworten lesen...

Ich fühe mich grad wie dein Icon!!! Ich raffe es scheinbar nicht... Hilf mir?

[uligerhardt]

Hier ein leicht verändertes Zitat aus einem DevEx-Support-Case:

Delphi-Quellcode:

procedure TForm2.cxGrid1DBTableView1StylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
begin
  if ARecord.Values[SomeColumn.Index] > 1500 then
  begin
    AStyle := DeinCxStyle;
  end;
end;

DeinCxStyle ist ein von dir angelegter Style, üblicherweise aus einem cxStyleRepository. SomeColumn ist eine Spalte, deren Wert du auslesen möchtest - die aktuelle Spalte wäre AItem. Die Bedingung (> 1500) musst du natürlich an deine Zwecke anpassen.

[juergen]

Hallo,

hier ist auch noch eine Lösung: Klick