I have been struggling with a font/clipboard problem for four days. The
following script works great on the Mac (Yosemite) and LC 5.5.5 placing text
from a field “preview” onto to a clipboard and then pasted into a word
processing document. The type of font and font size is set from the font menu
in an option button.
But on Windows XP and Windows 8 the Windows app continues to give a Tahoma font
and 9 point size font for all of the fonts when pasted into the Windows version
of Open Office.
I check the clipBoardData with the following command in the message box on both
Mac and Windows versions of LC 5.5.5:
put keys(the clipBoardData)
which yielded:
styles
rtf
unicode
text
So there is styled text on the clipboard.
Here is the button script for adding the contents of field “preview” to the
clipboard. Please note I tried both RTF and htmlText code but neither worked in
Windows
on mouseUp
if field "preview" <> ""
then
set the clipboardData to empty
set the clipboardData["RTF"] to the RTFText of field "preview"
--set the clipboardData["html"] to the htmlText of field “preview” This
gives the same results as RTF
else
answer information "You have no completed form to add to the clipboard."
end if
end mouseUp
I also an option font menu for field “preview” with the following script:
on menuPick pItemName
switch pItemName
case "Select Font and Font Size for MSE in Document"
set the textFont of field "preview" to "Arial"
set the textSize of field "preview" to "12"
break
case "Arial - 10 point"
set the textFont of field "preview" to "Arial"
set the textSize of field "preview" to "10"
break
case "Arial - 11 point"
set the textFont of field "preview" to "Arial"
set the textSize of field "preview" to "11"
break
case "Arial - 12 point"
set the textFont of field "preview" to "Arial"
set the textSize of field "preview" to "12"
break
case "Georgia - 10 point"
set the textFont of field "preview" to "Georgia"
set the textSize of field "preview" to "10"
break
case "Georgia - 11 point"
set the textFont of field "preview" to "Georgia"
set the textSize of field "preview" to "11"
break
case "Georgia - 12 point"
set the textFont of field "preview" to "Georgia"
set the textSize of field "preview" to "12"
break
case "Palatino - 10 point - Mac only"
set the textFont of field "preview" to "Palatino"
set the textSize of field "preview" to "10"
break
case "Palatino - 11 point - Mac only"
set the textFont of field "preview" to "Palatino"
set the textSize of field "preview" to "11"
break
case "Palatino - 12 point - Mac only"
set the textFont of field "preview" to "Palatino"
set the textSize of field "preview" to "12"
break
case "Tahoma - 10 point"
set the textFont of field "preview" to "Tahoma"
set the textSize of field "preview" to "10"
break
case "Tahoma - 11 point"
set the textFont of field "preview" to "Tahoma"
set the textSize of field "preview" to "11"
break
case "Tahoma - 12 point"
set the textFont of field "preview" to "Tahoma"
set the textSize of field "preview" to "12"
break
case "Times New Roman - 10 point"
set the textFont of field "preview" to "Times New Roman"
set the textSize of field "preview" to "10"
break
case "Times New Roman - 11 point"
set the textFont of field "preview" to "Times New Roman"
set the textSize of field "preview" to "11"
break
case "Times New Roman - 12 point"
set the textFont of field "preview" to "Times New Roman"
set the textSize of field "preview" to "12"
break
case "Verdana - 10 point"
set the textFont of field "preview" to "Verdana"
set the textSize of field "preview" to "10"
break
case "Verdana - 11 point"
set the textFont of field "preview" to "Verdana"
set the textSize of field "preview" to "11"
break
case "Verdana - 12 point"
set the textFont of field "preview" to "Verdana"
set the textSize of field "preview" to "12"
break
end switch
end menuPick
I also viewed LC business academy short lesson on clipboard but it does not
provide any clues on how to solve this problem. In fact, it actually takes
text from a Word (Mac) document and then pastes it into a LC field, which is
not the same thing here.
I would appreciate any help to solve this problem.
Sent from my iPad
_______________________________________________
use-livecode mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
