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

Author

Message

Mike

Posted: 11/13/2002 23:46:32

It did not appear to help. But I have now found that new pages in the

form designer are saving OK, but the old pages even saved in new format

are not.

May be I will have to dump the old designs and redo them hoping all

is well

Mike Thanks for the help!!!!!!!!!!

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, do

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]...

> 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,

> do

> > 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?

> > >

> >