Полосатый

BARAKUDA

Как сделать что бы при печати таблицы каждые три строки были другого цвета

Заранее благодарен

gpi

Положите на MasterData1 Memo1. Memo1.Align=baClient. Сверху на Memo1 можно положить другие Memo с Color=clNone

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
     case <line#> mod 3 of
       0: Memo1.Color:=clRed;
       1: Memo1.Color:=clBlue;
       2: Memo1.Color:=clGreen;
     end;
end;

BARAKUDA

Если можно поподробнее раскажите

procedure MasterData1OnBeforePrint где это писать

BARAKUDA

ОШИБКА (';' EXPECTED)

gpi

написал:

procedure MasterData1OnBeforePrint где это писать

В скрипте отчёта. Нужно выделить MasterData1, в инспекторе перейти на вкладку События, двойной клик на OnBeforePrint. В созданном обработчике написать

    case <line#> mod 3 of
      0: Memo1.Color:=clRed;
      1: Memo1.Color:=clBlue;
      2: Memo1.Color:=clGreen;
    end;

написал:

ОШИБКА (';' EXPECTED)

У меня код в скрипте обрабатывается без ошибок