2013-06-19 07:48

' Check whether QRichEdit has 64kB length limit
     $ESCAPECHARS ON
     DECLARE SUB showinfo
     CREATE form AS QFORM
      CREATE richedit AS QRICHEDIT
      END CREATE
      CREATE button AS QBUTTON
       top=richedit.top+richedit.height+5
       CAPTION="info"
       onclick=showinfo
      END CREATE
     END CREATE
' seems no limit at all in win2000, no influence with or without this sendmessage
     sendmessage richedit.handle, &HC5, 1048576, 0
     DEFSTR s
     DEFINT i
     FOR i=0 TO 1024 'change here to check the length limit
      s=STRING$(1024,"A")
      richedit.addstrings s
     NEXT i

     form.SHOWMODAL
     SUB showinfo
      SHOWMESSAGE("linecount=" & STR$(richedit.linecount) & "\n" & "text length=" _
       & STR$(LEN(richedit.text)))
     END SUB

2013-06-19 07:48