AlexTZ
AlexTZ
Подробная информация
- Имя пользователя
- AlexTZ
- Электронная почта
- Присоединился
- Посещений
- 0
- Был на сайте
- Группы
- FR Team
Комментарии
-
В файле fr_prntr.pas уберите комментарий со строки: //{$DEFINE ThreadInit}
-
Давно уже победить не можем. Попробуйте последнюю версию FR.
-
В FR2.x бэнды - сами по себе, объекты - сами по себе. Привязка объктов к бэндам идет при запуске отчета. Поэтому в вашем случае надо менять местами не бэнды, а объекты.
-
А ошибки, AV какие-нибудь выдает? Да, и какая версия FR - full/trial?
-
В скрипте, с помощью NewColumn. Например, разрыв после третьей записи master data: if [Line#] = 4 then NewColumn;
-
FR не поддерживает двухстороннюю печать. Точнее, печатать он может, но соответствующий режим надо перед печатью включить в настройках драйвера принтера. В пакетном режиме - нет.
-
Если используется источник данных TfrUserDataset, то надо определить обработчик OnPrior, т.к. в группах используется откат на предыдущую запись при печати group footer.
-
Так вам никто не ответит, информации мало. Пришлите пример отчета (frf и frp) на support - посмотрим...
-
Все проще. В OnBeforePrint нужного объекта пишем: Memo.Clear; Memo.Add([Company]); // то, что должно быть в мемо Font.Size := 10; while CalcWidth > Width do Font.Size := Font.Size - 1;
-
Распространенная ошибка: в IDE стоит 2.51, а пути в environment|library|library path указывают на 2.41.
-
Не стОит.
-
Для TPrinter надо писать обертку. Как это сделать, см. в документации.
-
fs_iilparser: procedure TfsILParser.DoCase(xi: TfsXMLItem; Prog: TfsScript; Statement: TfsStatement); var i: Integer; Stmt: TfsCaseStmt; procedure DoCaseSelector(xi: TfsXMLItem); var Selector: TfsCaseSelector; begin // if (Compa…
-
Как достанем Д8 - сделаем.
-
Не думаю - все-таки это имеет мало общего со скриптами.
-
Нет, FS это не поддерживает.
-
Пока эту строку можно пропустить
-
Тогда так: procedure TfsTryStmt.Execute; var SaveExitCalled: Boolean; begin RunLine; if FProgram.FTerminated then Exit; if IsExcept then begin try inherited Execute; except ExceptStmt.Execute; end; end else …
-
Records не поддерживаются, так что практически никак.
-
Нда, последствия введения метода Terminate Можно пофиксить самому: убрать в fs_iinterpreter.pas procedure TfsStatement.Execute; ... // if FProgram.FExitCalled then break; и ниже, во всех TfsXXXStmt строку // if FProgram.FExitCall…
-
Если делать через DLL - в каждой из них будет сидеть копия FR + часть VCL. Можно сделать через пакеты, тогда с собой надо таскать кучу bpl.
-
Скрипт в FR2.x слишком слаб для таких вещей. Можно попробовать сделать, но через подключаемые функции.
-
См. пример "Summary at the bottom" в демке demos\reports.
-
Ошибка в fs_isysrtti.pas: function TFunctions.CallMethod2(Instance: TObject; ClassType: TClass; const MethodName: String; var Params: Variant): Variant; begin if MethodName = 'STRTOINT' then Result := StrToInt(Params[0]) else if MethodNa…
-
В 2.х надо вычислять параметры вручную: frParser.Calc(p1)
-
В скриптовом событии TfrxMemoView.OnAfterData это значение доступно через системную переменную Value.
-
В 3.0 текстовые объекты рисуются в режиме WYSIWYG, т.е. распечатка на принтере будет выглядеть абсолютно аналогично тому, что видно на экране (с точностью до пиксела). Ваша ф-я наверняка это не учитывает. Поэтому легче использовать ф-ю TfrxMemoView.…
-
В 3.0 - пока никак.
-
Word-то установлен?
-
Ага, ждите