,

Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community

RICHTEXT.RichtextCtrl (OpenInsight 32-Bit)

At 27 AUG 2008 02:41:18AM Barry Stevens wrote:

How do I change the font for an OLE RICHTEXT.RichtextCtrl.

I need to display the output from direct_print (file redirection) - (say) Courier New. Was going to 'grow my own' dispaly screen.

btw: if any other suggestions

At 28 AUG 2008 01:02AM Barry Stevens wrote:

OK, researched and got it working. Could not get the method to work - - send_message- and actually guessed the alternative.

rv=Set_Property( @window : '.OLECONTROL_1', 'Font' , "Courier New")

call Send_Message (@window : '.OLECONTROL_1', "LOADFILE", "C:\Services.txt")

Text=get_property(@window : '.OLECONTROL_1', "Text")

rv=Set_Property( @window : '.OLECONTROL_1', 'SelStart',0)

rv=Set_Property( @window : '.OLECONTROL_1', 'SelLength',len(Text))

rv=Set_Property( @window : '.OLECONTROL_1', 'SelFontSize',10)

*call Send_Message (@window : '.OLECONTROL_1', "SELECTNONE")

rv=Set_Property( @window : '.OLECONTROL_1', 'SelStart',0)

rv=Set_Property( @window : '.OLECONTROL_1', 'SelLength',0)

View this thread on the Works forum...