<?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. " ReportOptions.LastChange="39013,0524600231" 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 the 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 := clLime;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DBCross1Cell0OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Value &#60; 100 then&#13;&#10;  begin&#13;&#10;    DBCross1Object1.Color := clMaroon;&#13;&#10;    DBCross1Object2.Color := clWhite;&#13;&#10;    DBCross1Object3.Color := clWhite;&#13;&#10;  end&#13;&#10;  else if Value &#60; 3000 then&#13;&#10;  begin&#13;&#10;    DBCross1Object1.Color := $00CCFF;&#13;&#10;    DBCross1Object2.Color := $00CCFF;&#13;&#10;    DBCross1Object3.Color := clWhite;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    DBCross1Object1.Color := $00CC98;&#13;&#10;    DBCross1Object2.Color := $00CC98;&#13;&#10;    DBCross1Object3.Color := $00CC98;&#13;&#10;  end;&#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="29,73222" Left="0" Top="18,89765" Width="718,1107" Child="Child1">
      <TfrxMemoView Name="Memo4" Left="18,89765" Top="0" Width="166,29932" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Objects inside cross-tab"/>
    </TfrxReportTitle>
    <TfrxChild Name="Child1" Height="188,9765" Left="0" Top="71,81107" Width="718,1107" Child="Child2">
      <TfrxMemoView Name="Memo1" Left="18,89765" Top="139,84261" Width="309,92146" Height="34,01577" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" LineSpacing="5" ParentFont="False" Text="Employee's salary per year&#13;&#10;    &#60; 100        &#60; 3000          &#62;= 3000"/>
      <TfrxShapeView Name="Shape1" Left="22,67718" Top="164,40954157" Width="7,55906" Height="7,55906" Frame.Width="2"/>
      <TfrxShapeView Name="Shape2" Left="86,92919" Top="164,40954157" Width="7,55906" Height="7,55906" Frame.Color="255" Frame.Width="2"/>
      <TfrxShapeView Name="Shape3" Left="162,51979" Top="164,40954157" Width="7,55906" Height="7,55906" Frame.Color="65280" Frame.Width="2"/>
      <TfrxMemoView Name="Memo2" Left="18,89765" Top="0" Width="657,63822" Height="136,06308" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="-2147483640" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="1st way: create object in a code.&#13;&#10;&#13;&#10;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;- create OnBeforePrint event handler for cross cell&#13;&#10;- in the handler, create an object that you want to display inside the cell. Note: object should have the same parent as the Sender parameter."/>
    </TfrxChild>
    <TfrxChild Name="Child2" Height="136,06308" Left="0" Top="283,46475" Width="718,1107" Child="Child3">
      <TfrxDBCrossView Name="Cross1" Left="18,89765" Top="3,77952999999997" 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, 11710 characters]"/>
    </TfrxChild>
    <TfrxChild Name="Child3" Height="204,09462" Left="0" Top="442,20501" Width="718,1107" Child="Child4">
      <TfrxMemoView Name="Memo3" Left="18,89765" Top="18,89765" Width="657,63822" Height="136,06308" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="-2147483640" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="2nd way: just put object inside the table.&#13;&#10;&#13;&#10;To do this:&#13;&#10;&#13;&#10;- put the &#34;Shape&#34; object inside the cell&#13;&#10;- increase the width of the cross cell by TfrxCrossView.AddWidth property (set to 1 cm)&#13;&#10;- create OnBeforePrint event handler for cross cell&#13;&#10;- in the handler, change object's appearance according to the cell value"/>
      <TfrxMemoView Name="Memo5" Left="18,89765" Top="154,96073" Width="309,92146" Height="34,01577" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" LineSpacing="3" ParentFont="False" Text="Employee's salary per year&#13;&#10;    &#60; 100        &#60; 3000          &#62;= 3000"/>
      <TfrxShapeView Name="Shape4" Left="22,67718" Top="177,63791" Width="7,55906" Height="7,55906" Color="128" Frame.Color="16777215"/>
      <TfrxShapeView Name="Shape5" Left="79,37013" Top="177,63791" Width="7,55906" Height="7,55906" Color="52479" Frame.Color="16777215"/>
      <TfrxShapeView Name="Shape6" Left="86,92919" Top="177,63791" Width="7,55906" Height="7,55906" Color="52479" Frame.Color="16777215"/>
      <TfrxShapeView Name="Shape8" Left="151,1812" Top="177,63791" Width="7,55906" Height="7,55906" Color="52376" Frame.Color="16777215"/>
      <TfrxShapeView Name="Shape9" Left="158,74026" Top="177,63791" Width="7,55906" Height="7,55906" Color="52376" Frame.Color="16777215"/>
      <TfrxShapeView Name="Shape10" Left="166,29932" Top="177,63791" Width="7,55906" Height="7,55906" Color="52376" Frame.Color="16777215"/>
    </TfrxChild>
    <TfrxChild Name="Child4" Height="128" Left="0" Top="668,97681" Width="718,1107">
      <TfrxDBCrossView Name="DBCross1" Left="18,89765" Top="0" Width="282,795275590551" Height="128" AddHeight="0" AddWidth="37,7952755905512" DownThenAcross="False" NextCrossGap="0" CellFields.Text="Salary" ColumnFields.Text="Year" DataSet="ReportData.CrossDS" DataSetName="Cross" RowFields.Text="Name" PropData="[encoded data, 11234 characters]"/>
    </TfrxChild>
  </TfrxReportPage>
</TfrxReport>
