» Лицензия FastReport за багрепорты и багофиксы

Цитата:

P.S. Что-то я особо не заметил исправления багов в последней выпущенной версии...

Будем ждать FR 3.18. Может увидим в changes.txt

Цитата:

- bug fixes

Добавлено:
My_Way
А баги FR Studio тоже сюда постить?
Вот первый. Если запустить дизайнер FR Studio, открыть отчёт, затем сделать видимыми панели Дерево данных и Дерево отчёта в виде формы, а не тулбара, то на предосмотре они не исчезают и не закрываются.

Добавлено:
И второй.
При смене языка диалогов не меняется название пункта Язык из меню Вид, оно остаётся либо английским (если при запуске был установлен язык, отличный от русского - во всех языковых файлах ресурсы 2474 и 2475 на английском), либо русским. Пункт Соединения из меню Вид обновляется, но либо на русский, либо на английский во всех остальных случаях.
Также не обновляется текст на закладке Код, на закладках Свойства, События инспектора объектов, названия панелей Дерево данных и Дерево отчёта и их закладки при отображении в виде формы . При перезапуске дизайнера всё ОК.
Подсказка по свойству в инспекторе объектов не обновляется, пока не перейдёшь на другое.

Цитата:

они не исчезают и не закрываются

с этим багом уже боремся, спасибо.

второй не баг, полная локаль меняется после перезагрузки
это связано со спецификой локализации
диннамически локализованые контролы не меняются



Цитата:

Будем ждать FR 3.18. Может увидим в changes.txt

на следующей неделе будет 3.18

1. В FR Studio Designer в FQB Designer поменяйте местами хинты к кнопкам Открыть и Сохранить.
2. В FR и FR Studio при добавлении BDE, ADO, FIB, IBX, DBX-компонентов в строке состояния координаты принимают значения -10000,00
3. При двойном щелчке на FIB, ADODatabase, для которых уже установлены параметры подключения вызывается мастер подключения с пустыми полями файла базы, имени пользователя и пароля.

Тихо сам с собою ...
Вот что заметил:
если в отчёте Simple list (для примера) из FR Demo присвоить Memo8.URL значение http://www.fast-report.com , то
1) как и с OutlineText при просмотре на две страницы ссылки на левой странице не работают;
2) если при просмотре на названии компании вызвать контекстное меню и выбрать в нём какой-либо пункт, то после выполнения операции произойдёт переход на URL;
3) если при просмотре на названии компании вызвать контекстное меню, а потом отказаться от выбора любого пункта, щёлкнув не на названии компании или даже за пределами страницы, то всё равно произойдёт переход на URL.
И замечание: исправьте в демо-отчётах Calendar, Expression in cross в скриптах название июня с Juny на June.

Не знаю, баг это или не баг, но зачем в фасте в просмотре страницы, масштаб можно выбирать до бесконечности, если всё-равно после 3000-5000 ничего не отображается....

DroN_S
И на 100 000% отображается, просто ты заблудился

Цитата:

И на 100 000% отображается, просто ты заблудился

Зачем такой масштаб нужен? Это обычному пользователю по-моему не нужно...
Ну , конечно, слово за разработчиками..

My_Way
Что-то тебя не слышно. В отпуск пошёл?

А лицензию на FR 2.55 получить можно?

Извиняюсь за отсутсвие


Цитата:

но зачем в фасте в просмотре страницы, масштаб можно выбирать до бесконечности

зачем, я даже сам не знаю, за баг считаем, за бейсиком можно в ПМ


Цитата:

А лицензию на FR 2.55 получить можно?

можно, получай!
но это не в рамках данной акции, а за бескорыстную помощь в багоустранении


по поводу резюме, те кто присылал в ПМ, чуть позже продолжим общение, обязательно отвечу, немножко разгребусь с текучкой

My_Way
Есть очень серъезный баг по 2-й линейке фастика. Можно ли его сюда запостить?

Nicka_Grey

Цитата:

Можно ли его сюда запостить?

Да, можно

