<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.0a" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.DoubleBuffered="False" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37907,6514537153" ReportOptions.Description.Text="Demonstrates how to print an object inside the cross table. To do this:&#13;&#10;&#13;&#10;- increase the width of the cross cell by TfrxCrossView.AddWidth property (set to 0,5 cm)&#13;&#10;&#13;&#10;- create OnBeforePrint event handler for cross cell&#13;&#10;&#13;&#10;- in the handler, create an object that you want to display in the cross-tab. Note: object should have the same parent as the Sender parameter." ReportOptions.LastChange="39010,0359961458" ScriptLanguage="PascalScript" ScriptText.Text="procedure CellMemo0OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  sh: TfrxShapeView;&#13;&#10;  Memo: TfrxMemoView;&#13;&#10;begin&#13;&#10;  { cast to TfrxMemoView for more comfort }&#13;&#10;  Memo := TfrxMemoView(Sender);&#13;&#10;&#13;&#10;  { create the shape object that will indicate the cell rating }&#13;&#10;  { note - you should use Sender.Parent as a parent for new object! }&#13;&#10;  sh := TfrxShapeView.Create(Memo.Parent);&#13;&#10;  sh.SetBounds(Memo.Left + 8, Memo.Top + 8, 8, 8);&#13;&#10;  sh.Frame.Width := 2;&#13;&#10;&#13;&#10;  { choose shape color depending on cell value }&#13;&#10;  if Memo.Value &#60; 100 then&#13;&#10;    sh.Frame.Color := clBlack&#13;&#10;  else if Memo.Value &#60; 3000 then&#13;&#10;    sh.Frame.Color := clRed&#13;&#10;  else&#13;&#10;    sh.Frame.Color := clGreen;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." PropData="044C656674026003546F7003700108446174617365747301010C3100000020446174615365743D225265706F7274446174612E43726F737344532220446174615365744E616D653D2243726F7373220000095661726961626C65730100055374796C650100">
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxReportTitle Name="ReportTitle1" Height="52,91342" Left="0" Top="18,89765" Width="718,1107">
      <TfrxMemoView Name="Memo1" Left="0" Top="0" Width="309,92146" Height="34,01577" DisplayFormat.DecimalSeparator="," Text="Employee's salary per month&#13;&#10;    &#60; 100        &#60; 3000          &#62;= 3000"/>
      <TfrxShapeView Name="Shape1" Left="3,77953" Top="20,7874015748031" Width="7,55906" Height="7,55906" Frame.Width="2"/>
      <TfrxShapeView Name="Shape2" Left="68,03154" Top="20,78740157" Width="7,55906" Height="7,55906" Frame.Color="255" Frame.Width="2"/>
      <TfrxShapeView Name="Shape3" Left="143,62214" Top="20,78740157" Width="7,55906" Height="7,55906" Frame.Color="32768" Frame.Width="2"/>
    </TfrxReportTitle>
    <TfrxDBCrossView Name="Cross1" Left="0" Top="75,5906" Width="263,897637795276" Height="128" AddHeight="0" AddWidth="18,8976377952756" DownThenAcross="False" NextCrossGap="0" CellFields.Text="Salary" ColumnFields.Text="Year" DataSet="ReportData.CrossDS" DataSetName="Cross" RowFields.Text="Name" PropData="[encoded data, 9350 characters]"/>
  </TfrxReportPage>
</TfrxReport>
