Textboxes are still writable when memo.readonly is set TRUE

Using the OCX version of Textdynamics i use the "editor" as a readonly-viewer of RTF-files from different sources.

That works pretty good with only one exception.

Even with shutting off every "interactive" part by setting memo.readonly and several additional Flags with SetBProp(...) so that not even the InsertCaret is visible, Hyperlinks are working with one-click and so on...

That's great, but there is on flaw i was not able to "shut off".

Perhaps i overlooked something i should have set too, but i suspect it's somekind of flaw / error.

When the RTF conversion (using Premium-Lic) brings textboxes or in my case movable-images to the text, theses images or textboxes are not affected by any of the ususal Flags. Even with all flags set to "readonly, no-selection, no-handlemark, no-nothing..." i can still select the images/boxes.

After selecting the box shows the typical handles and i can move it around and/or resize it any way i like which i should not be allowed according to my settings.

I use the following settings. THIS is a reference to the TextDynamics element itself.

this.setEditorMode(0,1+8+16+32+64+128,4,0)
this.setlayoutMode(1,0,100)


this.setenableFlags(1,0)
this.setDisableFlags(1,1+2+4+8+16+32+64+128+512+1024+2048+4096+8192)


this.memo.Readonly=.T.


this.memo.SetBProp(0,3,1)	&& DisableCaretMarker ON (=nicht sichtbar)
this.memo.SetBProp(0,7,1)	&& Einfacher Klick auf Hyperlink löst aus
this.memo.SetBProp(0,10,1)	&& ReadOnly ON
this.memo.SetBProp(0,19,-1)	&& Schaltet regulären PopUp beim Klicken auf ein Wort AUS


this.memo.SetBProp(1,0,-1)	&& Kein TableResizing
this.memo.SetBProp(1,6,-1)	&& Objekt can be moved
this.memo.SetBProp(1,7,-1)	&& Objekt can be resized in width
this.memo.SetBProp(1,8,-1)	&& Objekt can be resized in height
this.memo.SetBProp(1,9,-1)	&& Objekt can be resized keeping aspect ratio
this.memo.SetBProp(1,10,-1)	&& Object können selektiert werden AUS
this.memo.SetBProp(1,11,-1)	&& Object können nicht gelöscht werden


this.memo.SetBProp(2,0,1)	&& DisableSelection
this.memo.SetBProp(2,1,1)	&& DisableCaret
this.memo.SetBProp(2,2,1)	&& DisableGetFocus


this.memo.SetBProp(6,27,1)	&& Don't display yellow PageNumber Hints on Scrollbar
this.memo.SetBProp(6,28,1)	&& Don't draw ObjectHandleMarkers


this.memo.SetBProp(16,0,-1)	&& keine Anchor um ein movable Bild
this.memo.SetBProp(16,1,-1)	&& keine Anchor um ein movable Bild

Has anyone an idea what's going wrong here? Any suggestions how to shut off this interactivity too?

Thanks and regards
Michael

My above example sets the flags during the init of the object.

During runtime i set the content via SetText(...), after which i experienced the problems that the flags for ReadOnly are ignored...

After playing with it a littlebit more, i found out that using SetText on a MEMO that is flagged READONLY most of the flags originally set to READONLY are automatically resetted which causes the text to be editable again.

Julian, if this behaviour is on purpose, perhaps you could place a comment in the helpfile to SetBProp() so that this behaviour-info is available to all.

Not all flags are resetted, e.g. SetBProp(0,7,1) for hyplink-one-click is still set after SetText().

So, at least under VFP9 SP2 the following sequence in which the flags and text is set is important.

*!* ------- Object.INIT


this.setEditorMode(0,1+8+16+32+64+128,4,0)
this.setlayoutMode(1,0,100)
this.setenableFlags(1,0)
this.memo.SetBProp(0,7,1)	&& SingleClick on Hyperlink triggers OnHyperlink




*!* ------- When setting the content
WITH this.oRTF as WPTDynInt.WPDLLInt
	.clear()
	.textFormat="RTF"
	.settext(1,lcMyRTFtext,"RTF",.T.)


	.memo.SetBProp(0,10,1)	&& ReadOnly ON
	.memo.SetBProp(2,0,1)	&& DisableSelection
	.memo.SetBProp(2,1,1)	&& DisableCaret
	.memo.SetBProp(2,2,1)	&& DisableGetFocus
ENDWITH

Using the SetBProp(...) for ReadOnly, DisableSelection... during INIT will NOT work correctly as ReadOnly is (at least partly) resetted to Editable when using SetText(...) on later occasions.

I don't know if this behaviour is VFP9 only or if it is on purpose, but i can now confirm that with this sequence by setting the readonly-flags again after changing or setting the textcontent a real readonly-display is still possible.

I hope this helps some of you guys out there, because TextDynamic is by far the best rtf/wordprocessing editor-ocx you can find for using in Microsoft Visual Foxpro. So stay tuned for more info on usage with VFP9 here on the forum. :-)

Hi Julian,

thank's for the hint with initially setting the content with an empty string during INIT. That did it.

So for all you folks out there...

When you attempt to make an absolut readonly-not-selectable text, you should be sure to initialize the "editor" during the init-phase with an empty string and set the READONLY / Not-Selectable Flags afterwards.

So in addition to above example code in VFP9 SP2 there is only a minor change:

*!* ------- Object.INIT 


this.setEditorMode(0,1+8+16+32+64+128,4,0) 
this.setlayoutMode(1,0,100) 
this.setenableFlags(1,0) 
this.memo.SetBProp(0,7,1)   && SingleClick on Hyperlink triggers OnHyperlink 


* Initial Empty String into 1st Editor
this.settext(1,"","RTF",.T.) 


*Then make it READONLY and Disable Selection
this.memo.SetBProp(0,10,1)   && ReadOnly ON 
this.memo.SetBProp(2,0,1)   && DisableSelection 
this.memo.SetBProp(2,1,1)   && DisableCaret 
this.memo.SetBProp(2,2,1)   && DisableGetFocus 




*!* ------- When setting the content 
WITH this.oRTF as WPTDynInt.WPDLLInt 
   .clear() 
   .textFormat="RTF" 
   .settext(1,lcMyRTFtext,"RTF",.T.) 


   * no more need to re-set the readonly-flags here




ENDWITH

So... Problem solved.

Thanks and best regards
Michael