У меня все сохраняется.
- File|New application
- бросаем на форму TfrxReport
- в дизайнере добавляем MasterData и Child
- устанавливаем MasterData.Child = Child1
- в проекте пишем обработчик на кнопку - ShowReport
- запускаем - оба бэнда на месте.
Заметил такую вещь в дизайнере:
Выбираем лупу для того чтобы поменять масштаб,
выбираем область для увеличения (для того чтобы
масштаб был не кратным 100), после этого левой
кнопкой мыши уменьшаем масштаб. Так вот я смог
добиться того что масштаб стал -21%(отрицательный).
После этого на экране дизайнера был маленький кусочек
отчета, так вот щелкнув дважды по нему FastReport
повис на глухо со 100% загрузкой процессора.
Пришлось срубать процесс ... (Версия 3.00)
Может я не полные данные написал.
Delphi4, Win2k, Fasterport 3.01 скомпилирован с русскими ресурсами.
MasterData не сохраняет значения Child бенда в DFM.
Здравствуйте
Заметил что в событиях Скрипта OnPreviewClick в Preview не отрабатывается двойное нажатие мыши (ssDouble)
Уважаемые разработчики.
Не имеет ли смысл
Добавить в
TfrxPreviewWorkspace.MouseDown
следующее
procedure TfrxPreviewWorkspace.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
......
if ssDouble in Shift then
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
Большое спасибо.
Здравствуйте
Уважаемые разработчики
procedure frxDrawGraphic(Canvas: TCanvas; DestRect: TRect; aGraph: TGraphic);
var
Bitmap: TBitmap;
begin
if aGraph is TMetaFile then
Canvas.StretchDraw(DestRect, aGraph)
else
// Имеет ли смысл каждый раз при прорисовке делать такую операцию
// На больших файлах это очень медленно
// Я бы убрал
begin
Bitmap := TBitmap.Create;
try
Bitmap.Width := aGraph.Width;
Bitmap.Height := aGraph.Height;
Bitmap.PixelFormat := pf32Bit;
Bitmap.Canvas.Draw(0, 0, aGraph);
DrawBitmap(Canvas, DestRect, Bitmap);
finally
Bitmap.Free;
end;
end;
end;
Большое спасибо.
Здравствуйте
Уважаемые разработчики
Это не конкретное предложение, а всего лишь повод для размышления.
Если в дизайнере отчета вызвать предпросмотр,
то в результате мы имеем следующую картину
Две модальные формы, одна над другой и в обеих есть кнопочка
"свернуть" Соответственно в MDI-приложении при сворачивании окна предпросмотра мы наблюдаем неприятный эффект невозможности восстановления его обратно
Есть вариант устранения этой особенности
procedure TfrxPreviewForm.Init;
begin
.....
if not Modal and MDIChild then
FormStyle := fsMDIChild;
if Modal then
BorderIcons:=BorderIcons-[biMinimize];
.....
end;
Здравствуйте
Уважаемые разработчики
Несколько непонятно то, что
не выполняются события, присвоенные объектам уже в
скрипте
procedure Memo1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
begin
ShowMessage('QQ');
end;
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
Memo1.OnPreviewClick:=@Memo1OnPreviewClick
end;
Не знаю прав я или нет , но вылечил переписыванием
function TfrxView.Diff(AComponent: TfrxComponent): String;
.....
if FOnPreviewClick<>v.FOnPreviewClick
then
Result:= Result + ' OnPreviewClick="' + FOnPreviewClick + '"';
.....
Хотелось бы получить ответ от Уважаемых разработчиков прав я или нет
1. Designer refresh неработает. Стаю на Page1 и делаю Preview,
после Preview стоит Page1 пустая пока не кликнеш Page1.
2. Child.StartNewPage не работает.
3. refresh после Undo на TfrxReportPage необходим.
4. RichEdit с Dataset + Datafield: AllowExpressions = True, Text-Code not Calculated. Sample with Blobvalue from Database: "This is Pagenumber [PAGE#]"
5. RichEdit с Windows Fontsize = 120 dpi (Big). В "Preview" становятся Буквы RichEdit больше чем например у frxMemoView. А на "Printer" Буквы становятся опять маленкими но CalcHeight как для больших Букв. Можно ли RichEdit всегда как и frxMemoView маленкими Буквами печатат?
6. Разные результаты при решения:
CurY := PageHeight - BottomBand.Height - PageFooter.Height;
В Program->Designer->Preview решение OK.
B Program->Preview делает Report NewPage. Тогда отнимаю 1
CurY := PageHeight - BottomBand.Height - PageFooter.Height -1; // OK
7. При деление на 0 (NULL) не Exception a как в FR 2.x NULL или '' передавать.
8. В Code-Editor кнопки из Edit-Found, Edit-Replace возле RunScript Button встроить.
9. В Code-Editor EvaluateButton неработает.
10. Code-Editor возможность Програму приостановить нехватает.
11. Пожалусто больше Info о Ошибке (Exception) печатать.
Objectname, ConversionError From? To? Value? Codeline?
Рамка RichEdit в Дезяйнере менше чем сам Техт.
- Если у Вас большие Буквы в Windows (Fontsize = 120 dpi)
и вы открыли Дезяйнер, положите TfrxRichEdit и задайте какойнибуть
длиный Техт. Теперь включите All Frame и попробуйте расширить RichEdit.
Техт выходит за Рамку!
Ошибка в Дезайнере c SubReport.
На Supreport-Page можно ложить Band Titel, Overlay, PageHeader and
PageFooter но они не печатаются. Их можно зделать Desibled for Insert.
Комментарии
Fr3.01.
- File|New application
- бросаем на форму TfrxReport
- в дизайнере добавляем MasterData и Child
- устанавливаем MasterData.Child = Child1
- в проекте пишем обработчик на кнопку - ShowReport
- запускаем - оба бэнда на месте.
Это как, считать "недоглядом", или преднамеренно убито?
Выбираем лупу для того чтобы поменять масштаб,
выбираем область для увеличения (для того чтобы
масштаб был не кратным 100), после этого левой
кнопкой мыши уменьшаем масштаб. Так вот я смог
добиться того что масштаб стал -21%(отрицательный).
После этого на экране дизайнера был маленький кусочек
отчета, так вот щелкнув дважды по нему FastReport
повис на глухо со 100% загрузкой процессора.
Пришлось срубать процесс ... (Версия 3.00)
Delphi4, Win2k, Fasterport 3.01 скомпилирован с русскими ресурсами.
MasterData не сохраняет значения Child бенда в DFM.
Баг Фиксы и Баги.
Баг Фиксы где куски кода.
исправленные.!!!!!
Не Засоряйте Пожалуйста эту ветку.
Заметил что в событиях Скрипта OnPreviewClick в Preview не отрабатывается двойное нажатие мыши (ssDouble)
Уважаемые разработчики.
Не имеет ли смысл
Добавить в
TfrxPreviewWorkspace.MouseDown
следующее
procedure TfrxPreviewWorkspace.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
......
if ssDouble in Shift then
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
Большое спасибо.
Уважаемые разработчики
procedure frxDrawGraphic(Canvas: TCanvas; DestRect: TRect; aGraph: TGraphic);
var
Bitmap: TBitmap;
begin
if aGraph is TMetaFile then
Canvas.StretchDraw(DestRect, aGraph)
else
// Имеет ли смысл каждый раз при прорисовке делать такую операцию
// На больших файлах это очень медленно
// Я бы убрал
begin
Bitmap := TBitmap.Create;
try
Bitmap.Width := aGraph.Width;
Bitmap.Height := aGraph.Height;
Bitmap.PixelFormat := pf32Bit;
Bitmap.Canvas.Draw(0, 0, aGraph);
DrawBitmap(Canvas, DestRect, Bitmap);
finally
Bitmap.Free;
end;
end;
end;
Большое спасибо.
Уважаемые разработчики
Это не конкретное предложение, а всего лишь повод для размышления.
Если в дизайнере отчета вызвать предпросмотр,
то в результате мы имеем следующую картину
Две модальные формы, одна над другой и в обеих есть кнопочка
"свернуть" Соответственно в MDI-приложении при сворачивании окна предпросмотра мы наблюдаем неприятный эффект невозможности восстановления его обратно
Есть вариант устранения этой особенности
procedure TfrxPreviewForm.Init;
begin
.....
if not Modal and MDIChild then
FormStyle := fsMDIChild;
if Modal then
BorderIcons:=BorderIcons-[biMinimize];
.....
end;
Большое спасибо.
Уважаемые разработчики
Несколько непонятно то, что
не выполняются события, присвоенные объектам уже в
скрипте
procedure Memo1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
begin
ShowMessage('QQ');
end;
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
Memo1.OnPreviewClick:=@Memo1OnPreviewClick
end;
Не знаю прав я или нет , но вылечил переписыванием
function TfrxView.Diff(AComponent: TfrxComponent): String;
.....
if FOnPreviewClick<>v.FOnPreviewClick
then
Result:= Result + ' OnPreviewClick="' + FOnPreviewClick + '"';
.....
Хотелось бы получить ответ от Уважаемых разработчиков прав я или нет
Спасибо
после Preview стоит Page1 пустая пока не кликнеш Page1.
2. Child.StartNewPage не работает.
3. refresh после Undo на TfrxReportPage необходим.
4. RichEdit с Dataset + Datafield: AllowExpressions = True, Text-Code not Calculated. Sample with Blobvalue from Database: "This is Pagenumber [PAGE#]"
5. RichEdit с Windows Fontsize = 120 dpi (Big). В "Preview" становятся Буквы RichEdit больше чем например у frxMemoView. А на "Printer" Буквы становятся опять маленкими но CalcHeight как для больших Букв. Можно ли RichEdit всегда как и frxMemoView маленкими Буквами печатат?
6. Разные результаты при решения:
CurY := PageHeight - BottomBand.Height - PageFooter.Height;
В Program->Designer->Preview решение OK.
B Program->Preview делает Report NewPage. Тогда отнимаю 1
CurY := PageHeight - BottomBand.Height - PageFooter.Height -1; // OK
7. При деление на 0 (NULL) не Exception a как в FR 2.x NULL или '' передавать.
8. В Code-Editor кнопки из Edit-Found, Edit-Replace возле RunScript Button встроить.
9. В Code-Editor EvaluateButton неработает.
10. Code-Editor возможность Програму приостановить нехватает.
11. Пожалусто больше Info о Ошибке (Exception) печатать.
Objectname, ConversionError From? To? Value? Codeline?
- Если у Вас большие Буквы в Windows (Fontsize = 120 dpi)
и вы открыли Дезяйнер, положите TfrxRichEdit и задайте какойнибуть
длиный Техт. Теперь включите All Frame и попробуйте расширить RichEdit.
Техт выходит за Рамку!
На Supreport-Page можно ложить Band Titel, Overlay, PageHeader and
PageFooter но они не печатаются. Их можно зделать Desibled for Insert.