gpi
gpi
Подробная информация
- Имя пользователя
- gpi
- Электронная почта
- Присоединился
- Посещений
- 178
- Был на сайте
- Группы
- FR Team
Комментарии
-
Вот тестовый пример unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, frxClass, frxDBSet, StdCtrls, Grids, DBGrids, DB, DBTables; type TForm1 = class(TForm) Table1: TTable; …
-
Установи frxDBDataset.RangeBegin=rbCurrent и frxDBDataset.RangeEnd=reCurrent у датасета, подключённого к отчёту
-
Добавь в отчёт ещё один MasterData2, на котором расположи ячейки пустой строки. MasterData2.RowCount=1 procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin MasterData2.Visible:=False; end;
-
У меня получается менять только перед показом отчёта TfrBarCodeView(frReport1.FindObject('Bar1')).Param.cBarType:=bcCode39; frReport1.ShowReport; Можно ещё в пользовательской функции таким же образом менять тип штрихкода
-
написал: А не подскажите, каким образом можно загружать отчеты с расширением FR3? Думаю, что это не получится. FR 2.53-2.55 позволяет только экспортировать в формат FR3.
-
Можно использовать функцию IF В Memo1 прописать [IF(a<0, [Table1."NAME"], '')] В Memo2 прописать [IF(a<0, '', [Table1."NAME"])]
-
Расположи тогда на мемо (Memo1), где выводится значение, ещё одно мемо (Memo2) с текстом название и белым фоном. Установи Memo1.ParagraphGap =Memo2.Width+2, Memo1.Underlines=True Вот только проблема с экспортом в PDF останется.
-
Если нужно, чтобы значение подчёркивалось полностью по всей длине, включая и сам текст, то установи у Memo свойство Underlines=True Для того, чтобы текст переносился на другую строку WordWrap=True StretchMode=smActualHeight. Бэнд тоже должен быть р…
-
Что значит написал: передать подключение в FR Если нужно распечатать данные из pFIBDataset, то подключи pFIBDataset к frxDBDataset
-
Можно было и через FindObject TfrBandView(frReport1.FindObject('GroupHeader1')).GroupCondition:='Copy(Company, 1, 2)';
-
frxFIBcomponents нужно установить вручную
-
Модификация примера из документации unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, frxDesgn, frxClass, StdCtrls, frxDBSet, Printers, DB, DBTables; type TForm1 = class(TForm) …
-
Не уверен, что поможет, но попробуйте установить у первой страницы шаблона отчёта Page1.PrintOnPreviousPage=False
-
Свойством Highlight задаются параметры условного выделения. Обычно это делается на этапе проектирования отчёта либо в главной процедуре скрипта отчёта Если на этапе проектирования нельзя определить параметры условного выделения, то тогда нужно меня…
-
GroupHeader1.StartNewPage=True procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent); begin if mod 2=0 then Engine.NewColumn; end; Добавлено: Сразу не понял задачу, подумал, что нужно выводить каждую группу на отдельном листе. Т…
-
Если нужно одновременно показывать только один отчёт при нескольких открытых формах, то можно использовать DM.frxReport. С Form1 можно убрать frxReport и frxDBDataset1 Поменять код: procedure TForm1.Button1Click(Sender: TObject); begin DM.frxDBDa…
-
написал: Если нужно могу дать тестовый проект. Адрес в ПМ
-
Попробуйте управлять видимостью датасетов в Меню\Отчет\Данные через TfrxDBDataset.Enabled
-
procedure TfrPrinter.SetPrinterIndex(Value: Integer); begin if FPrinterIndex = Value then Exit; FPrinterIndex := Value; if Value = FDefaultPrinter then SetSettings else if FPrinter.Printers.Count > 0 then begin FPrinter.Printer…
-
написал: Попробуйте убрать комментарий со строки {$DEFINE PRN_RESET} в файле FR_Prntr.pas и перекомпилировать пакет FR и ваш проект.
-
Действительно, работает Век учись, а дураком помрёшь
-
написал: Вчера эту проблему решил установкой FR 3.21 Эти свойства появились уже в последних билдах 3.20. Но к ним не добраться при использовании стандартного превью frxReport написал: А что по поводу многоязычности? Обсуждали как-то …
-
Добавьте в uses FR_DBLookupCtl
-
написал: Подскажите пожалуйста, возможно ли в frxPreview изменить цвет фона с сlGray на другой? Придётся править frxPreview.pas constructor TfrxPreview.Create(AOwner: TComponent); begin inherited; FBackColor := clGray; FFrameColor := c…
-
См. здесь http://www.fast-report.com/en/forum/?p=/discussion/3588 Ещё в обработчике подвала данных (Footer1.Height=0) procedure Footer1OnAfterPrint(Sender: TfrxComponent); begin MasterData2.RowCount:=Trunc(Engine.FreeSpace/MasterData2.Height…
-
Добавьте в отчёт ещё один MasterData2 с пустыми ячейками. MasterData2 не подключён к источнику данных. После печати первого MasterData1, задавайте MasterData2.RowCount=5-количество строк MasterData1
-
Это я пытался уменьшить размер кода, а пробовал на двухстраничном отчёте без бэндов, по одному мемо на страницу. Зря я выкинул RemoveBands. Тогда делайте, как и в frxPreview.pas procedure EditPage(Report: TfrxReport; PageNo: Integer); var r: TfrxRep…
-
procedure EditPage(Report: TfrxReport; PageNo: Integer); var r: TfrxReport; p: TfrxReportPage; SourcePage: TfrxPage; begin SourcePage := Report.PreviewPages.Page[PageNo-1]; r := TfrxReport.Create(nil); p := TfrxReportPage.Crea…
-
По поводу локализации - воспользуйтесь recompile.exe или в папке RES возьмите ресурсы и следуйте инструкции из install_res.txt Показ прогресса - TrfxReport.OldStyleProgress=True
-
В программе: frxReport1.Script.Variables['GroupCountry']:=Pos('Country=',DataSet.Filter)=0; frxReport1.ShowReport; В скрипте: procedure Page1OnBeforePrint(Sender: TfrxComponent); begin GroupHeader1.Visible:=GroupCountry; end;