EvaPig

unit UnitChartVReport;

interface

uses

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

  Dialogs, ExtCtrls, QuickRpt, QRCtrls, grimgctrl, gnugettext;

type

  TFormChartVReport = class(TForm)

    QuickRepChart: TQuickRep;

    PageFooterBand1: TQRBand;

    DetailBand1: TQRBand;

    QRSysDataDate: TQRSysData;

    QRLabelEvaPig: TQRLabel;

    QRGrImageChart: TQRGrImage;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FormChartVReport: TFormChartVReport;

implementation

{$R *.dfm}

procedure TFormChartVReport.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';

  end;

end;

end.