DCRTF very slow while closing

[rdonnay]

I have a workaround for you.
Loading some empty text before destroying the RTF ActiveX control appears to solve the problem.

Code: Select all

FUNCTION Displayhelp()
**********************
*Laat help-scherm zien

LOCAL GetList:={}, GetOptions, cMemo, oRTF:=NIL, oDlg

cMemo :=MemoRead('help.rtf')

@ 0,0 DCRTF OBJECT oRTF SIZE 100,30 VAR cMemo ;
      SCROLLBARS XBP_SCROLLBAR_HORIZ + XBP_SCROLLBAR_VERT ;
      APPEARANCE XBP_APPEARANCE_3D ;
      RESIZE DCGUI_RESIZE_RESIZEONLY ;
      LOCKED

DCGETOPTIONS RESIZE
DCREAD GUI FIT TITLE "Helpinformatie" OPTIONS GetOptions NODESTROY PARENT @oDlg

oRTF:text := ' '
oDlg:destroy()

RETURN NIL

[jjelders]

Thank you Roger.

It is really fast now.

It was not only the empty text but alse the oDlg and NODESTROY.