Re: Saving / Loading RTF Tables format changes **** HELP ~***

Author

Message

Sergey Tkachenko

Posted: 11/13/2002 23:19:27

Try the following functions:

procedure TRichViewEditEx.WriteData(Stream: TStream);

var StartPos,Size: Integer;

begin

Size := 0;

StartPos := Stream.Position;

Stream.WriteBuffer(Size, SizeOf(Size));

SaveRVFToStream(Stream, False);

Size := Stream.Position-SizeOf(Size)-StartPos;

Stream.Position := StartPos;

Stream.WriteBuffer(Size, SizeOf(Size));

Stream.Position := StartPos+SizeOf(Size)+Size;

end;

procedure TRichViewEditEx.ReadData(Stream: TStream);

var Size: Integer;

MemStream: TMemoryStream;

begin

MemStream := TMemoryStream.Create;

try

Stream.ReadBuffer(Size, SizeOf(Size));

MemStream.SetSize(Size);

Stream.ReadBuffer(MemStream.Memory^, Size);

LoadRVFFromStream(MemStream);

finally

MemStream.Free;

end;

"Mike" <[email protected]> wrote in message

news:[email protected]...

> Hi I am using your control as a back drop of a form designer. Using the

> built in procedures in delphi for dynamically storing the dfm of a file.

> to a database.

> So I added this to a new control decended from yours

> procedure TRichViewEditEx.DefineProperties(Filer: TFiler);

> begin

> Filer.DefineBinaryProperty('Data', ReadData, WriteData, True);

> end;

> procedure TRichViewEditEx.WriteData(Stream: TStream);

> var M:TMemoryStream;

> begin

> M := TMemoryStream.Create;

> Try

> SaveRVFToStream(M,False);

> If M.Size > 0 then begin

> Stream.CopyFrom(M,0);

> end;

> Finally

> M.Free;

> end;

> procedure TRichViewEditEx.ReadData(Stream: TStream);

> begin

> Clear;

> LoadRVFFromStream(Stream);

> Format;

> end;

> I do not use this control at design time. Only at RUN time. The forms dfm

> data

> is streamed dynamically from a database blob field.

> This extended Richivew has it's own Style control created internally

> Please if you can think of anything

> Only a day to go before release, and I am working late>>>>>

> HELP !!!!!

> Mike

> --

> WorkSmart Ltd

> Tel: 01908 394 361

> Fax: 01908 394 360

> ============================================================

> This email message and any accompanying attachments may contain

> information that is confidential. If you are not the intended recipient,

> not read, disseminate, distribute or copy this message or attachments.

> If you have received this message in error, please notify the sender

> immediately and delete this message.

> Before opening any attachments, please check them for viruses and defects.

> ============================================================

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

> news:[email protected]...

> > Settings are correct.

> > Can you give me a code that saves and loads RVF?

> >