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

RichEdit

开发平台:

Delphi

  1. /*=============================================================================}
  2. { This demo shows how to add images from ImageLists to RichView                }
  3. {=============================================================================*/
  4. #include <vclvcl.h>
  5. #pragma hdrstop
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma link "RichView"
  9. #pragma link "RVScroll"
  10. #pragma link "RVStyle"
  11. #pragma resource "*.dfm"
  12. TForm1 *Form1;
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15. : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::FormCreate(TObject *Sender)
  20. {
  21.   RichView1->Clear();
  22.   RichView1->AddNL("Example of adding bullets", 1, 1);
  23.   // AddTextNL methods can add several paragraphs of text.
  24.   // Paragraphs can be separated with "nr", "r" or "n" characters.
  25.   RichView1->AddTextNL("'Bullets' are images from ImageLists. rn"
  26.                   "'Bullets' provide an efficient way to store graphics in RichView, "
  27.                   "because only a link to ImageList and an index of image are stored "
  28.                   "per 'bullet' in memory.rn"
  29.                   "'Bullets' are useful when you need to add a large number of the "
  30.                   "same picture in RichView: ", 0, 0, 0);
  31.   for (int i = 0; i<10; i++)
  32.     RichView1->AddBulletEx("", 0, ImageList1, -1);
  33.   RichView1->AddNL("You can use as many ImageLists as you wish:",0,0);
  34.   RichView1->AddBulletEx("", 0, ImageList1, -1);
  35.   RichView1->AddBulletEx("", 0, ImageList2, -1);
  36.   RichView1->AddBulletEx("", 1, ImageList1, -1);
  37.   RichView1->AddBulletEx("", 1, ImageList2, -1);
  38.   RichView1->Format();
  39.   // About AddBulletEx:
  40.   // Parameters of this method are similar with parameters of
  41.   // AddPictureEx and AddControlEx:
  42.   // 1st parameter: name of bullet. Allows to hold additional text information
  43.   //  together with bullet. There is no predefined meaning of this
  44.   //  parameter. May be it will be used to display hints in future.
  45.   // 2nd parameter: index of image
  46.   // 3rd parameter: ImageList; RichView holds only link to this image list, not
  47.   // a copy of it;
  48.   // 4th parameter: index of paragraph style (-1 to continue paragraph)
  49. }
  50. //---------------------------------------------------------------------------