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

GloThin

Цитата:

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

сделали дополнительное меню, а уменьшение размера убрать зыбыли.
а может так и было задумано
Лечится вот так:

Код:
модуль frxPreview.pas

procedure TfrxPreviewWorkspace.MouseUp(Button:TMouseButton; Shift:TShiftState;
X, Y:Integer);
var
PageNo:Integer;
PageBounds:TRect;
Cur:TCursor;
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
FPreview.Zoom:= FPreview.Zoom+0.25;
//beginfix
{ if Button = mbRight then
FPreview.Zoom:= FPreview.Zoom-0.25; }
//endfix
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;

FR 2.55
Событие GroupFooter1.OnBeforePrint:

Код:
if not FinalPass then
begin
Mindata:=[min(MainDM.TableMarshrut."DATA",MasterData1)]; //в этой строке возникает ошибка преобразования Double в Date. Если закоментировать строку или исправить min на max, то работает нормально.
Maxdata:=[max(MainDM.TableMarshrut."DATA",MasterData1)];
end

gpi

Цитата:

Интересно, а что скажет по этому поводу My_Way?

Как объявится, так обязательно скажет.
Похоже дело сдвинулось с мертвой точки:

Цитата:

Текущая версия 3.18.2
-------------
- исправлен баг в превью (отображение страницы при смене масштаба)
- исправлен импорт frf

Nicka_Grey

Цитата:

Есть очень серъезный баг по 2-й линейке фастика.
Если есть интерес могу выслать сам DFM

Высылай на alexbel собака fast-report.com


Ни к чему придираться не будем, все засчитываем
Изменения в счете:

DroN_S
4:4 FR Ent остаток 7

SerVal777
11:1 FR Ent остаток 4

Nicka_Grey
3:3 FR Ent остаток 3


gpi,GloThin еще раз спасибо

SerVal777 давай в ПМ имя-емеил, на кого регистрировать.


Цитата:

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

Цитата:

Похоже дело сдвинулось с мертвой точки

Да, как вы успели заметить, наконец-то дело дошло до внесения в фаст ваших багофиксов,
Надеюсь в скором времени вся ваша работа отразится в ближайших версиях фаста

Обнаружена такая вот смешная штука:
1) в просмотре страницы, нажимаем выровниить по ширине
2) опускаем страницу вниз
3) нажимаем "страница целиком"
смотрим что получилось....

DroN_S

Цитата:

Обнаружена такая вот смешная штука:

Это что, в FR 3.18.2?

gpi
нет в 3.17

Добавлено:
Если свернуть дизанер, то окно сворачивается вместе с тем сворачивает и Delphi, это хорошо, но если закрыть Delphi из панели задач, то всё..... и delphi не закрывается и сам фаст в ошибку выпадает
хотя это может и не баг фаста...

DroN_S

Цитата:

хотя это может и не баг фаста...

Этот баг проявляется и в откомпилированных приложениях, запущенных не из IDE.

А с той смешной штукой мы с GloThin вроде-бы как разобрались на четвёртой странице, правда не знаю, насколько успешно.

Цитата:

Текущая версия 3.18.2
-------------
- исправлен баг в превью (отображение страницы при смене масштаба)

судя по changes.txt этот баг должны уже пофиксить

Есть такая мысль:
если при просмотре страницы выпадает ошибка, что какие-то требования не выполнены, я приведу мат функцию: Tranc(), у неё идёт параметр, так вот если этот параметр не указан или указан не верно, то выводить ошибку об этом и отчёт не формировать, в принципе так и сделано, но после ошибки пользователь видит не сформировавшийся отчёт, в моём случае, я вижу каркас своего отчёта. Я предлагаю, после ошибки закрывать не сформировавшийся отчёт и не давать пользователю с ним манипулировать...

Цитата:

А с той смешной штукой мы с GloThin вроде-бы как разобрались на четвёртой странице, правда не знаю, насколько успешно.

Цитата:

Текущая версия 3.18.2
-------------
- исправлен баг в превью (отображение страницы при смене масштаба)

