TMS Grid anderen Farbwert zuweisen

[sventeq]

Hallo, hab da ein eher banales Formatierungsproblem. Ich versuche, in Abhängigkeit von einem Feldwert, ein komplette Reihe in einem DBAdvGrid rot zu färben, aber ich finde in den Methoden nur RowColorTo bzw. RowColor. Damit bekomme ich nichts Gescheites hin, bin halt noch Anfänger. Wär super, wenn mir da jemand helfen kann.

[BennyM]

Hi.

Nehm einfach das GetCellColor-Ereignis. Du musst nur ABrush.Color setzen und schon ist die komplette Reihe ist in deiner Farbe.
Du kannst ja dann einfach den Farbwert aus der jeweiligen Zeile im Grid nehmen.

Gruß
Der Benny

Delphi-Quellcode:

procedure TWorkshop.DBAdvGrid1GetCellColor(Sender: TObject; ARow, ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
begin
   if ARow < 1 then Exit;
   ABrush.Color := StrToInt(DBAdvGrid1.Cells[3,ARow]);
end;