Componentes.Terceros.TRichView/12.0.4/Demos/DelphiUnicode/Tutorial/1 Building a Document/1 Hello World/Unit1.pas

unit Unit1;
{==============================================================================}
{ The simplest application with RichView Package - "Hello World!"              }
{ There are two components on the form:                                        }
{ RichView1: TRichView; - component for displaying text                        }
{ RVStyle1: TRVStyle;   - component for customizing appearance of RichView;    }
{ RichView1.Style is set to RVStyle1;                                          }
{ See more comments in TForm1.FormCreate                                       }
{==============================================================================}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RVScroll, RichView, RVStyle;

type
  TForm1 = class(TForm)
    RVStyle1: TRVStyle;
    RichView1: TRichView;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // This line adds one line of text in RichView.
  RichView1.AddNL('Hello World!', 0, 0);
  // But text will not be displayed yet. You need to call Format method after adding
  // all contents to RichView:
  RichView1.Format;

  // More about AddNL method:
    // The first parameter of the method ('Hello World!') is a text to display
    // The second parameter defines text attributes of added text;
    //  It is an index in collection of text styles (RVStyle1.TextStyles)
    //  You can customize collection of styles using Object Inspector
    // The third parameter defines paragraph attributes of added text;
    //  It is an index in collection of paragraph styles (RVStyle1.ParaStyles)
  // AddNL is one of methods for adding content to RichView (Add*** methods)
  // See "Building RichView Document" topic of help file.
  // These methods append items to RichView. But component is not prepared for
  // displaying data until Format method is called.
end;

end.