Re: Hiding tables

Author

Message

Sergey Tkachenko

Posted: 07/31/2004 21:07:57

This procedure moves all tables having name 'config' from source to dest.

It may be called after loading the document on source (before calling

source.Format - it calls it itself)

procedure MoveTables(source, dest: TCustomRichView);

var i: Integer;

Stream: TMemoryStream;

table: TRVTableItemInfo;

begin

dest.Clear;

for i := source.ItemCount-1 downto 0 do

if (source.GetItemStyle(i)=rvsTable) and

(source.GetItemText(i)='config') then begin

Stream := TMemoryStream.Create;

TRVTableItemInfo(source.GetItem(i)).SaveToStream(Stream);

table := TRVTableItemInfo.CreateEx(1,1,dest.RVData);

Stream.Position := 0;

table.LoadFromStream(Stream);

Stream.Free;

dest.AddItem(source.GetItemText(i), table);

source.DeleteItems(i,1);

end;

source.Format;

dest.Format;

end;

> There could be several of these - but they are all created by the program,

> so they can have names for identification.

> TIA

> Jim

> "Sergey Tkachenko" <[email protected]> wrote:

> >I can write a code for removing table to another RichView.

> >But how to find this table?

> >If this is a first item in the document, or it's a first table in the

> >document, or it has a special itemname?

> >

> >>

> >> Is it possible to hide and entire table? I want to store some complex

> >annotations

> >> with my main editor, buit when loading the RVF file into a separate

viewer

> >> have this table hidden, so that I can process the note links

dynamically.

> >>

> >> Alternatively, can I, at load time, assign the table to another

richview

> >> and delete it from the viewer? It's not clear how to delete a table

> >programatically.

> >>

> >> Jim

> >