home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / 3RDPARTY / ReportBuilder / UTEEPIP.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.9 KB  |  78 lines
  1. unit uteepip;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ppClass, ppCtrls, ppBands, ppEndUsr, TeEngine, Series, ExtCtrls,
  8.   TeeProcs, Chart, ppViewr, StdCtrls, Buttons;
  9.  
  10. type
  11.   TFormTeePiparti = class(TForm)
  12.     ppReport1: TppReport;
  13.     ppReport1HeaderBand1: TppHeaderBand;
  14.     ppReport1DetailBand1: TppDetailBand;
  15.     ppReport1FooterBand1: TppFooterBand;
  16.     ppReport1Image1: TppImage;
  17.     Chart1: TChart;
  18.     Series1: TBarSeries;
  19.     BitBtn1: TBitBtn;
  20.     ppReport1Image2: TppImage;
  21.     procedure ppReport1Image1Print(Sender: TObject);
  22.     procedure FormCreate(Sender: TObject);
  23.     procedure BitBtn1Click(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   FormTeePiparti: TFormTeePiparti;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TFormTeePiparti.ppReport1Image1Print(Sender: TObject);
  38. var tmp:TBitmap;
  39.     tmpMeta:TMetafile;
  40. begin
  41.     { method 1: bitmap }
  42.     tmp:=TBitmap.Create;
  43.     try
  44.       tmp.Width:=Chart1.Width;
  45.       tmp.Height:=Chart1.Height;
  46.       Chart1.Color:=clWhite;
  47.       Chart1.BevelOuter:=bvNone;
  48.       Chart1.Draw(tmp.Canvas,Rect(0,0,tmp.width,tmp.Height));
  49.       Chart1.Color:=clBtnFace;
  50.       Chart1.BevelOuter:=bvRaised;
  51.       ppReport1Image1.Picture.Assign(tmp);
  52.     finally
  53.       tmp.Free;
  54.     end;
  55.  
  56.     { method 2:  metafile }
  57.     Chart1.Printing:=True;
  58.     tmpMeta:=Chart1.TeeCreateMetafile(True,Rect(0,0,Chart1.Width,Chart1.Height));
  59.     try
  60.       ppReport1Image2.Picture.Assign(tmpMeta);
  61.     finally
  62.       tmpMeta.Free;
  63.       Chart1.Printing:=False;
  64.     end;
  65. end;
  66.  
  67. procedure TFormTeePiparti.FormCreate(Sender: TObject);
  68. begin
  69.   Series1.FillSampleValues(6);  { <-- random values }
  70. end;
  71.  
  72. procedure TFormTeePiparti.BitBtn1Click(Sender: TObject);
  73. begin
  74.   ppReport1.PrintReport;
  75. end;
  76.  
  77. end.
  78.