» FastReport

Pentium133
Без DateSet можно сделать отчёт, это уже проверено и всё работает...
А как использовать стандартный DateSet в отчёте...

DroN_S

Цитата:

А как использовать стандартный DateSet в отчёте...

Ничего военного. Если найду исходник той проги, в которой я использую стандартный, то сам увидишь. А с нуля попробовать в текущий момент нет возможности.

GloThin
И когда же я смогу его увидеть...

DroN_S
Исходники я не нашел. Так что пока ничем помочь не могу.

Господа, нужна помощь. Есть несколько вопросов по 3шке:

1. В 2-ке были DetailFooter, SubDetailFooter. В 3шке Footer остался одного
типа. Как от него добиться работы его предков?

2. Почему не срабатывает конструкция:
TempSum := 0;
а приходится использовать
Set('TempSum', 0);
а?
В первом случае ругается на необъявленную переменную, хотя в списке
переменных (у отчета, ессно) она объявлена?

3. Пытаюсь воспроизвести по примеру создание композитного отчета, т.к. до
перехода на 3шку в проекте было много таких отчетов, но не хочется для этого
плодить сущности в виде файлов:

Код:
var
DataStream: TStream;
....
begin
...
frInvoice.SaveToStream(DataStream);
frCompositeInvoice.LoadFromStream(DataStream);
...

Цитата:

У меня такой вопрос, как вывести в отчёте все записи которые находятся в базе, если не использовать DBDataSet из палитры фаста...

TfrxUserDataSet или обработчик OnGetValue


Цитата:

Почему не срабатывает конструкция:
TempSum := 0;
а приходится использовать
Set('TempSum', 0);
а?
В первом случае ругается на необъявленную переменную, хотя в списке
переменных (у отчета, ессно) она объявлена?

речь  идет о разных переменных, срипта и отчета
для скрипта нужно объявлять переменные согласно синтаксиса языка скрипта


Цитата:

Круто то оно круто, но лучше б линии горизонтальные доделали как надо.
А то всё равно глючно работают.

А я сидел и ждал: когда же линии горизонтальные заработают.
На 15-том релизе что-то проклюнулось...

а что имено происходит с линиями, чуть подробней суть глюка обрисуй



Добавлено:
просьба найденые баги перенести сюда
http://forum.ru-board.com/topic.cgi?forum=33&topic=5647

недавно в ньюсах борланда рейв с qr соревновались.

аналогичный тест мы провели с FastReport

FastReport 3

Код:
procedure TForm2.Button3Click(Sender: TObject);
var
I1: integer;
I2: integer;
begin
I2 := GetTickCount;
for I1 := 1 to 100 do begin
frxReport1.PrepareReport(True);
frxReport1.PreviewPages.SaveToFile('test.fp3');
end; { for }
ShowMessage('Done ' + IntToStr(GetTickCount - I2));
end;

My_Way
А как обстоят дела с текущими (или хотя бы более свежими) версиями сих компонентов?

Есть-ли возможность задавать произвольный шрифт?
А именно - шрифт создается через CreateFontIndirect, чтобы получить сжатый шрифт.

Можно-ли использовать этот шрифт в FastReport?
Или есть какие-то стандартные средства для модификации шрифта?

QBuilder в Фаст 3.15 не видит вьюхи и отказывается с ними работать, даже если ручками написать запрос.
использую TfrxFIBQuery... может это конечно их баг. Но все равно

stalker780

Цитата:

QBuilder в Фаст 3.15 не видит вьюхи и отказывается с ними работать, даже если ручками написать запрос.
использую TfrxFIBQuery... может это конечно их баг. Но все равно

тебе сюда, сам всё поймёшь

Народ, помогите сделать экспорт из отчета в Excel. Очень нужно
Если не зделаю, завтра убьют.
Заранее большое спасиба.

Solnake

Цитата:

помогите сделать экспорт из отчета в Excel.

А что за проблема с экспортом?
Поподробнее можешь объяснить?

Как можно изменять размер шрифта в поле, в зависимости от физической длины выводимого текста?
Надо, чтобы поместился весь текст в поле, в одну строку.
Может быть кто-то уже сталкивался с этим, не хочется изобретать велосипед ...

Vitus_Bering
Тебе это надо сделать в дизайнере или в Run-Time?
Если в Run-Time то в просмотре страницы, если у тебя не уместилось всё в одну строку, нажимешь дизайнер и редактируешь строку...

DroN_S
Надо сделать в Run-Time это делалось автоматически, например если длинная строка устанавливается размер шрифта 8, а если короткая строка - 12.

Vitus_Bering
Так проверяй в коде программы строку на длинну и всё. У тебя есть отчёт(шаблон), ты знаешь какая максимальная длина при 12 размере шрифта, для строки в отчёте, аналогично и при 8. Далее, проверяешь длину строки(Length) если она превышает допустимую длину, то менянм шрифт у memo-поля в отчёте..
реализуется так:

