Re: AppendRVFfromStream into Table Cell

Return to index

Author

Message

Sergey Tkachenko

Posted: 10/06/2003 16:44:36

Color parameter of TCustomRVData.AppendRVFFromFile is an output parameter.

Create var Color: TColor and call

Cell_data.AppendRVFFromStream(Stream,0,Color,nil);

>

> on "nil" as TRVBackGround compiler wrote "Types of actual and formal var

parameters

> must be identical"

>

> programm text:

>             table := TRVTableItemInfo(RV_dest.GetItem(0));

>             Stream := TMemoryStream.Create;

>             RV_src.SaveRVFToStream(Stream, False);

>             Stream.Position := 0;

>             Cell_data:=Table.cells[0,0].GetRVData;

>             Cell_data.AppendRVFFromStream(Stream,0,clBlack,nil);

>             Stream.Free;