Не переживай, успешно. Включен в 3.18.2 в исходном виде.

Вот такая я вот особенность в 3.18.2 и опять же с просмотром...
В общем у меня отчёт состоит и 20 страниц, если из режима zmPageWidth перейти в режим просмотра zmWholePage, то страница останется на той же странице, что и была, но если обратно вернуться к режиму просмотра zmPageWidth то она автоматом перескакивает на номер страницы 10. И причём если прокручивать на одну страницу ниже, и опять же поменять режимы просмотра так как описано выше, то при возврате в режим zmPageWidth номер страницы становится 10. Хотя если идти в обратном, например пролистатть страницу в обратном направлении, например на 8 и поменять режимы просмотра, то ничего не измениться, на каком месте она была, на таком и останется....
У меня есть такая идея, что если отчёт просмотрен больше чем на половину, то при установке в просмотр zmPageWidth ставить нумерацию страниц по середине... только для чего не понятно.... где-то примерно так

Код:
if PageNo > PageCount /2 then
PageNo := PageCount/2;

DroN_S

Цитата:

этот код, просто предположение....

А вот и реальный:

Код:
function TfrxPageList.GetPageBounds
..
if ColumnWidth * Scale > ClientWidth then
ColumnOffs := 10 else
ColumnOffs := Round((ClientWidth - ColumnWidth * Scale) / 2);//очень похоже
Result.Left := ColumnOffs + Round(ItemOffs * Scale);
Result.Top := Round(Item.Offset * Scale);
Result.Right := Result.Left + Round(Item.Width * Scale);
Result.Bottom := Result.Top + Round(Item.Height * Scale);
..

Дополнение:

Для отчета из трех страниц:
1. Переходим на последнюю страницу, выбираем режим "Две страницы"- видим третью страницу по центру, а две предыдущие - нормально.
2. После этого выбираем режим "По ширине" и попадаем на первую страницу.
3. Если все вышеперечисленное сделать в режиме полного экрана, все также, но при переходе в нормальный режим - показывается 3 страница, хотя до этого отображалась 1-я.
4. Переходим на последнюю страницу, выбираем "Страница целиком", потом "100%" - видим предыдущую страницу.
5. Переходим на 3-ю страницу, выбираем "Страница целиком", нажимаем кнопку "редактировать страницу", делаем любые изменения, закрываем дизайнер, сохранив изменения и видим:
- первую страницу вместо третьей;
- размер третьей отличается от двух предыдущих.


Добавлено:

Цитата:

- размер третьей отличается от двух предыдущих.

Такие же метаморфозы происходят с любой страницей отчета после редактирования и сохранения данных.

Цитата:

А вот и реальный:

Ну, это меня куда-то не туда понесло...

DroN_S,
SerVal777

А вот если так:

Код:
procedure TfrxPreview.UpdateZoom;
var
PageSize: TPoint;
OldPageNo: Integer; //фикс
begin
if FLocked or (PageCount = 0) then Exit;
PageSize := PreviewPages.PageSize[PageNo - 1];
OldPageNo := PageNo;
case FZoomMode of
zmWholePage:
begin
FZoom := (FWorkspace.ClientHeight - 20) / PageSize.Y;
//SetPosition(PageNo,0);
end;
zmPageWidth:
FZoom := (FWorkspace.Width - 52) / PageSize.X;
zmManyPages:
begin
FZoom := (FWorkspace.ClientWidth - 32) / (PageSize.X * 2);
//SetPosition(PageNo,0);
end;
end;

FWorkspace.UpdateScrollBars;
//FWorkspace.VertPosition:=FWorkspace.VertPosition;
FWorkspace.Repaint;
PageNo := OldPageNo; // и всё !!!
if Owner is TfrxPreviewForm then
TfrxPreviewForm(Owner).UpdateZoom;
end;

gpi

Цитата:

Сколько времени потребовалось для такого простого решения

Главное проблема устранена.

Цитата:

А у меня нормально. Может настройки принтера вносят коррективы?

