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

Ну вот первый баг: (наблюдается в FR 3.15)

Открываем проект ..\Demos\PrintFile\
Запускаем.
Жмём Print! - формируется отчёт с текстом модуля.
Выбираем свойства страницы - Альбомная ориентация - Применить к текущей (первой) странице. Смотрим, что получилось

от кого получайте?

Sleepwalker

от разрабочиков, конечно..

история вопроса: http://forum.ru-board.com/topic.cgi?forum=35&topic=26514&start=620
и на следующей странице..

забавно вышло..

Цитата:

Ну вот первый баг: (наблюдается в FR 3.15)

Открываем проект ..\Demos\PrintFile\
Запускаем.
Жмём Print! - формируется отчёт с текстом модуля.
Выбираем свойства страницы - Альбомная ориентация - Применить к текущей (первой) странице. Смотрим, что получилось

баг засчитан, будем исправлять...
лицензия на fr 3 basic уже у тебя есть,
в ПМ сбрось имя и емайл на какой выслать регистрационную инфу,
до лицензии на FR Про еще 5 багов осталось;)

My_Way

Цитата:

до лицензии на FR Про еще 5 багов осталось;)

И еще парочка багофиксов...

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


Цитата:

И еще парочка багофиксов...

на счет 'и', слэш в данном случае означает 'или', а не 'и', т.е. 3 багрепорта=1 багофикс


Добавлено:

Цитата:

3 багрепорта=1 багофикс

уточню, если вы нашли баг, и его пофиксили,
то у вас в сумме 1 багрепорт+1 багофикс = 4 багрепорта

My_Way

Цитата:

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

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

Цитата:

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

да будет,
например получили FR Basic за багрепорт,
еще два багрепорта, и у вас уже Basic+Standard,

или например вы нашли баг, и исправили его,
то получаете Basic+Standard и еще один багрепорт в запасе, т.е. до Pro всего 2 багрепорта остается

Цитата:

да будет,
например получили FR Basic за багрепорт,
еще два багрепорта, и у вас уже Basic+Standard

Это не может не радовать! Будем копить!

GloThin

Цитата:

Это не может не радовать!

Не флуди.
My_Way
Подробно опиши все условия для получения лицензии, а не отвечай на каждый вопрос. То есть перечисли все то, что ты уже на отвечал в первом топике.

My_Way
Всю полезную информацию внес в шапку темы. Если, что важное пропустил, то дополни пожалуйста.

Добавлено:
Вот что я обнаружил в дизайнере - меню "Вид" - "Панели инструментов" - включаешь панель "Мастера" - и в результате появляется только начало панели с полоской,вернее квадрат размером 10х10 точек и не содержащий никаких мастеров. Проверил на версии 3.15, и в версии 3.16 - ничего не изменилось.

Кстати, о панелях инструментов.
В дизайнере FR 3.15 панели РАМКА и ТЕКСТ нельзя расположить в правой части вертикально, хотя в нижней части они располагаются.

А кто возьмётся собирать баги?
My_Way
Можно ли будет "передать" мой баг коллекционеру?

GloThin

Цитата:

Всю полезную информацию внес в шапку темы. Если, что важное пропустил, то дополни пожалуйста

Спасибо



Цитата:

Вот что я обнаружил в дизайнере - меню "Вид" - "Панели инструментов" - включаешь панель "Мастера" - и в результате появляется только начало панели с полоской,вернее квадрат размером 10х10 точек и не содержащий никаких мастеров. Проверил на версии 3.15, и в версии 3.16 - ничего не изменилось.

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


Цитата:

Кстати, о панелях инструментов.
В дизайнере FR 3.15 панели РАМКА и ТЕКСТ нельзя расположить в правой части вертикально, хотя в нижней части они располагаются.

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


Цитата:

А кто возьмётся собирать баги?

я буду собирать, пока счет такой:


gpi - 2 багрепорта
GloThin - 1 багрепорт

