<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Tag="21650" Version="6.6.0" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="495615" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="43598,7518158912" ReportOptions.Description.Text="This report demonstrates possibility of FastReport interactivity. It takes data from the report variables and prints it as questions. To add a new question just open Variable editor and add new variable starts with &#34;CustQ&#34; prefix in &#34;Questions&#34; category." ReportOptions.LastChange="43914,7297426389" ScriptLanguage="PascalScript" ScriptText.Text="var&#13;&#10;  i, n: Integer;&#13;&#10;&#13;&#10;procedure Picture1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);&#13;&#10;var&#13;&#10;  OpenDlg: TOpenDialog;&#13;&#10;begin&#13;&#10;  OpenDlg := TOpenDialog.Create(nil);&#13;&#10;  OpenDlg.Filter := '(*.jpg)|*.jpg|(*.jpeg)|*.jpeg|(*.png)|*.png|(*.bmp)|*.bmp';&#13;&#10;  try&#13;&#10;    Modified := OpenDlg.Execute;&#13;&#10;    if Modified then&#13;&#10;      TfrxPictureView(Sender).Picture.LoadFromFile(OpenDlg.FileName);&#13;&#10;  finally&#13;&#10;    OpenDlg.Free;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure CheckBox1OnContentChanged(Sender: TfrxComponent; ModifyObjects: TList; var Refresh: Boolean);&#13;&#10;var&#13;&#10;  p: TfrxComponent;&#13;&#10;  i: Integer;&#13;&#10;begin&#13;&#10;  p := Sender.Parent;&#13;&#10;  if p = nil then Exit;&#13;&#10;  for i := 0 to p.Objects.Count - 1 do&#13;&#10;    if (p.Objects[i] is TfrxCheckBoxView) and (TfrxCheckBoxView(p.Objects[i]).Tag = Sender.Tag) then&#13;&#10;    begin&#13;&#10;      TfrxCheckBoxView(p.Objects[i]).Checked := False;&#13;&#10;      ModifyObjects.Add(p.Objects[i]);&#13;&#10;    end;&#13;&#10;  TfrxCheckBoxView(Sender).Checked := True;&#13;&#10;  Refresh := True;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure CheckBox1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  TfrxCheckBoxView(Sender).Tag := &#60;Line&#62;;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure CheckBox2OnMouseEnter(Sender: TfrxView; var Modified: Boolean);&#13;&#10;begin&#13;&#10;  TfrxCheckBoxView(Sender).Frame.Width := 3;&#13;&#10;  TfrxCheckBoxView(Sender).Frame.Color := clSilver;&#13;&#10;  Report.Preview.Invalidate;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure CheckBox2OnMouseLeave(Sender: TfrxView; var Modified: Boolean);&#13;&#10;begin&#13;&#10;  TfrxCheckBoxView(Sender).Frame.Width := 1;&#13;&#10;  TfrxCheckBoxView(Sender).Frame.Color := clWhite;&#13;&#10;  Report.Preview.Invalidate;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo13OnMouseLeave(Sender: TfrxView; var Modified: Boolean);&#13;&#10;begin&#13;&#10;  TfrxMemoView(Sender).Frame.Width := 1;&#13;&#10;  TfrxMemoView(Sender).Frame.Color := clBlack;&#13;&#10;  Report.Preview.Invalidate;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo13OnMouseEnter(Sender: TfrxView; var Modified: Boolean);&#13;&#10;begin&#13;&#10;  TfrxMemoView(Sender).Frame.Width := 3;&#13;&#10;  TfrxMemoView(Sender).Frame.Color := clSkyBlue;&#13;&#10;  Report.Preview.Invalidate;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;  n := 0;&#13;&#10;  for i := 0 to Report.Variables.Count - 1 do&#13;&#10;  begin&#13;&#10;    if Pos('CustQ', TfrxVariable(Report.Variables.Items[i]).Name) = 1 then&#13;&#10;      Inc(n);&#13;&#10;  end;&#13;&#10;  MasterData1.RowCount := n;&#13;&#10;end.&#13;&#10;&#13;&#10;" OnReportPrint="frxReportAbstractOnReportPrint">
  <Variables>
    <item Name=" DetailVars"/>
    <item Name="DescText" Value="''"/>
    <item Name="ItemName"/>
    <item Name="StoreLink"/>
    <item Name="ImgLink"/>
    <item Name=" Questions"/>
    <item Name="CustQ1" Value="'Supervisor’s management and assistance'"/>
    <item Name="CustQ2" Value="'Crew’s Punctuality'"/>
    <item Name="CustQ3" Value="'How would you rate the quality of our product'"/>
    <item Name="CustQ4" Value="'Staff’s professionalism and aptitude'"/>
    <item Name="CustQ5" Value="'Completion of job without breakage/damage'"/>
    <item Name="CustQ6" Value="'Neatness &#38; Clearance of debris'"/>
    <item Name="CustQ7" Value="'Was the job done accurately?'"/>
    <item Name="CustQ8" Value="'How will you rate our overall quality of our packing and moving?'"/>
    <item Name="CustQ9" Value="'How would you like to recommend us to others?'"/>
  </Variables>
  <Styles>
    <item Name="Title1" Font.Charset="1" Font.Color="-16777208" Font.Height="-29" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="Title2" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="Group1Back" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" FillType="ftGlass" Fill.Color="16629143" Fill.Blend="0,5"/>
    <item Name="Group1Content" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="Group1Header" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="Group2Content" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="Group2Header" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="Group2Back" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="MainHeader" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="MainContent" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="MainBack" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="FooterBack" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="FooterContent" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
  </Styles>
  <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="" Frame.Typ="0" MirrorMode="0" HGuides.Text="" VGuides.Text="378,18&#13;&#10;453,64&#13;&#10;529,09&#13;&#10;604,55">
    <TfrxReportTitle Name="ReportTitle1" FillType="ftGlass" Fill.Color="16700346" Fill.Blend="0,5" Fill.Hatch="True" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="113,27825" Left="0" Top="18,89765" Width="718,1107">
      <TfrxMemoView Name="Memo2" AllowVectorExport="True" Left="10,91953" Top="7,55906" Width="486,25564" Height="56,69295" Font.Charset="1" Font.Color="-16777208" Font.Height="-29" Font.Name="Arial" Font.Style="0" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Style="Title1" Text="Fast E-Shop technology"/>
      <TfrxPictureView Name="Picture1" AllowVectorExport="True" Left="595,44295" Top="7,45141" Width="106,78846" Height="102,04731" Frame.Typ="0" Picture.PropData="[encoded data, 24900 characters]" HightQuality="False" Transparent="True" TransparentColor="536870911"/>
      <TfrxMemoView Name="Memo3" AllowVectorExport="True" Left="224,72436" Top="56,69295" Width="378,06671" Height="52,91342" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Style="Title2" Text="We are your guide &#13;&#10;in the world of goods"/>
    </TfrxReportTitle>
    <TfrxPageFooter Name="PageFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="18,89765" Left="0" Top="619,84292" Width="718,1107">
      <TfrxMemoView Name="Page" IndexTag="1" AllowVectorExport="True" Left="622,86128" Top="0" Width="94,48825" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Arial" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Style="FooterContent" Text="Page [Page]"/>
      <TfrxMemoView Name="Memo4" AllowVectorExport="True" Left="3,36047" Top="0" Width="113,3859" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Arial" Font.Style="0" Frame.Typ="0" HAlign="haRight" ParentFont="False" Style="FooterContent" Text="Visit our store:"/>
      <TfrxMemoView Name="Memo5" AllowVectorExport="True" Left="116,86008" Top="0" Width="264,5671" Height="18,89765" Hyperlink.Value="http:\\www.fast-report.com" Cursor="-21" Font.Charset="1" Font.Color="16711680" Font.Height="-16" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="http:\\www.fast-report.com"/>
    </TfrxPageFooter>
    <TfrxMasterData Name="MasterData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="41,64444" Left="0" Top="260,78757" Width="718,1107" Child="Child1" ColumnWidth="0" ColumnGap="0" RowCount="2">
      <TfrxMemoView Name="Memo17" Align="baClient" AllowVectorExport="True" Left="0" Top="0" Width="718,1107" Height="41,64444" Font.Charset="1" Font.Color="0" Font.Height="-29" Font.Name="Arial" Font.Style="0" Frame.Typ="0" Fill.BackColor="15780518" HAlign="haCenter" Highlight.Font.Charset="1" Highlight.Font.Color="0" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Condition="&#60;Line&#62; mod 2 = 0" Highlight.FillType="ftBrush" Highlight.Fill.BackColor="16112578" Highlight.Frame.Typ="0" ParentFont="False" Text=""/>
      <TfrxMemoView Name="Memo6" AllowVectorExport="True" Left="7,55906" Top="5,06961000000001" Width="362,83488" Height="34,01577" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" Frame.Typ="0" Highlight.ApplyFill="False" Highlight.Font.Charset="204" Highlight.Font.Color="7097145" Highlight.Font.Height="-16" Highlight.Font.Name="Arial" Highlight.Font.Style="1" Highlight.Condition="&#60;line&#62; mod 2 = 0" Highlight.FillType="ftBrush" Highlight.Fill.BackColor="0" Highlight.Frame.Typ="0" ParentFont="False" VAlign="vaCenter" Text="[Line]. [Get('CustQ' + IntToStr(&#60;Line&#62;))]"/>
      <TfrxCheckBoxView Name="CheckBox2" AllowVectorExport="True" Left="453,5436" Top="5,06961000000001" Width="37,7953" Height="34,01577" OnBeforePrint="CheckBox1OnBeforePrint" OnContentChanged="CheckBox1OnContentChanged" OnMouseEnter="CheckBox2OnMouseEnter" OnMouseLeave="CheckBox2OnMouseLeave" CheckColor="0" Checked="False" CheckStyle="csCross" Frame.Color="16777215" Frame.Typ="15"/>
      <TfrxCheckBoxView Name="CheckBox3" AllowVectorExport="True" Left="529,1342" Top="5,06961000000001" Width="37,7953" Height="34,01577" OnBeforePrint="CheckBox1OnBeforePrint" OnContentChanged="CheckBox1OnContentChanged" OnMouseEnter="CheckBox2OnMouseEnter" OnMouseLeave="CheckBox2OnMouseLeave" CheckColor="0" Checked="False" CheckStyle="csCross" Frame.Color="16777215" Frame.Typ="15"/>
      <TfrxCheckBoxView Name="CheckBox4" AllowVectorExport="True" Left="604,7248" Top="5,06961000000001" Width="37,7953" Height="34,01577" OnBeforePrint="CheckBox1OnBeforePrint" OnContentChanged="CheckBox1OnContentChanged" OnMouseEnter="CheckBox2OnMouseEnter" OnMouseLeave="CheckBox2OnMouseLeave" CheckColor="0" Checked="False" CheckStyle="csCross" Frame.Color="16777215" Frame.Typ="15"/>
      <TfrxCheckBoxView Name="CheckBox5" AllowVectorExport="True" Left="378,18" Top="5,06961000000001" Width="37,7953" Height="34,01577" OnBeforePrint="CheckBox1OnBeforePrint" OnContentChanged="CheckBox1OnContentChanged" OnMouseEnter="CheckBox2OnMouseEnter" OnMouseLeave="CheckBox2OnMouseLeave" CheckColor="0" Checked="False" CheckStyle="csCross" Frame.Color="16777215" Frame.Typ="15"/>
    </TfrxMasterData>
    <TfrxHeader Name="Header1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="44,78710907" Left="0" Top="192,75603" Width="718,1107">
      <TfrxMemoView Name="Memo18" AllowVectorExport="True" Left="0" Top="0" Width="718,1107" Height="43,51051333" Font.Charset="1" Font.Color="0" Font.Height="-29" Font.Name="Arial" Font.Style="0" Frame.Color="16777215" Frame.Typ="12" Fill.BackColor="15514769" HAlign="haCenter" Highlight.ApplyFont="False" Highlight.Font.Charset="1" Highlight.Font.Color="255" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Condition="&#60;Line&#62; mod 2 = 0" Highlight.FillType="ftBrush" Highlight.Fill.BackColor="16112578" Highlight.Frame.Typ="0" ParentFont="False" Text=""/>
      <TfrxMemoView Name="Memo7" AllowVectorExport="True" Left="371,05846" Top="0" Width="275,08154" Height="18,89765" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="0" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Click to chose"/>
      <TfrxMemoView Name="Memo8" AllowVectorExport="True" Left="370,62094" Top="20" Width="56,69295" Height="18,89765" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text="Excelent"/>
      <TfrxMemoView Name="Memo9" AllowVectorExport="True" Left="446,08094" Top="20" Width="49,13389" Height="18,89765" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text="Good"/>
      <TfrxMemoView Name="Memo10" AllowVectorExport="True" Left="521,53094" Top="20" Width="49,13389" Height="18,89765" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text="Fair"/>
      <TfrxMemoView Name="Memo11" AllowVectorExport="True" Left="596,99094" Top="20" Width="49,13389" Height="18,89765" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" Frame.Typ="0" HAlign="haCenter" ParentFont="False" Text="Poor"/>
    </TfrxHeader>
    <TfrxFooter Name="Footer1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="170,07885" Left="0" Top="389,29159" Width="718,1107">
      <TfrxMemoView Name="Memo16" AllowVectorExport="True" Left="122,5" Top="115,50000001" Width="241,66666667" Height="50,83333333" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Click to load"/>
      <TfrxMemoView Name="Memo12" AllowVectorExport="True" Left="7,55906" Top="3,77953000000002" Width="217,28517333" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-16" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Your comments (Alt + Click): "/>
      <TfrxMemoView Name="Memo14" AllowVectorExport="True" Left="7,55906" Top="132,28355" Width="105,82684" Height="26,45671" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="Arial" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="Signature: "/>
      <TfrxMemoView Name="Memo15" AllowVectorExport="True" Left="453,64" Top="132,28355" Width="256,73684" Height="26,45671" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="Arial" Font.Style="1" Frame.Typ="0" ParentFont="False" Text="Date: [Now]"/>
      <TfrxPictureView Name="Picture2" AllowVectorExport="True" Left="120,94496" Top="113,3859" Width="245,89645" Height="56,69295" OnPreviewClick="Picture1OnPreviewClick" Frame.Typ="0" KeepAspectRatio="False" HightQuality="False" Transparent="False" TransparentColor="16777215"/>
      <TfrxMemoView Name="Memo13" AllowVectorExport="True" Left="7,55906" Top="27,29004333" Width="702,81778" Height="83,14966" OnMouseEnter="Memo13OnMouseEnter" OnMouseLeave="Memo13OnMouseLeave" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Underlines="True" UnderlinesTextMode="ulmUnderlinesAll" Text=""/>
    </TfrxFooter>
    <TfrxChild Name="Child1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="41,64" Left="0" Top="325,03958" Width="718,1107" ToNRows="0" ToNRowsMode="rmTillPageEnds">
      <TfrxMemoView Name="Memo19" Align="baClient" AllowVectorExport="True" Left="0" Top="0" Width="718,1107" Height="41,64" Font.Charset="1" Font.Color="0" Font.Height="-29" Font.Name="Arial" Font.Style="0" Frame.Typ="0" Fill.BackColor="15780518" HAlign="haCenter" Highlight.ApplyFont="False" Highlight.Font.Charset="1" Highlight.Font.Color="255" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Condition="&#60;Line&#62; mod 2 = 0" Highlight.FillType="ftBrush" Highlight.Fill.BackColor="16112578" Highlight.Frame.Typ="0" ParentFont="False" Text=""/>
    </TfrxChild>
  </TfrxReportPage>
</TfrxReport>