У меня такая же ерунда. Но это происходит при запуске дизайнера из режима просмотра.
Попробую твой вариант, может после него что-нибудь изменится. А принтер здесь не причем, там же задается формат бумаги и поля для страницы, а они остаются прежними. Самое интересное, что после закрытия просмотра и открыв его снова - все нормально. Что бы это могло значить.

А вот так ещё лучше:

Код:
procedure TfrxPreview.UpdateZoom;
var
PageSize: TPoint;
OldPageNo: Integer; //fix
OldZoom: Extended; //fix
begin
if FLocked or (PageCount = 0) then Exit;
PageSize := PreviewPages.PageSize[PageNo - 1];
OldPageNo := PageNo; //fix
OldZoom :=FZoom; //fix
case FZoomMode of
zmWholePage:
begin
FZoom := (FWorkspace.ClientHeight - 20) / PageSize.Y;
//SetPosition(PageNo,0);
end;
zmPageWidth:
FZoom := (FWorkspace.Width - 52) / PageSize.X;
zmManyPages:
begin
FZoom := (FWorkspace.ClientWidth - 32) / (PageSize.X * 2);
//SetPosition(PageNo,0);
end;
end;

FWorkspace.UpdateScrollBars;
//FWorkspace.VertPosition:=FWorkspace.VertPosition;
FWorkspace.Repaint;
PageNo := OldPageNo; //fix
FWorkspace.HorzPosition := Round(FWorkspace.HorzPosition*FZoom/OldZoom); //fix
FWorkspace.VertPosition := Round(FWorkspace.VertPosition*FZoom/OldZoom); //fix
if Owner is TfrxPreviewForm then
TfrxPreviewForm(Owner).UpdateZoom;
end;

gpi
если при твоём втором варианте, то все действия меняются местами, т.е. при режиме просмотра zmPageWidth страница остаётся на своём месте а при zmWholePageона убегает на середин...
у меня вот при таком вот варианте всё работает нормально...

Код:
procedure TfrxPreview.UpdateZoom;
var
PageSize: TPoint;
OldPageNo: Integer; //fix
begin
if FLocked or (PageCount = 0) then Exit;
PageSize := PreviewPages.PageSize[PageNo - 1];
OldPageNo := PageNo; //fix
case FZoomMode of
zmWholePage:
begin
FZoom := (FWorkspace.ClientHeight - 20) / PageSize.Y;
SetPosition(PageNo,0);
end;
zmPageWidth:
//beginfix
begin
FZoom := (FWorkspace.Width - 52) / PageSize.X;
SetPosition(OldPageNo,0);
end;
//endfix
zmManyPages:
begin
FZoom := (FWorkspace.ClientWidth - 32) / (PageSize.X * 2);
SetPosition(PageNo,0);
end;
end;

FWorkspace.UpdateScrollBars;
FWorkspace.Repaint;
PageNo := OldPageNo;//fix
if Owner is TfrxPreviewForm then
TfrxPreviewForm(Owner).UpdateZoom;
end;

DroN_S
Ты прав. Я тут немного развил свою идею (думаю, до FR 3.50 доведу до ума )
Удалось добиться сохранения позиции страницы при масштабировании одной страницы.
На двух работает пока коряво. Есть над чем подумать.

Код:
..
{ search given string in a metafile }