FR Basic можете уже получать через ПМ

Вот нашёл...

Запускаю проект ..\Demos\Main\FRDemo.dpr
Баг 1. Выбираю в дереве URLs, anchors из New features
Просмотр
Режим отображения - две страницы
На левых страницах ссылки не работают, на правых - работают
Баг 2. Выставляю масштаб 100%
Прокручиваю в конец отчёта
Режим отображения - две страницы (одна страница)
На экране - пусто, щелчок на полосе прокрутки - ОК.
Баг 2 наблюдается во всех отчётах.
Баг 3. (а может и не баг)
В отчётах с диалоговыми формами уже при выводе формы показывается окно предварительного просмотра.

Ну и теперь пожелания:

1. В тулбаре предварительного просмотра отображаются кнопки экспорта, дерева отчёта, редактирования страницы даже если в проекте нет ни одного компонента экспорта, ни один бэнд не имеет заполненного свойства OutLine, нет дизайнера соответственно.
Может эти кнопки нужно скрывать при таких условиях?
2. Сделайте в CrossTab заголовки строк и столбцов. В FR 2.53 в свойстве CrossTab Dictionary это было так: CUSTOMER=Заказчик. А может это есть и в FR 3, но где?

1 Выбираем объект у которого есть style (например Memo) при изменении цвета, шрифта, параметров фрейма Style сбрасывается но update toolbar'а не происходит.
//fix
43: if TheFont <> nil then
c.Font := TheFont;
end;

if AAction in [0..5, 20..29, 32] then
if c is TfrxCustomMemoView then
begin
TfrxCustomMemoView(c).Style := '';
StyleCB.ItemIndex := 0; //fix
end;
wasModified := True;

2. Выбираем отчет с стилями у удаляем один из них, у Memo у которых есть данный стиль он так и остается, а не заменяется на нулевой.

procedure TfrxDesignerForm.ReportStylesMIClick(Sender: TObject);
begin
if CheckOp(drDontChangeReportOptions) then
with TfrxStyleEditorForm.Create(Self) do
begin
if ShowModal = mrOk then
begin
Modified := True;
//здесь надо пробежать все объекты и узнать есть ли у кого левый стиль
//PS это не fix, это напрвление мыслей
UpdateStyles;
Report.Styles.Apply;
end;
Free;
end;
end;



Добавлено:
В догонку
Если изменять параметры шрифта через диалог после изменений не происходит update toolbar'а.
Я вот и fix
//original
if TComponent(Sender).Tag in [24, 25, 34..42] then
UpdateControls;
//fixed
if TComponent(Sender).Tag in [24, 25, 34..42, 43] then
UpdateControls;

Добавлено:
Да уж не знаю нето баг, не то фича

{ TfrxDialogControlEditor }

function TfrxDialogControlEditor.Edit: Boolean;
var
i: Integer;
c: TfrxDialogControl;
s: String;
begin
c := TfrxDialogControl(Component);
if c.OnClick = '' then
begin
s := c.Name + 'OnClick';
c.OnClick := s;
i := frxLocateEventHandler(Designer.Code, Designer.Report.ScriptLanguage, s);
if i = -1 then
i := frxAddEvent(Designer.Code, Designer.Report.ScriptLanguage,
TypeInfo(TfrxNotifyEvent), s) else
Inc(i, 3);

TfrxDesignerForm(Designer).SwitchToCodeWindow;
TfrxDesignerForm(Designer).CodeWindow.UpdateView;
TfrxDesignerForm(Designer).CodeWindow.SetPos(3, i);
Result := True;
end
else
begin
i := frxLocateEventHandler(Designer.Code, Designer.Report.ScriptLanguage,
c.OnClick);

TfrxDesignerForm(Designer).SwitchToCodeWindow;
TfrxDesignerForm(Designer).CodeWindow.SetPos(1, i + 3);
Result := False;
end;
end;

