Re: Merging style objects

Return to index

Author

Message

Sergey Tkachenko

Posted: 11/25/2004 0:06:24

If you want to merge several RichViewEdits in one (or to make them use

common styles), the simplest way to load documents one by one using

InsertRVFFromStream:

procedure AppendDoc(rv: TCustomRichView; const FileName: String);

var  Stream: TFileStream;

begin

  Stream := TFileStream.Create(FileName, fmOpenRead);

  rv.InsertRVFFromStream(Stream, rv.ItemCount);

  Stream.Free;

end;

rv.Clear;

AppendDoc(rv, 'file1.rvf');

AppendDoc(rv, 'file2.rvf');

rv.Format;

> Hi Sergey, i found a post recently where you describe the MergeWith method

> for merging the info lists in 2 style objects.

>

> In my case, i'm interested in switching several rvedits, each of which has

> its own style, to use a shared style.

>

> How can i use the mergeWith methods to accomplish this in the best way?

>

> Thanks,

> Daniel