unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, plPrev, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    plPrev1: TplPrev;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses ChartUnit;

{$R *.DFM}

//=============================================================================
//  プレビュー開始
//  TChartのメタファイルを作成しそのメタファイルをTplPrevのCanvaにStretchDraw
//  する．縦横比は作成したTChartのメタファイルのものと同じとする．
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  AMeta   : TMetafile;
  R       : TRect;
  ALeft   : Integer;
  ATop    : Integer;
  AWidth  : Integer;
  AHeight : Integer;
begin
  //データをクリアしてからセット
  ChartForm.PieSeries1.Clear;
  ChartForm.PieSeries1.Add(1231, '東京都',   clRed);
  ChartForm.PieSeries1.Add( 881, '大阪府',   clAqua);
  ChartForm.PieSeries1.Add( 869, '神奈川県', $00FFC184);
  ChartForm.PieSeries1.Add( 716, '愛知県',   clYellow);
  ChartForm.PieSeries1.Add( 703, '埼玉県',   clLime);
  ChartForm.PieSeries1.Add(8362, 'その他',   clWhite);

  //Pie(円)のサイズを調整
  ChartForm.PieSeries1.CustomXRadius := 150;
  ChartForm.PieSeries1.CustomYRadius := 130;

  plPrev1.BeginDoc;
  try
     AMeta:= ChartForm.Chart1.TeeCreateMetafile(True, ChartForm.Chart1.ClientRect);
     try
       ALeft   := 200;
       ATop    := 300;
       AWidth  := 1700;
       AHeight := Trunc(AMeta.Height / AMeta.Width*AWidth);

       R := Rect(ALeft, ATop, ALeft + AWidth, ATop + AHeight);
       plPrev1.StretchDrawMetaFile(R, AMeta);

       //枠線
       plPrev1.Canvas.Rectangle(R);
     finally
       FreeAndNil(AMeta);
     end;
  finally
    plPrev1.EndDoc;
  end;
  plPrev1.ShowModal;
end;

end.

unit ChartUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  TChartForm = class(TForm)
    Chart1: TChart;
    PieSeries1: TPieSeries;
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  ChartForm: TChartForm;

implementation

{$R *.DFM}

end.