如何在Fast Report VCL 6中以預(yù)覽模式編輯報(bào)告

---

FR VCL 6中的一些對(duì)象可以在報(bào)告查看器中編輯，即以.fp3格式編輯。更改對(duì)象后，可以將修改后的報(bào)告以預(yù)覽格式保存或?qū)⑵鋵?dǎo)出為任何其他格式。什么時(shí)候這可能有用？例如，您沒有報(bào)告模板，但只有fp3報(bào)告的預(yù)覽文件。您可以更改報(bào)告的標(biāo)題，或在圖表中選擇所需的系列，然后發(fā)送報(bào)告進(jìn)行打印。這種使用的特定情況可能是填寫問卷。

哪些對(duì)象可以編輯？當(dāng)然，大多數(shù)情況下我們必須編輯文本，所以“Text”對(duì)象是列表中的第一個(gè)。

如上所述，“Chart”對(duì)象。如果對(duì)象有多個(gè)系列，您可以選擇此刻顯示的系列。

“CheckBox”對(duì)象。如果您的報(bào)告是調(diào)查問卷，您可以用“打勾”標(biāo)記必要的項(xiàng)目，填寫文本字段并通過(guò)電子郵件發(fā)送文件。

對(duì)象“Gauge”和“Interval Gauge”允許您設(shè)置可在報(bào)告中使用的值。

編輯對(duì)象文本

有兩種方式可以在預(yù)覽模式下編輯文本對(duì)象：

1）按住Alt鍵并點(diǎn)擊Text對(duì)象。對(duì)象內(nèi)的文本將被高亮顯示。通過(guò)單擊對(duì)象外部的區(qū)域來(lái)更改文本。這些更改已應(yīng)用；

在使用此方法時(shí)，請(qǐng)記住，只要從該文本對(duì)象中移除鼠標(biāo)指針，編輯就會(huì)完成。

2）報(bào)告查看器工具欄上出現(xiàn)一個(gè)新圖標(biāo)——編輯文本。點(diǎn)擊它，頁(yè)面上所有可以編輯的文本對(duì)象都會(huì)以藍(lán)色突出顯示：

點(diǎn)擊所需的對(duì)象將改變文字。要完成編輯，請(qǐng)將鼠標(biāo)從編輯的對(duì)象上移開。

可以禁止編輯文本。為此，我們?cè)凇癛estrictions”屬性中的“Text”對(duì)象上設(shè)置了“DontEditInPreview”標(biāo)志。當(dāng)啟用文本編輯模式時(shí)，您可以看到哪些文本對(duì)象是可編輯的。

編輯圖表對(duì)象

該圖可以旋轉(zhuǎn)，切換序列，在2D/3D模式下切換，將變換返回到初始視圖。

在我看來(lái)，最有趣的事情是切換系列的功能。你只需要用鼠標(biāo)指針將鼠標(biāo)懸停在它上面。這將顯示系列選擇欄：

在這個(gè)例子中，我們看到有5個(gè)系列可用。默認(rèn)情況下，顯示所有系列。但是，這并不總是很方便的。因此，要將交換機(jī)設(shè)置為單選按鈕模式，必須在報(bào)告創(chuàng)建階段禁用所有交換機(jī)，只留下一個(gè)處于活動(dòng)狀態(tài)的交換機(jī)：

這可以通過(guò)鼠標(biāo)在從頂部到右側(cè)的系列選擇的同一窗口中完成。

注意圖標(biāo)。在預(yù)覽模式下，如果您沒有旋轉(zhuǎn)圖表，點(diǎn)擊它，您可以將圖表切換到二維模式：

圖形的旋轉(zhuǎn)通過(guò)鼠標(biāo)左鍵進(jìn)行：

這就是我設(shè)法反映圖表的方式：

如果現(xiàn)在點(diǎn)擊圖標(biāo)，圖表將返回到其原始狀態(tài)（盡管處于2D模式）。再次按可顯示您的轉(zhuǎn)換。

編輯物體標(biāo)尺和間隔標(biāo)尺

這些是Fast Report VCL中的兩個(gè)新對(duì)象。它們具有模擬模擬電子設(shè)備的指標(biāo)。名稱之間的差異很明顯：Gauge顯示單個(gè)值，Interval Gauge - 間隔的值，即間隔。

對(duì)于這兩個(gè)對(duì)象都有三種類型：水平、垂直和圓形。以下是它的外觀：

正如你所看到的，秤上的指針可以有不同的形狀、大小和顏色。量表本身也有很多設(shè)置。

但回到文章的主題。Gauge對(duì)象也可以在預(yù)覽模式下進(jìn)行編輯。沒有報(bào)告中使用新對(duì)象值的能力，移動(dòng)指標(biāo)本身就不會(huì)很有趣。您可以使用報(bào)告腳本執(zhí)行此操作。例如，我們希望在文本字段中顯示指標(biāo)的當(dāng)前值。對(duì)于該指標(biāo)，添加OnContentChanged事件：

procedure Gauge1OnContentChanged(Sender: TfrxComponent; ModifyObjects: TList; var Refresh: Boolean);
 
var
 
 List: TList;
 
 View: TfrxMemoView;
 
 i: Integer;
 
begin
 
 View := nil;
 
 List := PreviewPages.Page[PreviewPages.CurPage].AllObjects;
 
 for i := 0 to List.Count - 1 do
 
 if (List[i] is TfrxView) then
 
 begin
 
 if (TfrxView(List[i]).TagStr = 'Gauge1') then
 
 View := TfrxMemoView(List[i]);
 
 if (View <> nil) then Break;
 
 end;
 
 if View <> nil then
 
 begin
 
 TfrxMemoView(View).Text := FloatToStr(Round(TfrxGaugeView(Sender).Gauge.CurrentValue));
 
 ModifyObjects.Add(View);
 
 end;
 
 // refresh preview
 
 Refresh := True;
 
end;

在這個(gè)腳本中，我們?cè)谒械膱?bào)表對(duì)象中搜索需要的報(bào)表對(duì)象，其中包含TagStr值Gauge1的值。然后，在找到的對(duì)象中，我們?cè)O(shè)置Text屬性的值——指標(biāo)的當(dāng)前值。更新預(yù)覽。

以預(yù)覽模式運(yùn)行報(bào)告。移動(dòng)滑塊，我們會(huì)在下面的文本字段中獲取指標(biāo)的當(dāng)前值。

因此，獲得的值可以用于計(jì)算、過(guò)濾和數(shù)據(jù)查詢。這使報(bào)告變得不僅僅是一個(gè)交互式文檔。

我們總結(jié)一下。以預(yù)覽模式編輯報(bào)告的功能使我們能夠創(chuàng)建報(bào)告，您可以在不重建的情況下自定義報(bào)告。在預(yù)覽中編輯很簡(jiǎn)單，因此可供廣泛的用戶訪問。他們不需要與報(bào)告設(shè)計(jì)師合作的經(jīng)驗(yàn)。

產(chǎn)品介紹 | 下載試用 | 優(yōu)惠活動(dòng) | | 聯(lián)系Elyn

---