Re: how to read pic from rve

Return to index

Author

Message

Sergey Tkachenko

Posted: 07/16/2003 11:35:38

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

>

>