My_Way
Ок
На работе у нас куплен 2-й FastReport.
Далее отчет о проблеме от напарника.

Цитата:

Стоит версия 2.54 (знаю что есть более новые, но пока нету времени проверить на них). Delphi 7 со всеми существующими апдейтами.
Так вот в чем дело...
В одном проэкте отчет был сохранен в форме проэкта, и на протяжении дня пока работали с проэктом все было ок. На следующий же день когда попытались октрыть сохраненный проэкт, начались проблемы. А именно, Delphi при открывании поэкта все отъедала и отъедала память, при этом сам проэкт так и не открыв. В момент когда Delphi уже занимала более 1Гб через менеджер задач ее просто закрыли. Открыв DFM и удалив оттуда секцию с определением FastReport-a проэкт снова запускался нормально.

DFM отдельно сохранен.
Повторяемость 100% и на других машинах.
Если есть интерес могу выслать сам DFM или вырезанную секцию FastReport-a, или даже весь проэкт. Хотя весь проэкт наврятли нужен.

My_Way

Посмотрим внимательно на режим превью:
1.После фикса от GloThin в режиме «страница целиком» страница отображается нормально, но когда в отчете две или три страницы, при просмотре 2-й страницы в этом режиме, вверху и внизу области просмотра остаются фрагменты от предыдущей и следующей страниц.
2.С отчетом из трех страниц, при выборе режима «две страницы»,после фиксатора от gpi , две страницы отображаются нормально, а в нижней части области просмотра виден фрагмент третьей страницы, и расположена она по центру области просмотра, а не под первой страницей, как оно должно быть.
3.При увеличении масштаба при значении 200% или больше, и прокрутить страницу хотя бы наполовину от любого из ее краев, и выбрать масштаб = 25%, о страница(ы) исчезает из области просмотра, но полоса прокрутки присутствует.
4.При нажатии на кнопку «лупа» и при клике на области просмотра, то в левой части области просмотра появляется небольшая часть страница(ы).
5.Если при масштабе 200% переместить страницу влево, по достижении правой границы страницы выбрать масштаб «по ширине страницы», то масштабирования по ширине произойдет, а страница убежит влево и покажется только ее правая часть.
6.Такая же история и с масштабом – «100%» и «две страницы».
7.При масштабе = 150%, перемещаем страницу влево, по достижении правой края страницы, выбираем масштаб «25%»,страница выходит не по центру области просмотра.
8.Если после действий из предыдущего пункта выбрать масштаб «по ширине»,то страница по ширине отображается не полностью, а(левая часть страницы находится за границей области просмотра).
9.Такая же песня с масштабом «100 %» и «две страницы».

SerVal777
Что касается п. 1 и 2, то фиксы здесь не причём. Подобная ситуация возникает и без них, а вот баг из п.3 нужно исправлять, тем более, что если в отчёте 2 страницы, то после действий п. 3 на экране вообще пусто и никакой полосы прокрутки. Но если нажать левую кнопку и переместить мышку по пустому полю или вызвать контекстное меню, то страницы появляются.

Добавлено:
А вот и фикс к п.3:

procedure TfrxPreview.UpdateZoom;
var
PageSize: TPoint;
begin
if FLocked or (PageCount = 0) then Exit;
PageSize := PreviewPages.PageSize[PageNo - 1];

case FZoomMode of
zmWholePage:
begin
FZoom := (FWorkspace.ClientHeight - 20) / PageSize.Y;
SetPosition(PageNo,0); //previous fix
end;
zmPageWidth:
FZoom := (FWorkspace.Width - 52) / PageSize.X;
zmManyPages:
begin
FZoom := (FWorkspace.ClientWidth - 32) / (PageSize.X * 2);
SetPosition(PageNo,0); //previous fix
end;
end;

