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

RichEdit

开发平台:

Delphi

  1. unit Unit1;
  2. {==============================================================================}
  3. { The simplest application with RichView Package - "Hello World!"              }
  4. { There are two components on the form:                                        }
  5. { RichView1: TRichView; - component for displaying text                        }
  6. { RVStyle1: TRVStyle;   - components for customizing appearance of RichView;   }
  7. { RichView1.Style is set to RVStyle1;                                          }
  8. { See more comments in TForm1.FormCreate                                       }
  9. {==============================================================================}
  10. interface
  11. uses
  12.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   RVScroll, RichView, RVStyle;
  14. type
  15.   TForm1 = class(TForm)
  16.     RVStyle1: TRVStyle;
  17.     RichView1: TRichView;
  18.     procedure FormCreate(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24. var
  25.   Form1: TForm1;
  26. implementation
  27. {$R *.DFM}
  28. procedure TForm1.FormCreate(Sender: TObject);
  29. begin
  30.   // This line adds one line of text in RichView.
  31.   RichView1.AddNL('Hello World!', 0, 0);
  32.   // But text will not be displayed yet. You need to call Format method after adding
  33.   // all contents to RichView:
  34.   RichView1.Format;
  35.   // More about AddNL method:
  36.     // First parameter of method ('Hello World!') is a text to display
  37.     // Second parameter defines text attributes of added text;
  38.     //  It is an index in collection of text styles (RVStyle1.TextStyles)
  39.     //  You can customize collection of styles using Object Inspector
  40.     //  (for Delphi 3+, CB 3+)
  41.     // Third parameter defines paragraph attributes of added text;
  42.     //  It is an index in collection of paragraph styles (RVStyle1.ParaStyles)
  43.   // AddNL is one of methods for adding contents to RichView (Add*** methods)
  44.   // See "Building RichView Document" topic of help file.
  45.   // These methods append items to RichView. But component is not prepared for
  46.   // displaying data until Format method is called.
  47. end;
  48. end.