Re: how to read pic from rve

Return to index

Author

Message

andro

Posted: 07/18/2003 20:28:20

thanks

"Sergey Tkachenko" <[email protected]> wrote in message

news:[email protected]...

> The procedure below calls the procedure ProcessPicture(gr: TGraphic) for

> each

> picture in the document.

>

>

> uses RVTable, CRVData;

>

> procedure EnumPictures(RVData: TCustomRVData);

> var i, r, c: Integer;

>      table: TRVTableItemInfo;

>      PicName: String;

>      PicTag: Integer;

>      PicVAlign: TRVVAlign;

>      gr: TGraphic;

> begin

>   for i := 0 to RVData.ItemCount-1 do

>     case RVData.GetItemStyle(i) of

>       rvsPicture, rvsHotPicture:

>         begin

>            RVData.GetPictureInfo(i, PicName, gr,

>              PicVAlign, PicTag);

>            ProcessPicture(gr);

>         end;

>       rvsTable:

>         begin

>           table := TRVTableItemInfo(RVData.GetItem(i));

>           for r := 0 to table.Rows.Count-1 do

>             for c := 0 to table.Rows[r].Count-1 do

>               if table.Cells[r,c]<>nil then

>                 EnumPictures(table.Cells[r,c].GetRVData);

>         end;

> end;

>

>

> > hi;

> >

> > i have a .rtf document with some picture, and i like to extract only

> picture

> > from the document. can i found a function to do that something like

> > GetPicture(PicNo: integer): TGraphic;

> >

> > TIA

> >

> >

>

>

>

>