Re: RTF for numbered lists?

Return to index

Author

Message

Sergey Tkachenko

Posted: 03/16/2004 20:07:21

This code copies the contents of Stream: TMemoryStream to the Clipboard:

uses Clipbrd, RVStr;

var mem: Cardinal;

    ptr: Pointer;

     Clipboard.Clear;

     Clipboard.Open;

     mem := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Stream.Size);

     ptr := GlobalLock(mem);

     Move(Stream.Memory^,ptr^,Stream.Size);

     GlobalUnlock(mem);

     Clipboard.SetAsHandle(CFRV_RTF, mem);

     Clipboard.Close;

>

> In exchange, would you show me the code you're using to

> copy the rtf to the clipboard? ;-)

> I'm doing something very similar at the moment (copying a

> url to the clipboard to insert them to a TRichViewEdit),

> but I get strange crashes when

> calling SetClipboardData... I couldn't figure out what's

> wrong.

>

> thanks,

>    Daniel