Unit1.pas
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:2k
源码类别:

RichEdit

开发平台:

Delphi

  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   TeEngine, Series, ExtCtrls, TeeProcs, Chart, TeeFunci, PtblRV,
  6.   RVStyle, RVScroll, RichView, StdCtrls,
  7.   ChartItem;
  8. type
  9.   TForm1 = class(TForm)
  10.     Chart1: TChart;
  11.     Series1: TPieSeries;
  12.     TeeFunction1: TAverageTeeFunction;
  13.     RichView1: TRichView;
  14.     RVStyle1: TRVStyle;
  15.     RVPrint1: TRVPrint;
  16.     Button1: TButton;
  17.     Chart2: TChart;
  18.     Series2: THorizBarSeries;
  19.     Series3: THorizBarSeries;
  20.     Label1: TLabel;
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure Button1Click(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28. var
  29.   Form1: TForm1;
  30. implementation
  31. {$R *.DFM}
  32. procedure TForm1.FormCreate(Sender: TObject);
  33. var item: TRVChartItemInfo;
  34. begin
  35.   // Filling charts
  36.   Chart1.Series[0].Add(1,'1',clTeeColor);
  37.   Chart1.Series[0].Add(2,'2',clTeeColor);
  38.   Chart1.Series[0].Add(3,'3',clTeeColor);
  39.   Chart1.Series[0].Add(4,'4',clTeeColor);
  40.   Chart2.Series[0].Add(1,'1',clTeeColor);
  41.   Chart2.Series[0].Add(2,'2',clTeeColor);
  42.   Chart2.Series[0].Add(3,'3',clTeeColor);
  43.   Chart2.Series[0].Add(4,'4',clTeeColor);
  44.   Chart2.Series[1].Add(4,'4',clTeeColor);
  45.   Chart2.Series[1].Add(3,'3',clTeeColor);
  46.   Chart2.Series[1].Add(2,'2',clTeeColor);
  47.   Chart2.Series[1].Add(1,'1',clTeeColor);
  48.   RichView1.AddNL('Printing example',1,1);
  49.   RichView1.AddBreak;
  50.   item := TRVChartItemInfo.CreateEx(RichView1.RVData, Chart1, rvvaBaseline);
  51.   item.ParaNo := 1;
  52.   RichView1.AddItem('',item);
  53.     RichView1.AddBreak;
  54.   item := TRVChartItemInfo.CreateEx(RichView1.RVData, Chart2, rvvaBaseline);
  55.   item.ParaNo := 1;
  56.   RichView1.AddItem('',item);
  57.   RichView1.AddBreak;
  58.   RichView1.AddNL('END OF DOC',0,0);
  59.   RichView1.Format;
  60. end;
  61. procedure TForm1.Button1Click(Sender: TObject);
  62. begin
  63.   RVPrint1.AssignSource(RichView1);
  64.   RVPrint1.FormatPages(rvdoAll) ;
  65.   RVPrint1.Print('Chart',1,False) ;
  66. end;
  67. end.