FWorkspace.UpdateScrollBars;
FWorkspace.VertPosition:=FWorkspace.VertPosition; //как ни странно, но выполняет перерисовку превью
//что устраняет баги с неотображением страниц
//при выборе масштаба "страница целиком",
//"две страницы", 25% после 200%
FWorkspace.Repaint;
if Owner is TfrxPreviewForm then
TfrxPreviewForm(Owner).UpdateZoom;
end;

gpi

Цитата:

Что касается п. 1 и 2, то фиксы здесь не причём. Подобная ситуация возникает и без них

Я и не говорил, что это фозникает из-за них, я говорил, что отображение страницы исправилось, но остались нюансы, которые я указал...

Ситуация и3 пункта 1 исправляется следующим образом:
в той же самой procedure TfrxPreview.UpdateZoom;

Код: FZoom := (FWorkspace.ClientHeight - 20) / PageSize.Y;

SerVal777


Цитата:

FZoom := (FWorkspace.ClientHeight - 16) / PageSize.Y;

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

вот исправление к багу на счёт масштаба страницы

Код:
//Модуль frxPreview.pas

procedure TfrxPreviewWorkspace.MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
var
PageNo: Integer;
PageBounds: TRect;
Cur: TCursor;
//beginfix
const
Max=3;// Максимальный масштаб в %
//endfix
begin
if Assigned(FPreview.OnClick) then
FPreview.OnClick(FPreview);
if (FPageList.Count = 0) or FPreview.FLocked then Exit;

FDown := False;
if FPreview.Tool = ptZoom then
begin
if Button = mbLeft then
//beginfix
begin
if (FPreview.Zoom < (Max/100)) then
FPreview.Zoom := FPreview.Zoom + 0.25;
end;
//endfix
if Button = mbRight then
FPreview.Zoom := FPreview.Zoom - 0.25;
end
else
begin
PageNo := FPageList.FindPage(FOffset.Y + Y, FPreview.Zoom, True);
PageBounds := FPageList.GetPageBounds(PageNo, ClientWidth, FPreview.Zoom);
PreviewPages.ObjectOver(PageNo, X, Y, Button, Shift, FPreview.Zoom,
PageBounds.Left - FOffset.X, PageBounds.Top - FOffset.Y, True, Cur);
end;
end;

Баг к версии 2.54
В этой версии есть возможность настраивать отчёты через Report.DesignReport.
Если таким образом попытаться открыть в дизайнере отчёт с CrossTab и попытаться отредактировать свойство Dictionary CrossTab-объекта, то при закрытии приложения возникает ошибка, отладчик заходит в fr_crosssd.pas в секцию finalization на строку

Код:
DictionaryForm.Free;

Цитата:

вот исправление к багу на счёт масштаба страницы

Это исправление работает только при изменении масштаба при помощи мыши, но ничего не мешает пользователю изменить масштаб в ComboBoxe.
В этой ситуации необходимо применить следующий метод:

Код:
//Модуль frxPreview.pas
procedure TfrxPreview.SetZoom(const Value: Extended);
//beginfix
const
max=3;
//endfix
begin
FZoom := Value;
if FZoom < 0.25 then
FZoom := 0.25;
//beginfix
if FZoom > max then
FZoom := max;
//endfix
if FZoomMode = zmManyPages then
ZoomMode := zmDefault;
FZoomMode := zmDefault;
UpdateZoom;
end;

вот чего нашёл, даже не знаю к чему отнести...

Открываем проект ..\Demos\PrintFile\
unit1.pas заменяем на любой другой файл(я менял текстовой) размером чуть больше одного метра...
Запускам...
Жмём Print... - смотрим что у вас получается...
у меня ничего не получилось, а в добавок ко всему у меня ещё и система повесилась....

My_Way

Цитата:

немножко разгребусь с текучкой

Да похоже текучка затянула как болото А люди ждут...

Цитата:

на следующей неделе будет 3.18

Неделя прошла, а где обещанная новая версия?

GloThin

Цитата:

Неделя прошла, а где обещанная новая версия?

А ты что, всегда всё вовремя делаешь?
Я обычно опаздываю на столько же, на сколько и обещал, т.е. сроки увеличиваются в два раза. Подождём ещё неделю. Или две...
DroN_S