Вот только typecast дизайнера как TfrxDesignerForm очень затрудняет создание собственного дизайнера ведь есть класс TfrxCustomDesigner в чем сложность в нем прописать абстрактный метод SwitchToCodeWindow, и т.п., а потом всвоем дизайнере перекрыть не знаю, а то куда не сунь везде хаки, ну можно сесть и продмать.

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


procedure TfrxDesignerForm.OnNotifyPosition(ARect: TfrxRect);
var
dx, dy: Extended;
begin
with ARect do
begin
if FUnits = duCM then
begin
dx := 1 / 96 * 2.54;
dy := dx;
end
else if FUnits = duChars then
begin
dx := 1 / fr1CharX;
dy := 1 / fr1CharY;
end
else if FUnits = duPixels then
begin
dx := 1;
dy := dx;
end
else
begin
dx := 1 / 96;
dy := dx;
end;

Left := Left * dx;
Top := Top * dy;
if FWorkspace.Mode <> dmScale then
begin
Right := Right * dx;
Bottom := Bottom * dy;
end;

if FUnits = duChars then
begin
Left := Trunc(Left);
Top := Trunc(Top);
Right := Trunc(Right);
Bottom := Trunc(Bottom);
end;


FCoord1 := '';
FCoord2 := '';
FCoord3 := '';
if (not FWorkspace.IsMouseDown) and (FWorkspace.Mode <> dmInsertObject) then
if (FSelectedObjects.Count > 0) and (FSelectedObjects[0] = FPage) then
FCoord1 := Format('%f; %f', [Left, Top])
else
begin
FCoord1 := Format('%f; %f', [Left, Top]);
FCoord2 := Format('%f; %f', [Right, Bottom]);
end
else
case FWorkspace.Mode of
dmMove, dmSize, dmSizeBand, dmInsertObject, dmInsertLine:
begin
FCoord1 := Format('%f; %f', [Left, Top]);
FCoord2 := Format('%f; %f', [Right, Bottom]);
end;

dmScale:
begin
FCoord1 := Format('%f; %f', [Left, Top]);
FCoord3 := Format('%s%f; %s%f', ['%', Right * 100, '%', Bottom * 100]);
end;
end;


//fix begin
if FPage = nil then
begin
FCoord1 := Format('%d; %d', [CodeWindow.GetPos.Y, CodeWindow.GetPos.X]);
FCoord2 := '';
FCoord3 := '';
end;
//fix end

end;

LeftRuler.Position := ARect.Top;
TopRuler.Position := ARect.Left;

StatusBar.Repaint;
end;

gpi

Цитата:

Баг 1. Выбираю в дереве URLs, anchors из New features
Просмотр
Режим отображения - две страницы
На левых страницах ссылки не работают, на правых - работают
Баг 2. Выставляю масштаб 100%
Прокручиваю в конец отчёта
Режим отображения - две страницы (одна страница)
На экране - пусто, щелчок на полосе прокрутки - ОК.

засчитано, это +2 багрепорта


Цитата:

Баг 3. (а может и не баг) ...

этот багрепорт пока под вопросом,думаю до понедельника.


LadyOfWood
сразу FR 3 Ent без вопросов

итог:
1.LadyOfWood - финишировал с FR 3 Ent , еще и с запасом давай данные в ПМ, на кого регистрировать?

2.gpi - 4 багрепорта + 1 пока под вопросом, лицензия Basic заменена на Standard

3.GloThin - 1 багрепорт

Цитата:

еще и с запасом

Я что запас кому подарить можно или так на стенку повесить?

My_Way
Я тут столкнулся с интересными вещями в дизайнере: панель "Дерево данных"
1. упорно не хочет приклеиваться к правому краю экрана как полноценная панель, только слева, получается она хочет "быть вместе" с "инспектором" и деревом отчета
2. еще одну вещь заметил у нее - эту панель как полноценную форму или окно можно развернуть на весь экран... что на мой взгляд не совсем нужная возможность, вернее совсем не нужная...
Не знаю, являются эти вещи багами или фичами... и надо или нет делать к ним фикс... Может:

Цитата:

это конструктивная особенность тулбаров - они есть и работают корректно,

Цитата:

но больше такие багрепорты не будут засчитываться

Решать конечно разработчикам....

В дизайнере при редактировании диалоговой формы на тулбаре не работает кнопка ЦВЕТ ЗАЛИВКИ при выделенном контроле, например TfrxEditControl

26: if c is TfrxView then
TfrxView(c).Color := FColor
else if c is TfrxReportPage then
TfrxReportPage(c).Color := FColor
//fix
else if GetPropInfo(PTypeInfo(c.ClassInfo), 'Color') <> nil then
TFrxDialogControl(c).Color := FColor;
//end of fix

Опять о дизайнере:
Создаешь объект МЕМО.вводишь в него текст, выбираешь в "Инспекторе" свойство ALign, выставляем его в значение baClient, объект распахивается на весь экран(как оно и должно быть),но в верхней и боковой части у него есть символы границы, а внижней части их нет.
Может это тоже не баг, а фича, но как то несимметрично все это смотрится....

Цитата:

В дизайнере при редактировании диалоговой формы на тулбаре не работает кнопка ЦВЕТ ЗАЛИВКИ при выделенном контроле, например TfrxEditControl

26: if c is TfrxView then
TfrxView(c).Color := FColor
else if c is TfrxReportPage then
TfrxReportPage(c).Color := FColor
//fix
else if GetPropInfo(PTypeInfo(c.ClassInfo), 'Color') <> nil then
TFrxDialogControl(c).Color := FColor;
//end of fix

Как выяснилось, при таком фиксе возникали проблемы с изменением цвета самой диалоговой формы
Можно попробовать так:

26: if c is TfrxView then
TfrxView(c).Color := FColor
else if c is TfrxReportPage then
TfrxReportPage(c).Color := FColor
//fix begin
else if c is TfrxDialogControl then
TfrxDialogControl(c).Color := FColor
else if c is TfrxDialogPage then
begin
TfrxDialogPage(c).Color := FColor; // не знаю почему, но эта строка
//обновляла только цвет
//дочерних компонентов
//диалоговой формы
FWorkspace.Color:= FColor; //пришлось добавить эту
//или я что-то делаю не так, или это баг с рефрешем диалоговой формы
end;
//fix end

GloThin

Цитата:

Опять о дизайнере:
Создаешь объект МЕМО.вводишь в него текст, выбираешь в "Инспекторе" свойство ALign, выставляем его в значение baClient, объект распахивается на весь экран(как оно и должно быть),но в верхней и боковой части у него есть символы границы, а внижней части их нет.
Может это тоже не баг, а фича, но как то несимметрично все это смотрится....

По-моему баг, а вот и фикс: (frxClass.pas)

procedure TfrxReportPage.AlignChildren;
var
i: Integer;
c: TfrxComponent;
begin
Width := (FPaperWidth - FLeftMargin - FRightMargin) * fr01cm;
//fix begin
Height := (FPaperHeight - FTopMargin - FBottomMargin) * fr01cm;
//fix end
inherited;
for i := 0 to Objects.Count - 1 do
begin
c := Objects[i];
if c is TfrxBand then
begin
if TfrxBand(c).Vertical then
c.Height := (FPaperHeight - FTopMargin - FBottomMargin) * fr01cm - c.Top
else
c.Width := Width - c.Left;
c.AlignChildren;
end;
end;
UpdateDimensions;
end;

gpi

Цитата:

По-моему баг, а вот и фикс: (frxClass.pas)

Ну вот на корню инициативу отбирают...
Вернее шансы заработать бонусы...


Добавлено:
gpi

Цитата:

По-моему баг, а вот и фикс: (frxClass.pas)

Что-то этот фикс у меня не работает, завтра сам посмотрю, вчем может быть дело...

GloThin

Цитата:

Ну вот на корню инициативу отбирают...
Вернее шансы заработать бонусы...

Если My_Way не против, одним или двумя бонусами за этот фикс я поделюсь )

Цитата:

Что-то этот фикс у меня не работает, завтра сам посмотрю, вчем может быть дело...

Ещё раз проверил, вроде бы всё нормально

Что-то не понятно, как работают выносные линии.
В примере со штрих-кодами они есть, можно включить/выключить отображение, переместить, но нельзя добавить/удалить.
Доступа к свойствам HGuides.Text и VGuides.Text из дизайнера нет.
И ещё одна особенность, а может быть, кривые дрова моей видяхи: при скроллинге отчёта со штрихкодами в правой части экрана возникают мерцающие полосы. После окончания скроллинга всё нормально

gpi

Цитата:

Ещё раз проверил, вроде бы всё нормально

У меня по прежнему не работает.
Но там проблема гораздо сложнее, чем отображение границ...
Определюсь более подробно с масштабом проблемы и потом опишу...

GloThin

Цитата:

Но там проблема гораздо сложнее, чем отображение границ...

Там высота объекта устанавливается равной высоте страницы, а не высоте страницы-верхнее_поле-нижнее_поле

Уф, разобрался с проблемой.
Тут, как выяснилось проблема не столько в отображении границ, а масштаб проблемы шире, то есть это еще какой баг,просто багище. Эта проблема проявляется:
1. Не только c МЕМО, а вообще со всеми объектами, которым стоит присвоить Align:=AlClient, что как выяснил,отображение границ тут не причем. Проблема в том, что в дизайнере объекты с заданным значением Align, при выводе на экран выходят за границы нижней части сетки, а в просмотре - отображается нормально.
2. Тот же самый эффект происходит и со значением Align:=baBottom
3. Фикс от gpi - работает и правит обе вышеизложенные проблемы.

P.S. Не работал у меня, так как я проверял в IDE, а в RUN-TIME не догадался проверить...


Добавлено:

Цитата:

Там высота объекта устанавливается равной высоте страницы, а не высоте страницы-верхнее_поле-нижнее_поле

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

Опять свойство ALLIGN в инспекторе:
1. бросаем на страницу мемо или рисунок (лучше рисунок - сразу видны все свойства)
2. устанавливаем свойство allign в baWidth, переходим на свойство ниже - в инспекторе обновляются поля Left и Width, а строка состояния без изменений
3. устанавливаем свойство allign в baClient, переходим на свойство ниже - в инспекторе обновляются поля Height, Left, Top и Width, а строка состояния отображает данные состояния baWidth

Цитата:

Уф, разобрался с проблемой.

Ага, как я и говорил, это не столь малый баг....

Цитата:

Фикс от gpi - работает и правит обе вышеизложенные проблемы.

Фикс работает не всегда....Но он и не должен работать всегда - он ведь не панацея от всех бед...
Например, не работает, при изменении размеров отступов на странице,важны отступы вверху и внизу... при изменении любого из них - объект съезжает с нормального расположения на странице... объект возвращается на место при попытке перемещения объекта...
Что ж наверно, не зря я искал альтернативный способ решения этой проблемы... и часть моего варианта решает вышеизложенную проблему...
Не знаю, как это оценит My Way,фикс и фикс к фиксу являются разными фиксами или одним...
Вот мое дополнение к вышеизложенному фиксу(фиксатор):
Модуль (frxClass.pas)

Код:
procedure TfrxReportPage.UpdateDimensions;
begin
Width := Round((FPaperWidth - FLeftMargin - FRightMargin) * fr01cm);
Height := Round((FPaperHeight - FTopMargin - FBottomMargin) * fr01cm);
end;