Код:
var
obj:TfrxMemoView;
begin
obj := frxReport1.FindObject('memo1') as TfrxMemoView;
if Length(Form1.Caption)>=6 then
obj.Font.Size := 12
else
obj.Font.Size := 8;
frxReport1.ShowReport();

DroN_S
Сформулирую задачу по-другому:
например, есть поле, ширина которого - 10 см.
Под длиной текста, я понимаю ФИЗИЧЕСКУЮ длину текста (сантиметры, пиксели и т.д.), а не Length.
Если длина текста больше ширины поля (10 см), то уменьшается размер шрифта, до тех пор пока не выполнится условие:
Длина текста < Ширины поля.

Vitus_Bering
т.е. твоя проблема заключается в том что тебе надо высчитать длину текста в пикселях или сантеметрах?

DroN_S
В сантиметрах, чтобы сравнить с шириной поля.

Vitus_Bering

Цитата:

В сантиметрах, чтобы сравнить с шириной поля.

почему с шириной? тебе же длина нужна?

DroN_S
Длина текста должна сравниваться с шириной поля, в которое этот текст выводится.

Vitus_Bering
например можно так:

Код:
{Canvas.Font.PixelsPerInch - точек на дюйм}
{1 дюйм = 2,54}
{тогда бет выглядет вот так:}

pixels := Label1.Canvas.TextWidth(label1.Caption); //длина строки в пикселах
sant:= pixels/label1.Canvas.Font.PixelsPerInch*2.54;//длина в сантиметрах

DroN_S
спасибо.


Добавлено:
DroN_S
спасибо.

Можно ли с помощью fast report решать следующую задачу, и если да, то в какую сторону копать (ищу замену своему давно устаревшему генератору отчетов):
есть приложение, которое через определенные интерфейсы выдает наборы данных, есть ряд заготовленных отчетов (планируется сделать заготовки разных отчетов fast report), нужно написать плагин, который, в зависимости от выбранного отчета, будет передавать ему нужные данные от приложения, и с помощью fastreport получать отчет.

abv
к твоей задаче, fast report вообще имеет маленькую роль, т.к. тебе необходимо перед формированием отчёта сопоставлять твои выходные данные, которые тебе выдаёт программа, с файлом-шаблона, который более или менее подходит для этих данных...

либо, посмотри пример, программа Бизнес Пак, там есть набор шаблонов, есть данные, которые хранятся в базе данных, затем пользователь выбирает нужный ему шаблон и формирует отчёт...

P.S. более подходящий вариант для для твоей задачи...

DroN_S
Бизнес Пак посмотрел - но это совсем не то. Это, как я понял, просто средство получения каких-то отчетов, притом заточенных под бухгалтерию.

Может я не совсем правильно сформулировал, что мне нужно. В принципе да, мне надо в модуле, который будет связывать программу с построителем отчетов, реализовать запрос и получение нужных данных из другого модуля, и передачу этих данных построителю отчетов вместе с шаблоном отчета. То есть, на входе имеем какой-то произвольный шаблон отчета, на основе этого шаблона определяем, какие данные нам нужны, запрашиваем эти данные у другого модуля, и запукаем построитель отчетов с этими данными.
Вот и хотелось бы узнать, можно ли в качестве построителя отчетов использовать fast report, то есть, насколько демократично можно в рантайме скормить ему произвольный шаблон отчета и данные для него. Или же может кто подскажет другой построитель отчетов, более подходящий под эту задачу.

abv

Цитата:

ищу замену своему давно устаревшему генератору отчетов

какой ты использовал генератор отчётов раньше?

Цитата:

Бизнес Пак посмотрел - но это совсем не то. Это, как я понял, просто средство получения каких-то отчетов, притом заточенных под бухгалтерию.

это не просто средство, мощный пакет для ведения дочерней бухгалтерии...

Цитата:

В принципе да, мне надо в модуле, который будет связывать программу с построителем отчетов, реализовать запрос и получение нужных данных из другого модуля, и передачу этих данных построителю отчетов вместе с шаблоном отчета. То есть, на входе имеем какой-то произвольный шаблон отчета, на основе этого шаблона определяем, какие данные нам нужны, запрашиваем эти данные у другого модуля, и запукаем построитель отчетов с этими данными.

зачем тебе лишние модули, зачем усложнять себе жизнь...

Привет!
По умолчанию у Page задана ориентация poPortrait. Но во время генерации отчёта некоторые листы необходимо делать альбомными, т.е. Page2.Orientation:=poLandscape. Всё это должно выполняться в коде самого отчёта, а не Делфи. Но не работает. Не понимает значение poLandscape. Использую FastReport 3.0
Прописываю на вкладке Code.

procedure MasterData2OnBeforePrint(Sender: TfrxComponent);
begin
if <frxDBDataset3."Height"><1.5*<frxDBDataset3."Width"> then
begin
Page2.Orientation:=poLandscape;
end;
end;

Что не правильно?

Bot

Цитата:

Но не работает. Не понимает значение poLandscape. Использую FastReport 3.0

Что он пишет? Какую ошибку?

так вот всё работает

Код:
begin
Page1.Orientation:=poLandscape;
end.