On Apr 6, 2007, at 10:41 AM, Brendan Murphy wrote: > Terry Ford wrote: >> How would one do that using standard Rb commands? > > Here is a sample piece of code. Note, you have to supply your own > RTF data.
Hmm... Not standard Rb stuff there. > Dim cb as Clipboard > Dim rtfString as string > > ' Create a clipboard object. > cb = new Clipboard > > ' Get the RTF data. > rtfString = getMyRTF GetMyRTF must be a special method, no? > #if TargetWin32 > > ' Add the RTF data to the clipboard. > cb.AddRawData(rtfString, "Rich Text Format") > > #elseif TargetMacOS > > ' Add the RTF data to the clipboard. > cb.AddRawData(rtfString, "RTF ") > > #endif > > ' Put the text on the clipboard. > cb.text = myText With the RTF data followed by the text. Now how would this be different from EditField.copy? Terry _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives: <http://support.realsoftware.com/listarchives/lists.html>