var
TextToFind: String;
TextFound: Boolean;
TextBounds: TRect;
RecordNo: Integer;
LastFoundRecord: Integer;
CaseSensitive: Boolean;
//fix begin
OldZoom: Extended;
OldColumnCount: Integer;
//fix end
..
constructor TfrxPreview.Create(AOwner: TComponent);
..
FZoom := 1;
//fix begin
OldZoom := 1;
OldColumnCount := 1;
//fix end
FZoomMode := zmDefault;
..
procedure TfrxPreview.UpdateZoom;
var
PageSize: TPoint;
//fix begin
OldPageNo: Integer;
OldVertPosition, OldHorzPosition: Extended;
//fix end
begin
if FLocked or (PageCount = 0) then Exit;
PageSize := PreviewPages.PageSize[PageNo - 1];
//fix begin
OldPageNo := PageNo;
OldVertPosition := FWorkspace.VertPosition;
OldHorzPosition := FWorkspace.HorzPosition;
case FZoomMode of
zmWholePage:
begin
FZoom := (FWorkspace.ClientHeight - 20) / PageSize.Y;
//SetPosition(PageNo,0);
end;
zmPageWidth:
FZoom := (FWorkspace.Width - 52) / PageSize.X;
zmManyPages:
begin
FZoom := (FWorkspace.ClientWidth - 32) / (PageSize.X * 2);
//SetPosition(PageNo,0);
end;
end;

FWorkspace.UpdateScrollBars;
//FWorkspace.VertPosition:=FWorkspace.VertPosition;
FWorkspace.Repaint;
//fix begin
PageNo := OldPageNo;
FWorkspace.HorzPosition := Round(OldHorzPosition*FZoom/OldZoom);
FWorkspace.VertPosition := Round(OldVertPosition*FZoom/OldZoom*OldColumnCount/FWorkspace.FPageList.ColumnCount);
OldZoom :=FZoom;
OldColumnCount := FWorkspace.FPageList.ColumnCount;
//fix end
if Owner is TfrxPreviewForm then
TfrxPreviewForm(Owner).UpdateZoom;
end;

Опечатки/ошибки в сопровождающих документах FastReport Studio 3.18


license_rus.rtf
---------------
Продукция это Copyright © 1998-2004 Fast Reports Inc.

1. 2004 --> 2005
2. не "продукция", а "Программное Обеспечение"
3. предложение написано не по-русски.


readme.rtf
----------
1. нет пункта "3. Related documents"
и соответственно "4. Developer's contact information" --> "3. De..."
2. "3. DEVELOPERS' ..." --> "3. DEVELOPER'S ..."



readme_rus.rtf
--------------
1. Редактор скриптов с подцвечиванием синтаксиса;
(подЦвечиванием --> подCвечиванием)
2. первый абзац на английском.
И он не такой как в английском файле(readme.rtf)
3. если сравнивать, то почти в каждом абзаце есть расхождения между русским и английским вариантами. Надо определиться, что из чего переводим и сделать идентичный перевод.
4. Пакет программ Studio содержит ... исходный код демонстрационных программ и примеров для следующих программных сред:
(здесь я думаю слова "демонстрационных программ и" или "и примеров" лишние)
5. неверный перевод с английского
Build-in dialog designer allows you to create dialogs with
standard set of wincontrols:
label, edit, memo, button, checkbox, radiobutton, listbox,
combobox, dateedit, etc;
Встроенный дизайнер диалогов, позволяющий создавать диалоги с
набором стандартных объектов Windows: маркирование, однострочное
редактирование, многострочное редактирование, кнопки, чекбоксы,
селективные кнопки, пункты списка, поле редактирования с
выпадающим списком, поле ввода даты и т.д.

объектов --> контролов/элементов управления

маркирование --> метки(статический текст)

"однострочное редактирование, многострочное редактирование" --> однострочные и многострочные поля ввода

селективные кнопки --> радиокнопки

пункты списка --> списки


6. по-моему тоже неверный перевод слов "rulers" и "guides"
(думаю должно быть "линейки" и "выносные линии, к которым могут прилипать объекты")

In-place editing, zooming, rulers, guides and undo/redo;
Редактирование на месте, масштабирование, линии, руководства и отмену/повторное выполнение;



changes_rus.txt
---------------
1. добавлены COM объекты TfrxADODatabse, TfrxADOTable and TfrxADOQuery ("and" --> "и")

2. много расхождений между русским и английским вариантом.
Н-р,
+ added C++ test case demo for multithreading solution
+ добавлена тестовая программа для теста многопоточности
(пропало "C++")

