开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > RichEdit > 查看源码
Unit1.cpp
资源名称：TRichView.v1.9.10.2.rar　[点击查看]
上传用户：daoqigc
上传日期：2021-04-20
资源大小：2795k
文件大小：2k
源码类别：

RichEdit

开发平台：

Delphi

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  7. #include "ChartItem.hpp"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma link "PtblRV"
  11. #pragma link "RichView"
  12. #pragma link "RVScroll"
  13. #pragma link "RVStyle"
  14. #pragma link "ChartItem"
  15. #pragma resource "*.dfm"
  16. TForm1 *Form1;
  17. //---------------------------------------------------------------------------
  18. __fastcall TForm1::TForm1(TComponent* Owner)
  19.     : TForm(Owner)
  20. {
  21. }
  22. //---------------------------------------------------------------------------
  23. void __fastcall TForm1::FormCreate(TObject *Sender)
  24. {
  25.   // Filling charts
  26.   Chart1->Series[0]->Add(1,"1",clTeeColor);
  27.   Chart1->Series[0]->Add(2,"2",clTeeColor);
  28.   Chart1->Series[0]->Add(3,"3",clTeeColor);
  29.   Chart1->Series[0]->Add(4,"4",clTeeColor);
  31.   Chart2->Series[0]->Add(1,"1",clTeeColor);
  32.   Chart2->Series[0]->Add(2,"2",clTeeColor);
  33.   Chart2->Series[0]->Add(3,"3",clTeeColor);
  34.   Chart2->Series[0]->Add(4,"4",clTeeColor);
  35.   Chart2->Series[1]->Add(4,"4",clTeeColor);
  36.   Chart2->Series[1]->Add(3,"3",clTeeColor);
  37.   Chart2->Series[1]->Add(2,"2",clTeeColor);
  38.   Chart2->Series[1]->Add(1,"1",clTeeColor);
  42.   RichView1->AddNL("Printing example",1,1);
  43.   RichView1->AddBreak();
  45.   TRVChartItemInfo* item = new TRVChartItemInfo(RichView1->RVData, Chart1, rvvaBaseline);
  46.   item->ParaNo = 1;
  47.   RichView1->AddItem("",item);
  49.   RichView1->AddBreak();
  51.   item = new TRVChartItemInfo(RichView1->RVData, Chart2, rvvaBaseline);
  52.   item->ParaNo = 1;
  53.   RichView1->AddItem("",item);
  54.   RichView1->AddBreak();
  55.   RichView1->AddNL("END OF DOC",0,0);
  58.   RichView1->Format();
  59. }
  60. //---------------------------------------------------------------------------
  61. void __fastcall TForm1::Button1Click(TObject *Sender)
  62. {
  63.   RVPrint1->AssignSource(RichView1);
  64.   RVPrint1->FormatPages(TRVDisplayOptions()) ;
  65.   RVPrint1->Print("Chart",1,false) ;
  66. }
  67. //---------------------------------------------------------------------------