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

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

RichEdit

开发平台：

Delphi

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  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. // Drawing left to right arrow
  20. //-----------------------------------------------------------------------------
  21. void DrawArrow(TCanvas* Canvas, int Left, int Top, int Width, int Height)
  22. {
  23.    int midx = Left+Width / 2;
  24.    int midy = Top+Height / 2;
  25.    int one, two;
  26.    if (Width>0)
  27.    {
  28.      one = 1;
  29.      two = -2;
  30.    }
  31.    else
  32.    {
  33.      one = -1;
  34.      two = 2;
  35.    }
  36.    TPoint points[8];
  37.    points[0].x = Left+one;
  38.    points[0].y = Top+3;
  39.    points[1].x = midx;
  40.    points[1].y = Top+3;
  41.    points[2].x = midx;
  42.    points[2].y = Top+1;
  43.    points[3].x = Left+Width+two;
  44.    points[3].y = midy;
  45.    points[4].x = midx;
  46.    points[4].y = Top+Height-2;
  47.    points[5].x = midx;
  48.    points[5].y = Top+Height-4;
  49.    points[6].x = Left+one;
  50.    points[6].y = Top+Height-4;
  51.    points[7].x = Left+one;
  52.    points[7].y = Top+3;
  53.    Canvas->Polyline(points, 7);
  54. }
  55. //-----------------------------------------------------------------------------
  56. // Drawing an icon for page breaks
  57. //-----------------------------------------------------------------------------
  58. void DrawPageIcon(TCanvas* Canvas, int Left, int Top, int Width, int Height)
  59. {
  60.    int LeftS  = Left+2;
  61.    int RightS = Left+Width-4;
  62.    TPoint points[8];
  63.    points[0].x = RightS-3;
  64.    points[0].y = Top;
  65.    points[1].x = LeftS;
  66.    points[1].y = Top;
  67.    points[2].x = LeftS;
  68.    points[2].y = Top+Height;
  69.    points[3].x = RightS;
  70.    points[3].y = Top+Height;
  71.    points[4].x = RightS;
  72.    points[4].y = Top+3;
  73.    points[5].x = RightS-3;
  74.    points[5].y = Top;
  75.    points[6].x = RightS-3;
  76.    points[6].y = Top+3;
  77.    points[7].x = RightS;
  78.    points[7].y = Top+3;
  79.    Canvas->Polyline(points, 7);
  80.    Canvas->Pen->Style = psDot;
  81.    Canvas->Pen->Color = clRed;
  82.    Canvas->MoveTo(Left, Top+Height/2);
  83.    Canvas->LineTo(Left+Width, Top+Height/2);
  84. }
  85. //------------------------------------------------------------------------------
  86. // Drawing a colored rectangle with specified degree of opacity (0..255)
  87. // (quite slow...)
  88. //------------------------------------------------------------------------------
  89. void DrawTrRect(TCanvas* Canvas, const TRect ARect,
  90.                      TColor Color, int Opacity)
  91. {
  92.   RGBQUAD rgb;
  94.   long int Clr = ColorToRGB(Color);
  95.   rgb.rgbRed      = (unsigned char)(Clr & 0x000000FF);
  96.   rgb.rgbGreen    = (unsigned char)((Clr & 0x0000FF00) >> 8);
  97.   rgb.rgbBlue     = (unsigned char)((Clr & 0x00FFFFFF) >> 16);
  98.   rgb.rgbReserved = 0;
  100.   Graphics::TBitmap* bmp = new Graphics::TBitmap;
  101.   bmp->PixelFormat = pf32bit;
  102.   bmp->Width       = ARect.Right-ARect.Left;
  103.   bmp->Height      = ARect.Bottom-ARect.Top;
  104.   bmp->Canvas->CopyRect(Rect(0,0,bmp->Width,bmp->Height), Canvas, ARect);
  106.   int tr = 255 - Opacity;
  107.   for (int i=0; i<bmp->Height; i++)
  108.   {
  109.     RGBQUAD* prgb = (RGBQUAD*)(bmp->ScanLine[i]);
  110.     for (int j=0; j<bmp->Width; j++)
  111.     {
  112.       prgb[j].rgbBlue  = (unsigned char)((prgb[j].rgbBlue*tr  + rgb.rgbBlue*Opacity) / 255);
  113.       prgb[j].rgbGreen = (unsigned char)((prgb[j].rgbGreen*tr + rgb.rgbGreen*Opacity) / 255);
  114.       prgb[j].rgbRed   = (unsigned char)((prgb[j].rgbRed*tr   + rgb.rgbRed*Opacity) / 255);
  115.     }
  116.   }
  117.   Canvas->Draw(ARect.Left, ARect.Top, bmp);
  118.   delete bmp;
  119. }
  120. //---------------------------------------------------------------------------
  121. void __fastcall TForm1::FormCreate(TObject *Sender)
  122. {
  123.   RichView1->AddNL("Example",1,1);
  124.   RichView1->AddNL("This is an example of the new feature - ",0,0);
  125.   RichView1->AddNL("custom drawn text",3,-1);
  126.   RichView1->AddNL(".",0,-1);
  127.   RichView1->AddNL(" Hot link 1 ",4,1);
  128.   RichView1->AddNL(" Hot link 2 ",5,1);
  129.   RichView1->AddBreakEx(1, rvbsLine, clBtnShadow);
  130.   RichView1->AddCheckpoint();
  131.   RichView1->AddNL("Another example - a custom drawing of checkpoints.",0,0);
  132.   RichView1->AddCheckpoint();
  133.   RichView1->AddNL("For example, you can draw a little nice arrow instead of default dotted line.",0,0);
  134.   RichView1->AddBreakEx(1, rvbsLine, clBtnShadow);
  135.   RichView1->AddNL("One more example - a custom displaying of page break",0,0);
  136.   RichView1->PageBreaksBeforeItems[RichView1->ItemCount-1] = true;
  137.   RichView1->Format();
  139.   RichView2->AddNL("Cool Effect - ",2,2);
  140.   RichView2->SetAddParagraphMode(False);
  141.   RichView2->AddNL("Transparent paragraph background.",2,2);
  142.   RichView2->AddNL("example of custom painting of paragraph background",0,2);
  143.   RichView2->SetAddParagraphMode(True);
  144.   for (int i=0; i<=20; i++)
  145.     RichView2->AddNL("This is the example of using of OnDrawParaBack event.",0,0);
  146.   RichView2->Format();
  147. }
  148. //-----------------------------------------------------------------------------
  149. // Should RichView repaint itself if mouse is over text of specified style?
  150. //-----------------------------------------------------------------------------
  151. void __fastcall TForm1::RVStyle1StyleHoverSensitive(TRVStyle *Sender,
  152.       int StyleNo, bool &Sensitive)
  153. {
  154.   if (StyleNo==4 || StyleNo==5)
  155.     Sensitive = true; // (default for other styles)
  156. }
  157. //-----------------------------------------------------------------------------
  158. // Drawing a background of text
  159. //-----------------------------------------------------------------------------
  160. void __fastcall TForm1::RVStyle1DrawTextBack(TRVStyle *Sender,
  161.       TCanvas *Canvas, int StyleNo, int Left, int Top, int Width,
  162.       int Height, TRVTextDrawStates DrawState, bool &DoDefault)
  163. {
  164.   switch (StyleNo)
  165.   {
  166.     case 5:
  167.     {
  168.       // drawing a sunken edge for the 5th style
  169.       RECT r = Bounds(Left,Top,Width,Height);
  170.       if (DrawState.Contains(rvtsHover))
  171.         DrawEdge(Canvas->Handle, &r, BDR_SUNKENOUTER | BF_ADJUST, BF_RECT);
  172.       break;
  173.     }
  174.   }
  175. }
  176. //-----------------------------------------------------------------------------
  177. // Drawing a text
  178. //-----------------------------------------------------------------------------
  179. void __fastcall TForm1::RVStyle1DrawStyleText(TRVStyle *Sender,
  180.       const AnsiString s, TCanvas *Canvas, int StyleNo, int SpaceBefore,
  181.       int Left, int Top, int Width, int Height,
  182.       TRVTextDrawStates DrawState, bool &DoDefault)
  183. {
  184.   if (DrawState.Contains(rvtsSelected))
  185.     return; // default drawing for selected text
  186.   Left += SpaceBefore;
  187.   switch (StyleNo)
  188.   {
  189.     case 0:
  190.     {
  191.       // sunken effect
  192.       Canvas->Font->Color = clBtnHighlight;
  193.       Canvas->TextOut(Left+1,Top+1, s);
  194.       Canvas->Font->Color = clBtnShadow;
  195.       Canvas->TextOut(Left,Top, s);
  196.       DoDefault = false;
  197.       break;
  198.     }
  199.     case 3:
  200.     {
  201.       // raised effect
  202.       Canvas->Font->Color = clBtnHighlight;
  203.       Canvas->TextOut(Left-1,Top-1, s);
  204.       Canvas->Font->Color = clBtnShadow;
  205.       Canvas->TextOut(Left+1,Top+1, s);
  206.       DoDefault = false;
  207.       break;
  208.     }
  209.     case 4:
  210.     {
  211.       if (DrawState.Contains(rvtsHover))
  212.       {
  213.         // hot glow effect
  214.         Canvas->Font->Color = Sender->TextStyles->Items[StyleNo]->HoverColor;
  215.         Canvas->TextOut(Left+1,Top+1, s);
  216.         Canvas->TextOut(Left-1,Top-1, s);
  217.         Canvas->Font->Color = Sender->TextStyles->Items[StyleNo]->Color;
  218.         Canvas->TextOut(Left,Top, s);
  219.         DoDefault = false;
  220.       }
  221.     }
  222.   }
  223. }
  224. //-----------------------------------------------------------------------------
  225. // Drawing checkpoint as arrow icon
  226. //-----------------------------------------------------------------------------
  227. void __fastcall TForm1::RVStyle1DrawCheckpoint(TRVStyle *Sender,
  228.       TCanvas *Canvas, int X, int Y, int ItemNo, int XShift,
  229.       bool RaiseEvent, TControl *Control, bool &DoDefault)
  230. {
  231.   if (RaiseEvent)
  232.     Canvas->Pen->Color = Sender->CheckpointEvColor;
  233.   else
  234.     Canvas->Pen->Color = Sender->CheckpointColor;
  235.   DrawArrow(Canvas, -XShift+2, Y-5, RichView1->LeftMargin-4, 10);
  236.   DoDefault = false;
  237. }
  238. //-----------------------------------------------------------------------------
  239. // Drawing page break as icon
  240. //-----------------------------------------------------------------------------
  241. void __fastcall TForm1::RVStyle1DrawPageBreak(TRVStyle *Sender,
  242.       TCanvas *Canvas, int Y, int XShift, TRVPageBreakType PageBreakType,
  243.       TControl *Control,
  244.       bool &DoDefault)
  245. {
  246.   Canvas->Pen->Color = Sender->PageBreakColor;
  247.   DrawPageIcon(Canvas, -XShift+2, Y-8, 16, 16);
  248.   DoDefault = false;
  249. }
  250. //-----------------------------------------------------------------------------
  251. // Drawing a background of paragraphs
  252. //-----------------------------------------------------------------------------
  253. void __fastcall TForm1::RVStyle1DrawParaBack(TRVStyle *Sender,
  254.       TCanvas *Canvas, int ParaNo, TRect &ARect, bool &DoDefault)
  255. {
  256.   if (ParaNo==2)
  257.   {
  258.     // semi-transparent background for second paragraph style
  259.     DrawTrRect(Canvas, ARect, Sender->ParaStyles->Items[ParaNo]->Background->Color, 150);
  260.     DoDefault = False;
  261.   }
  262. }
  263. //---------------------------------------------------------------------------
  264. void __fastcall TForm1::RichView2Paint(TCustomRichView *Sender,
  265.       TCanvas *Canvas, bool Prepaint)
  266. {
  267.   Canvas->Pen->Color = clRed;
  268.   Canvas->Pen->Width = 3;
  269.   Canvas->Brush->Color = clBlack;
  270.   int x = Sender->ClientWidth-10;
  271.   int y = Sender->ClientHeight-10;
  272.   Canvas->Ellipse(x-10, y-10, x+10, y+10);
  273.   tagRECT r = Bounds(x-10, y-10, 20, 20);
  274.   Canvas->Brush->Style = bsClear;
  275.   Canvas->Font->Color = clRed;
  276.   Canvas->Font->Name  = "Arial";
  277.   Canvas->Font->Style = TFontStyles();
  278.   Canvas->Font->Style << fsBold;
  279.   Canvas->Font->Size = 12;
  280.   DrawText(Canvas->Handle, "!", 1, &r, DT_SINGLELINE | DT_CENTER | DT_VCENTER);
  281. }
  282. //---------------------------------------------------------------------------
  284. void __fastcall TForm1::RichView2RVMouseUp(TCustomRichView *Sender,
  285.       TMouseButton Button, TShiftState Shift, int ItemNo, int X, int Y)
  286. {
  287.   if (X>Sender->ClientWidth-20 && Y>Sender->ClientHeight-20)
  288.     Application->MessageBox("!","!", MB_OK | MB_ICONINFORMATION);
  289. }
  290. //---------------------------------------------------------------------------