3. "добавлена С++/C# демо" лучше так "добавлен пример на С++/C#"
4. Добален пример для NET DataTable (добаВлен и NET --> .NET)
5. доб[в]влена C# демо использования ActiveX Preview
6. "коммандной строки" (2 раза) (командной, одна "м")
7. "standalone designer", то "независимого дизайнера", то "автономный Дизайнер"
8. рус - И[c]правлен баг с экспортом из Дизайнера (FastReport.exe)
анг - Fixed bug in Command-line export featutre



changes.txt
-----------
* rewrited Visual ‘++ demo --- С++ ?

Вот еще направление для работы:
В режиме "Просмотр" нажимаем кнопку "редактировать страницу", открывается дизайнер и дальше, что мы видим:
1. У любого объекта с заданным свойством Align,отличным от BaNone, оно автоматически изменяется на BaNone.
2. После изменения ну например размеров невозможно отменить выполненые действия - после нажатия "Отменить" ничего не отменяется.

Цитата:

На двух работает пока коряво. Есть над чем подумать.

Сегодня на свежую голову посмотрел: да и не так уж и коряво.
Ну смещает позицию немного вверх при переходе с отображения одной страницы на две, но если опять перейти на отображение одной - возвращается на исходную позицию.

Такой вот баг замечен в 3.18.2
1) меняем цвет рабочего поля (не выбирайте очень тёмный, дочитав до конца, поймёте почему )
2) применяем
3) затем возвращаем цвет белого фона
4) нажимаем просмотр? на панели управления нажимаем на редактирование страницы
5) открывается дизайнер и в нём мы видим цвет, который мы вибирали присмене фона рабочего поля...
6) закрывает дизайнер, просмотр, идём в настройки, нажимаем восстановить настройки... по идеии должны вернуться первоначальные, но открываем редактироваение страницы в просмотре, опять видим тот же самый цвет который мы выбирали при смене цвета рабочего поля....

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

Доброго времени суток!
Нашёл вот тут пару не критичных багов (или фич) :)
1)Делаем отчётик из одной странички, делаем его предпросмотр, далее жмём кнопку "Two pages", маштаб меняется, жмём еще раз - опять меняется 8), таблички съежают.
2)При переходе от обычного просмотра к полноэкранному маштаб не изменяется (как мне кажется, должен - в опере и Adobe Acrobat меняется).

Использовал C++ Builder 6 Update 4 + FastReport Basic 3.18 (есть у меня на него лицензия уже).

Добавлено:
И ещё - в предпросмотре выбираем настройки страницы, пишем любой текст в EditBox`ы Height или Width, затем выбираем размер бумаги из ComboBox`а - получаем Exeption - "текст is not a valid floating point value".

Добавлено:
З.Ы. Предложение - сделать проверку на существование полей в frxDBDataSet->FieldAliases. Ибо добавляем любую строку вида field = rusfield (при этом это поле отсутствует в frxDBDataSet) и при запуске дизайнера видим это поле доступным. Используем его в отчёте, при построении получаем ошибку - "rusfield not exist"

EmeJIbka

Цитата:

1)Делаем отчётик из одной странички, делаем его предпросмотр, далее жмём кнопку "Two pages", маштаб меняется, жмём еще раз - опять меняется 8), таблички съежают.

Да, есть такое, убирается вот таким вот образом:
замени эту строку

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

DroN_S, SerVal777 финишируют

gpi, GloThin спасибо

EmeJIbka получает FR Standard

Garrett также зачтем 3 бага, за исправления в документации,
но больше не надо постить сюда опечатки документации, засчитывать не будем

Есть ещё одна проблема: при замене в редакторе кода одного фрагмента скрипта на другой в случае, если скрипт достаточно большой и выбран режим Replace All,заметно, что после каждой замены происходит позицирование скрипта на первую строку, а затем на строку, где произошла замена. У меня в скрипте из 450 строк замена строки "Memo" на "MMMM" занимала более 10 с.
Для устранения пришлось внести изменения в frxSynMemo.pas и frxDesgn:

