Re: AV when load RTF file

Return to index

Author

Message

Yernar

Posted: 02/11/2003 18:09:17

unit main;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  RVStyle, RVScroll, RichView;

type

  TRTFForm = class(TForm)

    RVStyle1: TRVStyle;

    procedure FormCreate(Sender: TObject);

  private

  public

  end;

var

  RTFForm: TRTFForm;

implementation

{$R *.DFM}

procedure TRTFForm.FormCreate(Sender: TObject);

var

  RTFRichView, NonVisibleRichView: TRichView;

begin

  NonVisibleRichView := TRichView.Create(nil);

  RTFRichView := TRichView.Create(Self);

  try

    NonVisibleRichView.Parent := RTFForm;

    NonVisibleRichView.Style := RVStyle1;

    NonVisibleRichView.Visible := False;

    NonVisibleRichView.LoadRTF('aaa.rtf');

    RTFRichView.Parent := RTFForm;

    RTFRichView.Style := RVStyle1;

    RTFRichView.Align := alClient;

    RTFRichView.Visible := True;

    RTFRichView.AppendFrom(NonVisibleRichView);

  finally

    NonVisibleRichView.Free;

  end;

end;

end.