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

---

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

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

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

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

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

編輯對象文本

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

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

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

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

點擊所需的對象將改變文字。要完成編輯，請將鼠標(biāo)從編輯的對象上移開。

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

編輯圖表對象

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

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

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

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

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

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

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

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

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

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

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

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

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

在這個腳本中，我們在所有的報表對象中搜索需要的報表對象，其中包含TagStr值Gauge1的值。然后，在找到的對象中，我們設(shè)置Text屬性的值——指標(biāo)的當(dāng)前值。更新預(yù)覽。

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

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

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

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

---