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

RichEdit

开发平台:

Delphi

  1. unit Unit1;
  2. {==============================================================================}
  3. { This demo shows how to add text in RichView at run-time.                     }
  4. { See comments in TForm1.FormCreate                                            }
  5. {==============================================================================}
  6. interface
  7. uses
  8.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  9.   RVScroll, RichView, RVStyle;
  10. type
  11.   TForm1 = class(TForm)
  12.     RVStyle1: TRVStyle;
  13.     RichView1: TRichView;
  14.     procedure FormCreate(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20. var
  21.   Form1: TForm1;
  22. implementation
  23. {$R *.DFM}
  24. procedure TForm1.FormCreate(Sender: TObject);
  25. begin
  26.   // Clear deletes all items of RichView.
  27.   // There are no items at the beginning, so this call of Clear is
  28.   // just for demonstration.
  29.   RichView1.Clear;
  30.   // Adding the first paragraph.
  31.   // This paragraph has the 1-th style (centered by default; you can view/modify
  32.   // it in RVStyle1.ParaStyles property).
  33.   // This paragraph consists of one item of the 1-th text style
  34.   RichView1.AddNL('Adding Text', 1, 1);
  35.   // Adding the second paragraph.
  36.   // This paragraph has the 0-th style (style is defined by the first item in paragraph).
  37.   RichView1.AddNL('This demo shows how to add text in ', 0, 0);
  38.   // Continuing the second paragraph.
  39.   // Note: -1 is passed as an index of paragraph style.
  40.   // This means that this item will be added to the last paragraph.
  41.   RichView1.AddNL('RichView', 3, -1);
  42.   // Continuing the second paragraph...
  43.   RichView1.AddNL('. There are two paragraphs in this document - '+
  44.                   'the first one with centered alignment, and the second one - '+
  45.                   'with left alignment. The first paragraph consists of one text item, '+
  46.                   'and the second paragraph consists of three items. '+
  47.                   'Each item is added with one call of AddNL method.', 0, -1);
  48.   // But text will not be displayed yet. You need to call Format method after adding
  49.   // all contents to RichView:
  50.   RichView1.Format;
  51. end;
  52. end.