Код:
private
FActiveLine: Integer;
FAllowLinesChange: Boolean;
FAllowRefresh: Boolean; //fix
..
public
constructor Create(AOwner: TComponent); override;
..
property AllowRefresh: Boolean read FAllowRefresh write FAllowRefresh; //fix
..
property SelText: String read GetSelText write SetSelText;
property SelStart: TPoint read FSelStart write FSelStart; //fix
property SelEnd: TPoint read FSelEnd write FSelEnd; //fix
..

constructor TfrxSyntaxMemo.Create(AOwner: TComponent);
..
FActiveLine := -1;
FAllowRefresh := True; //fix
..
procedure TfrxSyntaxMemo.SetSelText(const Value: String);
..
CorrectBookmark(FPos.Y, p3.y - FPos.Y);

//fix begin
if FAllowRefresh then
begin
SetPos(p3.X, p3.Y);
FSelStart.X := 0;
DoChange;
UpdateSyntax;
end;
//fix end
end;
..

function TfrxSyntaxMemo.Find(const SearchText: String;
CaseSensitive: Boolean; var SearchFrom: Integer): Boolean;
..

if Result then
begin
Inc(SearchFrom, i);
FSelStart := GetPosPlainText(SearchFrom - 1);
FSelEnd := Point(FSelStart.X + Length(SearchText), FSelStart.Y);
Inc(SearchFrom, Length(SearchText));
//fix begin
if FAllowRefresh then
begin
SetPos(FSelStart.X, FSelStart.Y);
Repaint;
end;
//fix end
end;
end;
-----------------------------------------------------------------
procedure TfrxDesignerForm.FindText;
..
else
begin
if ReplaceAll then CodeWindow.AllowRefresh := False; //fix
Found := CodeWindow.Find(FSearchText, FSearchCase, FSearchIndex);
if FSearchReplace then
if Found and AskReplace then
begin
CodeWindow.SelText := FSearchReplaceText;
if not ReplaceAll then Modified := True; //fix
end;
end;
..
//fix begin
if ReplaceAll then
begin
CodeWindow.AllowRefresh := True;
CodeWindow.SetPos(CodeWindow.SelEnd.X,CodeWindow.SelEnd.Y);
Modified := True;
end;
//fix end
..
end;

DroN_S

Цитата:

А при использовании моего багофикса для TfrxPreview.UpdateZoom баг 1 от EmeJIbka не проявляется.

Проявляется. Виноват, не досмотрел, что изменения касаются расчёта масштаба изображения "страница целиком", а я пробовал переходить на две страницы со 100%.

gpi
этот баг проявляется тольков одном варианте, когда переходишь со страницы целиком на две станицы, в остальных вариантах всё нормально...

Редактор скрипта в FR Studio demo и в FR Standard reg под BCB (кроме п.5)

1.
- пишем одну строку, н-р "aaa"
- выделяем с конца в начало, именно с конца и в начало (н-р, удерживая Shift нажимаем клавишу влево 3 раза)
- пытаемся сдвинуть вправо с помощью Ctrl-I - не работает


2.
- пишем одну строку, н-р "aaa"
- выделяем с начала в конец (н-р, Home, затем удерживая Shift нажимаем клавишу вправо 3 раза)
- пытаемся сдвинуть вправо с помощью Ctrl-I - работает, но выделение остается на месте, а текст смещается.

3.
тоже самое при выделении части одной строки Ctrl-U - работает, но выделение остается на месте, а текст смещается.


4.
у меня в редакторе скрипта команда "выделить всё (Ctrl-A)" не работает, а в отчете - работает


5.
При запуске скрипта сначала появляется окно "unregistered version of FastScript".
Так надо в демоверсии FR Studio?

Garrett

Цитата:

При запуске скрипта сначала появляется окно "unregistered version of FastScript".
Так надо в демоверсии FR Studio?

Конечно. На то она и демоверсия.

Цитата:

Демонстрационные ограничения:
- только 5 страниц отчета доступно
- вывод окна с сообщением при наличии главного скрипта в отчете