|
External objects (such as lines, shapes, pictures) can be placed in the cross-tab. You may need to show, for example, some data in a graphical form. Let's look at an example that uses shapes to display a rudimentary progress bar:
A dark red bar is displayed if the cell value is less than 100, yellow if less than 3000 or green if more that 3000.
Let's start with our report. Place a "DB Cross-tab" object on the report page and set its properties like this:
Turn off the “Auto-Size” property and set the column widths as shown below:
Now add the shape object to our table by selecting the “Rectangle” object on the object toolbar and placing it inside the cell:
Change its height and width to 0.2cm and set its top and left properties. Add two more similar rectangles.
Now create a script that will show the correct number of colored shapes (depending on the cell value). To do this select the cell and create an “OnBeforePrint” event handler:
Write the following code in the event handler (pay attention to the shape names, so that they match your objects):
procedure DBCross1Cell0OnBeforePrint(Sender: TfrxComponent);
begin
// 'Value' is the current cell's value
if Value < 100 then
begin
// first shape object
DBCross1Object1.Color := clMaroon; // dark 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;
That's all - preview the report, which will be similar to that shown at the top of this section.
| 
