TTXTEDIT ReadOnly ?

[MGA]

Can as read only TTXTEDIT?

thanks

[Antonio Linares]

SGS,

You can easily modify Class TTxtEdit to support readonly mode:

1. Add a new DATA lReadOnly INIT .F.

2. In Method KeyChar() add:

Code: Select all  Expand view

METHOD KeyChar( nKey, nFlags ) CLASS TTxtEdit

   local cLastToken, nColor

   if Len( ::aLines ) == 0
      ::aLines = { "" }
      ::Refresh()
   endif

   if ::lReadOnly   // new !!!
       return nil
   endif

   ...
 

[MGA]

muito obrigado Senhor Antonio!