EvaPig

unit UnitChartHReport;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, QuickRpt, QRCtrls, QrTee, TeeProcs, TeEngine, Chart,

  DBChart, gnugettext;

type

  TFormChartHReport = class(TForm)

    QuickRepChart: TQuickRep;

    PageFooterBand1: TQRBand;

    DetailBand1: TQRBand;

    QRSysDataDate: TQRSysData;

    QRLabelEvaPig: TQRLabel;

    QRChart1: TQRChart;

    QRDBChart1: TQRDBChart;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

procedure SetChartFont(Chart: TCustomChart; FontName: TFontName);

var

  FormChartHReport: TFormChartHReport;

implementation

{$R *.dfm}

procedure SetChartFont(Chart: TCustomChart; FontName: TFontName);

begin

  Chart.BottomAxis.LabelsFont.Name := FontName;

  Chart.BottomAxis.Title.Font.Name := FontName;

  Chart.DepthAxis.LabelsFont.Name := FontName;

  Chart.DepthAxis.Title.Font.Name := FontName;

  Chart.DepthTopAxis.LabelsFont.Name := FontName;

  Chart.DepthTopAxis.Title.Font.Name := FontName;

  Chart.Foot.Font.Name := FontName;

  Chart.LeftAxis.LabelsFont.Name := FontName;

  Chart.LeftAxis.Title.Font.Name := FontName;

  Chart.Legend.Font.Name := FontName;

  Chart.Legend.Title.Font.Name := FontName;

  Chart.RightAxis.LabelsFont.Name := FontName;

  Chart.RightAxis.Title.Font.Name := FontName;

  Chart.SubFoot.Font.Name := FontName;

  Chart.SubTitle.Font.Name := FontName;

  Chart.Title.Font.Name := FontName;

  Chart.TopAxis.LabelsFont.Name := FontName;

  Chart.TopAxis.Title.Font.Name := FontName;

end;

procedure TFormChartHReport.FormCreate(Sender: TObject);

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

  begin

    Font.Name := 'Arial Unicode MS';

    QuickRepChart.Font.Name := 'Arial Unicode MS';

    SetChartFont(QRDBChart1, 'Arial Unicode MS');

  end;

  TranslateComponent(QRChart1);

end;

end.