Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Лицензия FastReport за багрепорты и багофиксы

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Открыть новую тему     Написать ответ в эту тему

My_Way



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Объявлена раздача лицензий за найденные баги и багофиксы по продукту от разработчиков
 
Постите здесь свои багрепорты и багофиксы по ФастРепорту,и получайте лицензии на ФастРепорт.
 
Расценки на версии FastReport 4:
 
FR Basic - 1 багрепорт
FR Standard - 3 багрепорта или  1 багофикс
FR Professional - 6 багрепортов или  2 багофикса
FR Enterprise - 9 багрепортов или 3 багофикса
FR Studio Single - 9 багрепортов или 3 багофикса
FR Server - 9 багрепортов или 3 багофикса
 
 
Полезная информация:

 
Найденные баги и багофиксы, использованные для получения лицензии младшего уровня учитываются при получении лицензии следующего уровня. Например,набрав один багрепорт, получаешь FR Basic, а набрав еще 2  - получаешь лицензию на FR Standard, и т.д.  
 
Один багофикс= 3 багрепорта.
Например,если вы нашли баг, и его пофиксили, то у вас в сумме 1 багрепорт+1 багофикс = 4 багрепорта.
 
За лицензиями при накоплении необходимого количества бонусов обращаться в ПМ к My_Way (В письме указывать Имя и емайл, на какой выслать регистрационную инфу)
 
Информация для новичков
Для вновь прибывших, внимательно читать вот ЭТО, чтобы не повторять уже исправленные баги

А еще и это ЭТУ ИНФУ  
 
P.S. Некоторые баги согласно My_Way являются фичами (Правда не знаю в документации это описано, так как баг считается фичей если он задокументирован, иначе это баг).
 
Результаты по подсчетам My Way:

Ник участника Багрепорты Багофиксы Итого: Лицензия Остатки      
gpi Четырнадцать Десять Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
GloThin Двадцать четыре Пять Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
DroN_S Одинадцать Семь Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
SerVal777 Двадцать семь Три Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
Nicka_Grey Двадцать четыре Четыре Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
LadyOfWood Двадцать девять Три Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
QuickeneR Шестнадцать Четыре Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
Garrett Двадцать семь Ноль Двадцать семь FR Ent+FR Studio+FR Server Больше не на что    
RUSer Двадцать восемь Ноль Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
mLex Двадцать пять Один Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
mrrex Тридцать один Ноль Двадцать семь+ FR Ent+FR Studio+FR Server Больше не на что    
Jedinichka Двадцать пять Ноль Двадцать пять FR Ent+FR Studio Семь    
aralekin Девятнадцать Два Двадцать пять FR Ent+FR Studio Семь    
vadson6666 Двадцать пять Ноль Двадцать пять FR Ent+FR Studio Семь    
DmLam Двадцать Ноль Двадцать FR Ent+FR Studio Два    
jonikDk Десять Три Девятнадцать FR Ent+FR Studio Один    
Alex_Yagolnik Девятнадцать Ноль Девятнадцать FR Ent+FR Studio Один    
karioth Восемьнадцать Ноль Восемьнадцать FR Ent+FR Studio Ноль    
denger2k Пятнадцать Один Восемьнадцать FR Ent+FR Studio Ноль    
martyanov Одинадцать Два Семьнадцать FR Ent Восемь    
EmeJIbka Десять Два Шестнадцать FR Ent Семь    
motrik Шестнадцать Ноль Шестнадцать FR Ent Семь    
exteris Шестнадцать Ноль Шестнадцать FR Ent Семь    
JustAMaaan Шестнадцать Ноль Шестнадцать FR Ent Семь    
Delphis11 Шестнадцать Ноль Шестнадцать FR Ent Семь    
mity Пятнадцать Ноль Пятнадцать FR Ent Шесть    
benchik Пятнадцать Ноль Пятнадцать FR Ent Шесть    
Darken Пятнадцать Ноль Пятнадцать FR Ent Шесть    
tomegadeth Пятнадцать Ноль Пятнадцать FR Ent Шесть    
MageSlayerDen Пятнадцать Ноль Пятнадцать FR Ent Шесть    
stalker780 Восемь Один Одинадцать FR Ent Три    
Vic26 Восемь Один Одинадцать FR Ent Два    
Wise Десять Ноль Десять FR Ent Один    
ultima Девять Ноль Девять FR Ent Ноль    
jzk Восемь Ноль Восемь FR Pro Восемь    
wbsg Восемь Ноль Восемь FR Pro Восемь    
royt Восемь Ноль Восемь FR Pro Восемь    
vshersh Восемь Ноль Восемь FR Pro Восемь    
vidic777 Восемь Ноль Восемь FR Pro Восемь    
Erazer Восемь Ноль Восемь FR Pro Восемь            


 
 
Примечание от My Way:
1. Передавать только остатки другим участникам нельзя...
2. Если хотите поделиться своими изысканиями с кем-нибудь из участников, до опубликования в ветке можно передать свои результаты через ПМ...
3. Остатки после лицензии на FR Studio Single, можно использовать, для получения лицензии на FR Server (цена такая же. как на FR Enterprise и FR Studio Single = 9 багрепортов )
4. Багофиксы к багофиксам (багофиксаторы, по термину GloThin), пока засчитываются, как отдельные, но возможно, в будущем будут делиться между решившими указанную проблему...  
 
