你可以把外部对象（如线条，形状，图片）嵌入到在FastReport交叉表。例如，你可能需要以图形化方式表现一些值。下面的例子中，我们使用形状来显示一个小的进度条：

红色条表示单元格值小于100，黄色条表示单元格值小于3000，绿色条表示单元格值大于3000。

将 "DB Cross-tab" 对象放置到报表页上，并设置其属性：

关闭 "Auto Size" 属性，并设置列的宽度，如下图所示：

选择"Rectangle" 对象，并将其插入单元格中，从而添加形状到表中。

以同样的方式添加另外2个矩形到表中：

现在，创建一个脚本，用于显示彩色形状的数量。要做到这一点，选择单元格和创建OnBeforePrint的事件处理程序：

在事件处理程序中编写以下代码：

procedure DBCross1Cell0OnBeforePrint(Sender: TfrxComponent);
begin
// Value it's a current cell's value
if Value < 100 then
begin
// first shape object
DBCross1Object1.Color := clMaroon; // red
// second shape object
DBCross1Object2.Color := clWhite;
// third shape object
DBCross1Object3.Color := clWhite;
end
else if Value < 3000 then
begin
DBCross1Object1.Color := $00CCFF; // yellow
DBCross1Object2.Color := $00CCFF;

DBCross1Object3.Color := clWhite;
end
else
begin
DBCross1Object1.Color := $00CC98; // green
DBCross1Object2.Color := $00CC98;
DBCross1Object3.Color := $00CC98;
end;
end;