Unit1.cpp
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:2k
- /*=============================================================================}
- { This demo show how to use information about hypertext item. }
- {------------------------------------------------------------------------------}
- { Key methods: }
- { - GetJumpPointItemNo; }
- { - methods for obtaining information about items (see first demo in this }
- { group. }
- { Useful if text is self-describing (for example, for WWW addresses). }
- {=============================================================================*/
- #include <vclvcl.h>
- #pragma hdrstop
- #include "Unit1.h"
- //---------------------------------------------------------------------------
- #pragma link "RichView"
- #pragma link "RVScroll"
- #pragma link "RVStyle"
- #pragma resource "*.dfm"
- TForm1 *Form1;
- //---------------------------------------------------------------------------
- __fastcall TForm1::TForm1(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::FormCreate(TObject *Sender)
- {
- RichView1->AddNL("Hypertext",1,1);
- RichView1->AddNL("Some text styles can be chosen as hypertext styles. ",0,0);
- RichView1->AddNL("Like this one.",4,-1);
- RichView1->AddNL(" You can have as many hypertext styles as you want. ",0,-1);
- RichView1->AddNL("Here is one more.",5,-1);
- RichView1->AddNL("Images from Image Lists also can be hypertext: ",0,0);
- RichView1->AddHotspotEx("Pen Image", 0,1, ImageList1, -1);
- RichView1->AddNL(" Such images are called 'hotspots'.",0,-1);
- RichView1->AddNL("Normal images also can be hypertext: ",0,0);
- TIcon* ico = new TIcon;
- ico->Assign(Image1->Picture->Graphic);
- RichView1->AddHotPicture("Bobo", ico, -1, rvvaBaseline);
- RichView1->Format();
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::RichView1Jump(TObject *Sender, int id)
- {
- int ItemNo = RichView1->GetJumpPointItemNo(id);
- Panel1->Caption = AnsiString("Clicked: ")+RichView1->GetItemText(ItemNo);
- }
- //---------------------------------------------------------------------------