Delphi 中的 FastReport 页面方向更改

Question

有谁知道如何在 FastReport 中设计报表，以便当用户更改页面方向时，所有列标题和数据自动适应新的页面宽度？我在那里找不到任何锚定机制。也许我可以在运行时这样做？但随后我需要以某种方式捕获页面方向更改事件。有人可以帮忙吗？

Answer 1

我不知道问题是什么：默认情况下，带子对页面边框具有磁性，因此它们适合新的页面宽度。

但如果您希望 frxMemoview 对象根据新的页面大小移动和调整大小，则应使用报表的 beforeprint 事件来重新计算、移动或调整报表组件的大小。

如果您有一份可以纵向或横向打印的报告，最简单的构建方法是纵向布局和横向布局。您可以在加载报告之前显示打印机设置日志，并根据方向加载纵向或横向布局。

这可能不是最干净的方式。在代码中构建报表运行时是另一种选择，重新计算报表中的每个组件也是另一种选择。但它们涉及大量编码，如果用户选择“Letter”而不是“A4”怎么办？

问候，
特奥
荷兰FR经销商。

Answer 2

您可以：

• 使用每个的对齐属性
  TfrxMemoview...
• 用脚本制作

Answer 3

有时需要通过代码修改报告页面设置（例如，修改纸张对齐方式或尺寸）。 TfrxReportPage 类包含以下属性，定义页面的大小：

   property Orientation: TPrinterOrientation default poPortrait;

   property PaperWidth: Extended;

   property PaperHeight: Extended;

   property PaperSize: Integer;

«PaperSize» 属性设置纸张格式。这是 Windows.pas 中定义的标准值之一（例如 DMPAPER_A4）。如果为此属性分配了值，FastReport 将自动填充 «PaperWidth» 和 «PaperHeight» 属性（纸张尺寸以毫米为单位）。将 DMPAPER_USER（或 256）值设置为格式，意味着设置了自定义纸张尺寸。在这种情况下，应手动填充“PaperWidth”和“PaperHeight”属性。

下面的例子展示了如何修改第一页的参数（假设我们已经有一个报告）：

Pascal:

var
Page: TfrxReportPage; 
{ the first report’s page has [1] index. [0] is the Data page. } 
Page := TfrxReportPage(frxReport1.Pages[1]);  
{ modify the size } 
Page.PaperSize := DMPAPER_A2;   
{ modify the paper orientation }  
Page.Orientation := poLandscape;

C++:

TfrxReportPage * Page;
// the first report’s page has [1] index. [0] is the Data page. 
Page = (TfrxReportPage *)frxReport1.Pages[1];
// modify the size 
Page->PaperSize = DMPAPER_A2;
// modify the paper orientation 
Page->Orientation = poLandscape;

Answer 4

在 BeginDoc i 上，您可以使用 (frxPrincipal.FindObject('Page1') as TfrxReportPage).PaperSize := DMPAPER_A4; 访问其中的属性