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

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

RichEdit

开发平台：

Delphi

Unit1.cpp：源码内容
  1. /*------------------------------------------------------------------------------
  2.   RVStyle1->ListStyles->Items[0] has two levels -
  3.   0th - imagelistcounter
  4.   1st - imagelist
  5. ------------------------------------------------------------------------------*/
  6. //---------------------------------------------------------------------------
  7. #include <vclvcl.h>
  8. #pragma hdrstop
  10. #include "Unit1.h"
  11. //---------------------------------------------------------------------------
  12. #pragma link "RVEdit"
  13. #pragma link "RichView"
  14. #pragma link "RVScroll"
  15. #pragma link "RVStyle"
  16. #pragma resource "*.dfm"
  17. TForm1 *Form1;
  18. //---------------------------------------------------------------------------
  19. __fastcall TForm1::TForm1(TComponent* Owner)
  20. : TForm(Owner)
  21. {
  22. }
  23. //---------------------------------------------------------------------------
  24. #define text "Text text text. Text text text text. Text text text. Text text text text. Text text text. Text text text text."
  25. void __fastcall TForm1::FormCreate(TObject *Sender)
  26. {
  27.   RichViewEdit1->Clear();
  28.   for (int i=0; i<5; i++)
  29.   {
  30.     RichViewEdit1->SetListMarkerInfo(-1, 0, 0, 1, 0, false);
  31.     RichViewEdit1->Add(text, 3);
  32.     RichViewEdit1->SetListMarkerInfo(-1, 0, 1, 1, 0, false);
  33.     RichViewEdit1->Add(text, 0);
  34.     RichViewEdit1->SetListMarkerInfo(-1, 0, 1, 1, 0, false);
  35.     RichViewEdit1->Add(text, 0);
  36.     RichViewEdit1->SetListMarkerInfo(-1, 0, 1, 1, 0, false);
  37.     RichViewEdit1->Add(text, 0);
  38.   }
  39.   RichViewEdit1->Format();
  40. }
  41. //---------------------------------------------------------------------------
  42. // This event is not used in this demo.
  43. // But if you want to save and load this document in RVF, it is necessary.
  44. // Note: ImageList1->Tag is set to 1, ImageList2->Tag is set to 2.
  45. void __fastcall TForm1::RichViewEdit1RVFImageListNeeded(TCustomRichView *Sender,
  46. int ImageListTag, TCustomImageList *&il)
  47. {
  48.   switch (ImageListTag)
  49.   {
  50.     case 1: il = ImageList1; break;
  51.     case 2: il = ImageList2; break;
  52.   }
  53. }
  54. //---------------------------------------------------------------------------