RichTextBox

[52501]

Hi all,
I've defined a new class for include RichtextBox OLEControl in my application. It work fine but I can't set scrollbars property. Runtime I can read property using oRTB.Object.Scrollbars, but this property is readonly during runtime. Any ideas?

define class OLERTB as container
value=""
add object oRTB as OLERTB1 with top=0,left=0


proc Init
this.oRTB.width=this.width
this.oRTB.height=this.height
endproc

proc value_assign
LPARAMETERS xValue
this.oRTB.textRTF=xValue
endproc

proc value_access
return this.oRTB.Text
endproc

Proc Resize
this.oRTB.width=this.width
this.oRTB.height=this.height
return
endproc

enddefine

define class OLERTB1 as OLEControl
caption='OLERTB'
OLETypeAllowed=-2
OLEClass="RICHTEXT.RichtextCtrl.1"
visible=.t.
rightmargin=10000
scrollbars=3
enddefine