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

RichEdit

开发平台:

Delphi

  1. /*=============================================================================}
  2. { This demo show how to use information about hypertext item.                  }
  3. {------------------------------------------------------------------------------}
  4. { Key methods:                                                                 }
  5. { - GetJumpPointItemNo;                                                        }
  6. { - methods for obtaining information about items (see first demo in this      }
  7. {   group.                                                                     }
  8. { Useful if text is self-describing (for example, for WWW addresses).          }
  9. {=============================================================================*/
  10. #include <vclvcl.h>
  11. #pragma hdrstop
  12. #include "Unit1.h"
  13. //---------------------------------------------------------------------------
  14. #pragma link "RichView"
  15. #pragma link "RVScroll"
  16. #pragma link "RVStyle"
  17. #pragma resource "*.dfm"
  18. TForm1 *Form1;
  19. //---------------------------------------------------------------------------
  20. __fastcall TForm1::TForm1(TComponent* Owner)
  21.     : TForm(Owner)
  22. {
  23. }
  24. //---------------------------------------------------------------------------
  25. void __fastcall TForm1::FormCreate(TObject *Sender)
  26. {
  27.   RichView1->AddNL("Hypertext",1,1);
  28.   RichView1->AddNL("Some text styles can be chosen as hypertext styles. ",0,0);
  29.   RichView1->AddNL("Like this one.",4,-1);
  30.   RichView1->AddNL(" You can have as many hypertext styles as you want.  ",0,-1);
  31.   RichView1->AddNL("Here is one more.",5,-1);
  32.   RichView1->AddNL("Images from Image Lists also can be hypertext: ",0,0);
  33.   RichView1->AddHotspotEx("Pen Image", 0,1, ImageList1, -1);
  34.   RichView1->AddNL(" Such images are called 'hotspots'.",0,-1);
  35.   RichView1->AddNL("Normal images also can be hypertext: ",0,0);
  36.   TIcon* ico = new TIcon;
  37.   ico->Assign(Image1->Picture->Graphic);
  38.   RichView1->AddHotPicture("Bobo", ico, -1, rvvaBaseline);
  39.   RichView1->Format();
  40. }
  41. //---------------------------------------------------------------------------
  42. void __fastcall TForm1::RichView1Jump(TObject *Sender, int id)
  43. {
  44.   int ItemNo = RichView1->GetJumpPointItemNo(id);
  45.   Panel1->Caption = AnsiString("Clicked: ")+RichView1->GetItemText(ItemNo);
  46. }
  47. //---------------------------------------------------------------------------