Zeilen einer TableBox farblich markieren, wenn Häkchen ...

Hallo!
Ich habe in einer Subform eine TableBox.
In einer Zeile wähle ich aus, ob ich drucken möchte oder nicht.
Wenn das Häkchen gesetzt wurde, soll die komplette Zeile farblich markiert werden.

Jetzt habe ich das so gemacht:

Code:

IF ...  THEN
  CurrForm.EAN.UPDATEFORECOLOR(iColorSortiment);
IF ... THEN
  CurrForm.EAN.UPDATEFONTBOLD(TRUE);
IF drucken THEN CurrForm.EAN.UPDATEFORECOLOR(iColorDrucken);

Das wäre jetzt bei der Spalte EAN...
Jetzt müsste ich das ja in JEDER Spalte angeben... Gibt es da nicht eine schönere Lösung?
Sowas wie:

Code:

for i = 0 to AnzahlSpalten do
begin
....
...
..
.
end;

Gibt es da nicht eine schönere Lösung?

In deiner Version leider nicht wirklich
Du könntest höchstens im OnAfterGetRecord Variablen setzen, und im OnFormat ohne Abfrage setzen, aber du musst Code in jeden OnFormat -Trigger einbauen.

Gruß, Fiddi