Полосатый

Комментарии

• gpi

  April 2006 отредактировано 06:58

  Положите на 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

  April 2006 отредактировано 06:58

  Если можно поподробнее раскажите
  
  procedure MasterData1OnBeforePrint где это писать
• BARAKUDA

  April 2006 отредактировано 06:58

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

  April 2006 отредактировано 06:58

  написал:

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

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

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

  написал:

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

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