Цитата:

Жмём Print... - смотрим что у вас получается...
у меня ничего не получилось, а в добавок ко всему у меня ещё и система повесилась....

У меня система не вешалась, но отчёт из файла 65кб формировался 9 с, 160 кб - минут 5, 500 кб - за 0,5 часа 16 страниц, дальше не стал ждать.

gpi

Цитата:

У меня система не вешалась, но отчёт из файла 65кб формировался 9 с, 160 кб - минут 5, 500 кб - за 0,5 часа 16 страниц, дальше не стал ждать.

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

DroN_S
Немного не так понял: 500 кб - за 0,5 часа 16 первых страниц, а их всего не одна сотня.
Загрузка процессора составляла 80-99%, памяти 20-90 Мб (причём циклически, т.е. растёт до 90Мб, формируется 2-3 страницы, падает до 20 и по новой начинает расти)
Я добавил на форму frxUserDataSet1, изменил код:

Цитата:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
frxClass, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
frxUserDataSet1: TfrxUserDataSet;
frxReport1: TfrxReport;
procedure Button1Click(Sender: TObject);
procedure frxReport1GetValue(VarName: String; var Value: Variant);
procedure frxUserDataSet1CheckEOF(Sender: TObject; var Eof: Boolean);
procedure frxUserDataSet1First(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

var
sl: TStringList;
i: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
frxReport1.ShowReport;
end;

procedure TForm1.frxReport1GetValue(VarName: String; var Value: Variant);
begin
if CompareText(VarName, 'file') = 0 then
begin
Value := sl.strings[i];
inc(i);
end;
end;

procedure TForm1.frxUserDataSet1CheckEOF(Sender: TObject;
var Eof: Boolean);
begin
eof:=i>sl.Count-1;
end;

procedure TForm1.frxUserDataSet1First(Sender: TObject);
begin
sl := TStringList.Create;
sl.LoadFromFile('dbisamen.pas');
i:=0;
end;

end.

подключил frxUserDataSet1 к данным отчёта и MasterData.
Формирование отчёта заняло 8 сек (1322 страницы).
В FR, похоже, проблема с распечаткой МЕМО с большим количеством строк.

gpi

Цитата:

В FR, похоже, проблема с распечаткой МЕМО с большим количеством строк.

Такая же проблема что и с RichEdit(Memo) - загружаемый файл больше одного метра, идёт переполнение буфера...

Добавлено:
gpi
у меня при таком использовании, формирование файла всё-такого же размера, быстро съело все ресурсы и отчёта я так и не увидел, а увидел надпись системы, нехватка ресурсов...

DroN_S

Цитата:

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

Это при использовании frxUserDataSet?
У меня работает нормально.

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

Код:
//модуль frxDesgn.pas

procedure TfrxDesignerForm.SetScale(Value:Extended);
//beginfix
const
max=3;
//endfix
begin
ScrollBox.AutoScroll:= False;
if Value = 0 then
Value:= 1;
//beginfix
if Value > max then
Value:= max;
//endfix
FScale:= Value;
TopRuler.Scale:= Value;
LeftRuler.Scale:= Value;
FWorkspace.Scale:= Value;
ScaleCB.Text:= IntToStr(Round(FScale * 100))+'%';
UpdatePageDimensions;
ScrollBox.AutoScroll:= True;
end;

Не досмотрел

В коде из поста 84 нужно подправить

Цитата:

procedure TForm1.frxUserDataSet1CheckEOF(Sender: TObject;
var Eof: Boolean);
begin
eof:=i>sl.Count-1;
if eof then sl.Free;
end;

а то возникает утечка памяти.

My_Way
Поменяйте в frxDesignerForm свойство WindowState=wsMaximized, а то дизайнер в рантайме разворачивать приходится.
Это замечено в FR 3.17_12, в FR 3.18 не проверял, пока нет возможности закачать.

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

P.S.А багофиксов я в свежем релизе так почему-то и не увидел.