<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="6.0" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="Demonstrates how to create simple report with TfrxGaugeView component. The component can be used for input and output of data." ReportOptions.LastChange="43088,99652625" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure Gauge1OnContentChanged(Sender: TfrxComponent; ModifyObjects: TList; var Refresh: Boolean);&#13;&#10;var&#13;&#10;  List: TList;&#13;&#10;  View: TfrxMemoView;&#13;&#10;  Gauge: TfrxGaugeView;&#13;&#10;  i: Integer;&#13;&#10;begin&#13;&#10;  View := nil;&#13;&#10;  Gauge := nil;&#13;&#10;  List := PreviewPages.Page[PreviewPages.CurPage].AllObjects;&#13;&#10;  for i := 0 to List.Count - 1 do&#13;&#10;    if (List[i] is TfrxView) then&#13;&#10;    begin&#13;&#10;      if (TfrxView(List[i]).TagStr = 'Gauge1') then&#13;&#10;        View := TfrxMemoView(List[i]);&#13;&#10;      if (TfrxView(List[i]).TagStr = 'Gauge1.1') then&#13;&#10;        Gauge := TfrxGaugeView(List[i]);&#13;&#10;      if (Gauge &#60;&#62; nil) and (View &#60;&#62; nil) then Break;&#13;&#10;    end;&#13;&#10;  if View &#60;&#62; nil then&#13;&#10;  begin&#13;&#10;    TfrxMemoView(View).Text := FloatToStr(TfrxGaugeView(Sender).Gauge.CurrentValue);&#13;&#10;    // thre are two ways to save changes of object to XML&#13;&#10;    // First: Use ModifyObjects list param and add object to the list&#13;&#10;    ModifyObjects.Add(View);&#13;&#10;  end;&#13;&#10;  if Gauge &#60;&#62; nil then&#13;&#10;  begin&#13;&#10;    Gauge.Gauge.CurrentValue := TfrxGaugeView(Sender).Gauge.CurrentValue;&#13;&#10;    // Second: Use PreviewPages.ModifyObject procedure&#13;&#10;    // this method used to apply changes to the selected object and keep prepared report structure&#13;&#10;    // works much faster than ModifyPage&#13;&#10;    PreviewPages.ModifyObject(Gauge);&#13;&#10;  end;&#13;&#10;  // refresh preview&#13;&#10;  Refresh := True;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end.">
  <Datasets>
    <item DataSet="ReportData.CustomersDS" DataSetName="Customers"/>
  </Datasets>
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" Frame.Typ="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
    <TfrxGaugeView Name="Gauge1" Left="36" Top="128" Width="228" Height="80" OnContentChanged="Gauge1OnContentChanged" Frame.Typ="15" Gauge.Kind="gkHorizontal" Gauge.Angle="360" Gauge.MinorScale.Font.Charset="1" Gauge.MinorScale.Font.Color="-16777208" Gauge.MinorScale.Font.Height="-13" Gauge.MinorScale.Font.Name="Tahoma" Gauge.MinorScale.Font.Style="0" Gauge.MinorScale.Ticks.Length="18" Gauge.MinorScale.Ticks.Width="1" Gauge.MinorScale.Ticks.Color="0" Gauge.MinorScale.ValueFormat="%1.0f" Gauge.MinorScale.Visible="True" Gauge.MinorScale.VisibleDigits="False" Gauge.MinorScale.Bilateral="False" Gauge.MajorScale.Font.Charset="1" Gauge.MajorScale.Font.Color="-16777208" Gauge.MajorScale.Font.Height="-13" Gauge.MajorScale.Font.Name="Tahoma" Gauge.MajorScale.Font.Style="0" Gauge.MajorScale.Ticks.Length="25" Gauge.MajorScale.Ticks.Width="2" Gauge.MajorScale.Ticks.Color="0" Gauge.MajorScale.ValueFormat="%1.0f" Gauge.MajorScale.Visible="True" Gauge.MajorScale.VisibleDigits="True" Gauge.MajorScale.Bilateral="False" Gauge.Pointer.BorderWidth="1" Gauge.Pointer.BorderColor="0" Gauge.Pointer.Height="20" Gauge.Pointer.Width="10" Gauge.Pointer.Color="65535" Gauge.PointerKind="pkPentagon" Gauge.Minimum="0" Gauge.Maximum="100" Gauge.MajorStep="25" Gauge.MinorStep="5" Gauge.Margin.Left="20" Gauge.Margin.Top="10" Gauge.Margin.Right="20" Gauge.Margin.Bottom="10" Gauge.CurrentValue="33"/>
    <TfrxGaugeView Name="Gauge2" Left="376" Top="112" Width="112" Height="228" Frame.Typ="15" TagStr="Gauge1.1" Gauge.Kind="gkVertical" Gauge.Angle="360" Gauge.MinorScale.Font.Charset="1" Gauge.MinorScale.Font.Color="-16777208" Gauge.MinorScale.Font.Height="-13" Gauge.MinorScale.Font.Name="Tahoma" Gauge.MinorScale.Font.Style="0" Gauge.MinorScale.Ticks.Length="18" Gauge.MinorScale.Ticks.Width="1" Gauge.MinorScale.Ticks.Color="0" Gauge.MinorScale.ValueFormat="%1.0f" Gauge.MinorScale.Visible="True" Gauge.MinorScale.VisibleDigits="False" Gauge.MinorScale.Bilateral="False" Gauge.MajorScale.Font.Charset="1" Gauge.MajorScale.Font.Color="-16777208" Gauge.MajorScale.Font.Height="-13" Gauge.MajorScale.Font.Name="Tahoma" Gauge.MajorScale.Font.Style="0" Gauge.MajorScale.Ticks.Length="25" Gauge.MajorScale.Ticks.Width="2" Gauge.MajorScale.Ticks.Color="0" Gauge.MajorScale.ValueFormat="%1.0f" Gauge.MajorScale.Visible="True" Gauge.MajorScale.VisibleDigits="True" Gauge.MajorScale.Bilateral="True" Gauge.Pointer.BorderWidth="1" Gauge.Pointer.BorderColor="0" Gauge.Pointer.Width="6" Gauge.Pointer.Color="65535" Gauge.PointerKind="pkBand" Gauge.Minimum="0" Gauge.Maximum="100" Gauge.MajorStep="25" Gauge.MinorStep="5" Gauge.Margin.Left="20" Gauge.Margin.Top="10" Gauge.Margin.Right="20" Gauge.Margin.Bottom="10" Gauge.CurrentValue="33"/>
    <TfrxGaugeView Name="Gauge3" Left="36" Top="264" Width="228" Height="228" Frame.Typ="15" Gauge.Kind="gkCircle" Gauge.Angle="270" Gauge.MinorScale.Font.Charset="1" Gauge.MinorScale.Font.Color="-16777208" Gauge.MinorScale.Font.Height="-13" Gauge.MinorScale.Font.Name="Tahoma" Gauge.MinorScale.Font.Style="0" Gauge.MinorScale.Ticks.Length="15" Gauge.MinorScale.Ticks.Width="1" Gauge.MinorScale.Ticks.Color="0" Gauge.MinorScale.ValueFormat="%1.0f" Gauge.MinorScale.Visible="True" Gauge.MinorScale.VisibleDigits="False" Gauge.MinorScale.Bilateral="False" Gauge.MajorScale.Font.Charset="1" Gauge.MajorScale.Font.Color="-16777208" Gauge.MajorScale.Font.Height="-13" Gauge.MajorScale.Font.Name="Tahoma" Gauge.MajorScale.Font.Style="0" Gauge.MajorScale.Ticks.Length="20" Gauge.MajorScale.Ticks.Width="2" Gauge.MajorScale.Ticks.Color="0" Gauge.MajorScale.ValueFormat="%1.0f" Gauge.MajorScale.Visible="True" Gauge.MajorScale.VisibleDigits="True" Gauge.MajorScale.Bilateral="True" Gauge.Pointer.BorderWidth="1" Gauge.Pointer.BorderColor="0" Gauge.Pointer.Width="6" Gauge.Pointer.Color="65535" Gauge.PointerKind="pkBand" Gauge.Minimum="0" Gauge.Maximum="100" Gauge.MajorStep="10" Gauge.MinorStep="2" Gauge.Margin.Left="0" Gauge.Margin.Top="0" Gauge.Margin.Right="0" Gauge.Margin.Bottom="0" Gauge.CurrentValue="33"/>
    <TfrxGaugeView Name="Gauge4" Left="376" Top="376" Width="228" Height="112" Frame.Typ="15" Gauge.Kind="gkCircle" Gauge.Angle="180" Gauge.MinorScale.Font.Charset="1" Gauge.MinorScale.Font.Color="-16777208" Gauge.MinorScale.Font.Height="-13" Gauge.MinorScale.Font.Name="Tahoma" Gauge.MinorScale.Font.Style="0" Gauge.MinorScale.Ticks.Length="10" Gauge.MinorScale.Ticks.Width="1" Gauge.MinorScale.Ticks.Color="0" Gauge.MinorScale.ValueFormat="%1.0f" Gauge.MinorScale.Visible="True" Gauge.MinorScale.VisibleDigits="False" Gauge.MinorScale.Bilateral="False" Gauge.MajorScale.Font.Charset="1" Gauge.MajorScale.Font.Color="-16777208" Gauge.MajorScale.Font.Height="-13" Gauge.MajorScale.Font.Name="Tahoma" Gauge.MajorScale.Font.Style="0" Gauge.MajorScale.Ticks.Length="15" Gauge.MajorScale.Ticks.Width="2" Gauge.MajorScale.Ticks.Color="0" Gauge.MajorScale.ValueFormat="%1.0f" Gauge.MajorScale.Visible="True" Gauge.MajorScale.VisibleDigits="True" Gauge.MajorScale.Bilateral="False" Gauge.Pointer.BorderWidth="2" Gauge.Pointer.BorderColor="255" Gauge.Pointer.Height="58" Gauge.PointerKind="pkSegment" Gauge.Minimum="0" Gauge.Maximum="100" Gauge.MajorStep="20" Gauge.MinorStep="5" Gauge.Margin.Left="20" Gauge.Margin.Top="10" Gauge.Margin.Right="20" Gauge.Margin.Bottom="10" Gauge.CurrentValue="33"/>
    <TfrxIntervalGaugeView Name="IntervalGauge1" Left="36" Top="528" Width="228" Height="112" Frame.Typ="15" IntervalGauge.Kind="gkHorizontal" IntervalGauge.Angle="180" IntervalGauge.MinorScale.Font.Charset="1" IntervalGauge.MinorScale.Font.Color="-16777208" IntervalGauge.MinorScale.Font.Height="-13" IntervalGauge.MinorScale.Font.Name="Tahoma" IntervalGauge.MinorScale.Font.Style="0" IntervalGauge.MinorScale.Ticks.Length="18" IntervalGauge.MinorScale.Ticks.Width="1" IntervalGauge.MinorScale.Ticks.Color="0" IntervalGauge.MinorScale.ValueFormat="%1.0f" IntervalGauge.MinorScale.Visible="True" IntervalGauge.MinorScale.VisibleDigits="False" IntervalGauge.MinorScale.Bilateral="False" IntervalGauge.MajorScale.Font.Charset="1" IntervalGauge.MajorScale.Font.Color="-16777208" IntervalGauge.MajorScale.Font.Height="-13" IntervalGauge.MajorScale.Font.Name="Tahoma" IntervalGauge.MajorScale.Font.Style="0" IntervalGauge.MajorScale.Ticks.Length="25" IntervalGauge.MajorScale.Ticks.Width="2" IntervalGauge.MajorScale.Ticks.Color="0" IntervalGauge.MajorScale.ValueFormat="%1.0f" IntervalGauge.MajorScale.Visible="True" IntervalGauge.MajorScale.VisibleDigits="True" IntervalGauge.MajorScale.Bilateral="False" IntervalGauge.Pointer.BorderWidth="1" IntervalGauge.Pointer.BorderColor="0" IntervalGauge.Pointer.Height="20" IntervalGauge.Pointer.Width="8" IntervalGauge.Pointer.Color="65535" IntervalGauge.PointerKind="pkTriangle" IntervalGauge.Minimum="0" IntervalGauge.Maximum="100" IntervalGauge.MajorStep="25" IntervalGauge.MinorStep="5" IntervalGauge.Margin.Left="20" IntervalGauge.Margin.Top="10" IntervalGauge.Margin.Right="20" IntervalGauge.Margin.Bottom="10" IntervalGauge.StartValue="33" IntervalGauge.EndValue="83"/>
    <TfrxIntervalGaugeView Name="IntervalGauge2" Left="376" Top="528" Width="228" Height="112" Frame.Typ="15" IntervalGauge.Kind="gkCircle" IntervalGauge.Angle="90" IntervalGauge.MinorScale.Font.Charset="1" IntervalGauge.MinorScale.Font.Color="-16777208" IntervalGauge.MinorScale.Font.Height="-13" IntervalGauge.MinorScale.Font.Name="Tahoma" IntervalGauge.MinorScale.Font.Style="0" IntervalGauge.MinorScale.Ticks.Length="18" IntervalGauge.MinorScale.Ticks.Width="1" IntervalGauge.MinorScale.Ticks.Color="0" IntervalGauge.MinorScale.ValueFormat="%1.0f" IntervalGauge.MinorScale.Visible="True" IntervalGauge.MinorScale.VisibleDigits="False" IntervalGauge.MinorScale.Bilateral="False" IntervalGauge.MajorScale.Font.Charset="1" IntervalGauge.MajorScale.Font.Color="-16777208" IntervalGauge.MajorScale.Font.Height="-13" IntervalGauge.MajorScale.Font.Name="Tahoma" IntervalGauge.MajorScale.Font.Style="0" IntervalGauge.MajorScale.Ticks.Length="25" IntervalGauge.MajorScale.Ticks.Width="2" IntervalGauge.MajorScale.Ticks.Color="0" IntervalGauge.MajorScale.ValueFormat="%1.0f" IntervalGauge.MajorScale.Visible="True" IntervalGauge.MajorScale.VisibleDigits="True" IntervalGauge.MajorScale.Bilateral="False" IntervalGauge.Pointer.BorderWidth="1" IntervalGauge.Pointer.BorderColor="0" IntervalGauge.Pointer.Width="6" IntervalGauge.Pointer.Color="65535" IntervalGauge.PointerKind="pkBand" IntervalGauge.Minimum="0" IntervalGauge.Maximum="100" IntervalGauge.MajorStep="25" IntervalGauge.MinorStep="5" IntervalGauge.Margin.Left="20" IntervalGauge.Margin.Top="10" IntervalGauge.Margin.Right="20" IntervalGauge.Margin.Bottom="10" IntervalGauge.StartValue="20" IntervalGauge.EndValue="67"/>
    <TfrxMemoView Name="Memo1" Left="36" Top="36" Width="404" Height="40" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0" ParentFont="False" Text="Drag indicators with the left mouse button in the preview mode."/>
    <TfrxMemoView Name="Memo2" Left="36" Top="220" Width="228" Height="20" TagStr="Gauge1" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" FillType="ftGlass" Fill.Color="16700346" Fill.Blend="0,2" ParentFont="False" Text="[Gauge1.Gauge.CurrentValue]"/>
    <TfrxMemoView Name="Memo3" Left="36" Top="92" Width="228" Height="36" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="This Gauge linked with Memo and another Gauge by event"/>
  </TfrxReportPage>
</TfrxReport>