Также мы премируем за написание статей на тему FastReport, как FastReport 3, так и FastReport Studio, стати начиная от технических, и заканчивая очень прикладными, например, первые
шаги в матричных отчетах, или анализатор логов в FastReport Studio, все
авторские права сохраняются, плюс мы содействуем в размещении этих статей
в изданиях. Есть что публиковать - пишите в ПМ

Всего записей: 80 | Зарегистр. 16-09-2004 | Отправлено: 14:16 23-08-2005 | Исправлено: My_Way, 16:15 30-03-2007
DroN_S

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

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

этот код, просто предположение....
 
Такое же явление проявлялось и с количеством страниц 3, пролистываешь отчёт в конец, выбираешь zmPageWidth вместо третей страницы вижу вторую....

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 11:13 24-09-2005 | Исправлено: DroN_S, 11:19 24-09-2005
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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);
..
 

Жаль, что сейчас времени нет, чтобы разобраться

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 14:01 24-09-2005
SerVal777

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

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

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

Всего записей: 8 | Зарегистр. 16-09-2005 | Отправлено: 14:14 24-09-2005
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

Ну, это меня куда-то не туда понесло...
 
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;
 

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

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

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

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 17:04 24-09-2005
GloThin



Тобольский шашлычник
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
gpi

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

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

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

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

----------
Все принципиальное-просто,а все простое-принципиально!
На каждого мудреца достаточно простоты!
Не изменишь существующее,не изменив себя!!

Всего записей: 709 | Зарегистр. 28-04-2004 | Отправлено: 17:37 24-09-2005 | Исправлено: GloThin, 17:38 24-09-2005
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А вот так ещё лучше:

Код:
 
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;
 

 
Добавлено:
А чтобы убрать кромку предыдущей страницы при перемещении с помощью навигатора:
//frxPreview.pas
procedure TfrxPageList.AddPage(AWidth, AHeight: Integer);
..
Item.Offset := LastItem.Offset + MaxHeight + 11; //было + 10
..
Item.Offset := 11;
..

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 17:39 24-09-2005
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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;
 

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 21:29 24-09-2005
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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;
 
 


Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 00:23 25-09-2005
Garrett

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Опечатки/ошибки в сопровождающих документах 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  --- С++ ?
 






Скажи мне каким образом опечатки в описании сказываются на работе ПО? Такие вещь впредь в личку.

Всего записей: 2740 | Зарегистр. 16-10-2003 | Отправлено: 02:09 25-09-2005 | Исправлено: ShIvADeSt, 01:55 26-09-2005
SerVal777

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

Всего записей: 8 | Зарегистр. 16-09-2005 | Отправлено: 10:03 25-09-2005
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

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

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 10:06 25-09-2005
DroN_S

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

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 15:39 26-09-2005
EmeJIbka



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Доброго времени суток!
Нашёл вот тут пару не критичных багов (или фич) :)
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"

Всего записей: 167 | Зарегистр. 14-03-2005 | Отправлено: 17:14 26-09-2005
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EmeJIbka

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

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

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

вот этой

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

и всё будет нормально...
полный код
 

Код:
 
модуль frxPreview.pas
 
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 - 15) / PageSize.Y;//fix
        SetPosition(PageNo,0);
      end;
    zmPageWidth:
      begin
        FZoom := (FWorkspace.Width - 52) / PageSize.X;
        SetPosition(OldPageNo,0);
      end;
    zmManyPages:
      begin
        FZoom := (FWorkspace.ClientWidth - 32) / (PageSize.X * 2);
        SetPosition(PageNo,0);
      end;
  end;
 
  FWorkspace.UpdateScrollBars;
  FWorkspace.Repaint;
  PageNo := OldPageNo;
if Owner is TfrxPreviewForm then
    TfrxPreviewForm(Owner).UpdateZoom;
end;
 

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 18:39 26-09-2005
My_Way



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DroN_S, SerVal777 финишируют
 
gpi, GloThin спасибо
 
EmeJIbka получает FR Standard
 
Garrett также зачтем 3 бага, за исправления в документации,
но больше не надо постить сюда опечатки документации, засчитывать не будем
 
 
 
 

Всего записей: 80 | Зарегистр. 16-09-2004 | Отправлено: 20:34 26-09-2005
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть ещё одна проблема: при замене в редакторе кода одного фрагмента скрипта на другой в случае, если скрипт достаточно большой и выбран режим 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 не проявляется.

Цитата:
Такой вот баг замечен в 3.18.2

 В 3.17.12 он не проявляется. Вот что значит прогресс А я отстал от жизни. Нужно и себе скачать 3.18, а то новых багов не увижу

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 00:32 27-09-2005
gpi

Alone Wanderer
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DroN_S

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

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

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 10:42 27-09-2005
DroN_S

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
gpi
этот баг проявляется тольков одном варианте, когда переходишь со страницы целиком на две станицы, в остальных вариантах всё нормально...

Всего записей: 1143 | Зарегистр. 09-04-2005 | Отправлено: 11:45 27-09-2005
Garrett

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Редактор скрипта в 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?  

Всего записей: 2740 | Зарегистр. 16-10-2003 | Отправлено: 21:29 27-09-2005
GloThin



Тобольский шашлычник
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Garrett

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

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

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


----------
Все принципиальное-просто,а все простое-принципиально!
На каждого мудреца достаточно простоты!
Не изменишь существующее,не изменив себя!!

Всего записей: 709 | Зарегистр. 28-04-2004 | Отправлено: 22:48 27-09-2005 | Исправлено: GloThin, 23:06 27-09-2005
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Лицензия FastReport за багрепорты и багофиксы


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru