LazReport: баги и вопросы...

[xcod]

Еще как вариант можно воспользоваться глобальной переменной

Код: Выделить всё

frVariables['ИмяПеременной'] := 'Ваше значение'

и тогда отпадет необходимость в

Затем в отчете добавляем переменные в Файл -> Список переменных...

[alaken]

Столкнулся с проблемой вывода символов "[", "]" в отчете, выдает ошибку, пытается произвести вычисления.
В отчете обязательно должны фигурировать именно квадратные скобки.
Кто нибудь сталкивался с данной проблемой?
Буду рад любым идеям.

[xcod]

можно подробней и желательно с примером
как Вы пытаетесь эти символы вывести в отчёте?

[alaken]

Символы уже в текстовом файле.

Код: Выделить всё

FTextFile.LoadFromFile(  FileName  );
frRpt :=  TfrReport.Create( Nil );
frRpt.Pages.Add();
Page := frRpt.Pages[ frRpt.Pages.Count - 1 ];
frView := frCreateObject( gtMemo, '' );
frView.SetBounds( FPrintRect.Left, FPrintRect.Top, FPrintRect.Right, FPrintRect.Bottom );
( frView as TfrMemoView ).Font := FFont;
Page.Objects.Add( frView );

Count := FTextFile.Count - 1;

  for
    idx := 0
  to
    Count
  do
  begin

    if
      FTextFile.Strings[idx] <> ''
    then
      frView.Memo.Add( FTextFile.Strings[idx] )
    else
      frView.Memo.Add( ' ' ); 

  end;

frRpt.PrepareReport;



Добавлено спустя 38 минут 51 секунду:
Выход я нашел, но он ресурсоемкий.
Идея в том чтобы текст с квадратными ковычками подготовить и в место квадратных ковычек вписать переменные LazReport'а и обрабатывать эти переменные. Жуть.

Код: Выделить всё

  frRpt :=  TfrReport.Create( Nil );
  frRpt.OnGetValue := frRptGetValue;
  frRpt.DoublePass := True; 
...
for
    idx := 0
  to
    Count
  do
  begin

    if
      FTextFile.Strings[idx] <> ''
    then
      frView.Memo.Add
      (
        StringReplace
        (
          StringReplace
          (
            StringReplace
            (
              StringReplace
              (
                FTextFile.Strings[ idx ],
                '[',
                '#SBL#',
                [ rfReplaceAll ]
              ),
              ']',
              '#SBR#',
              [ rfReplaceAll ]
            ),
            '#SBL#',
            '[SBL]',
            [ rfReplaceAll ]
          ),
          '#SBR#',
          '[SBR]',
          [ rfReplaceAll ]
        )
      )
    else
      frView.Memo.Add( ' ' );
  end;

Код: Выделить всё

procedure TPrintStatement.frRptGetValue(const ParName: String; var ParValue: Variant);
begin

  if
    ParName = 'SBL'
  then
    ParValue := '[';

  if
    ParName = 'SBR'
  then
    ParValue := ']';

end;

Добавлено спустя 1 минуту 59 секунд:
И кстате

frRpt.DoublePass := True;

- не работает, TOTALPAGES = 0.
Тоже проблема.
Жду идей =)

[alexs]

alaken
Лучше не ждать - а зарегистрировать проблему на багтрекере. Тогда её точно исправят.

[jsa]

Printer.SetPrinter

Не понимаю откуда вы берете такие свойства и методы у Printer я там в упор не вижу их.

[slyubez]

Не понимаю откуда вы берете такие свойства и методы у Printer я там в упор не вижу их.

Вы бы хоть на дату сообщений посмотрели.

[jsa]

Вы бы хоть на дату сообщений посмотрели.

Что вы хотите этим сказать?
В старых темах нет смысла писать, и задавать вопросы, нужно каждый раз новые плодить?
Какой срок устаревания темы? полгода? год? 3? 5? как определять?

[brick08]

возникла необходимость вставлять в отчет типа гиперссылки (например ссылку на файл на сетевом ресурсе). Кто-нибудь уже делал что-то подобное?
Как это проще реализовать? По OnClick по-моему не получится.
И еще вопрос, можно ли в пределах одного Memo показывать текст разными шрифтами?

[alexs]

1. Готовой гиперсылки нет - надо вручную у компоненты frReport обработать соответствующее событие.
2. Такого пока нет. Хотя через обработчик у frReport реализовать можно.