Can as read only TTXTEDIT?
thanks
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour TTXTEDIT ReadOnly ?
SGS,
You can easily modify Class TTxtEdit to support readonly mode:
1. Add a new DATA lReadOnly INIT .F.
2. In Method KeyChar() add:
You can easily modify Class TTxtEdit to support readonly mode:
1. Add a new DATA lReadOnly INIT .F.
2. In Method KeyChar() add:
METHOD KeyChar( nKey, nFlags ) CLASS TTxtEdit
local cLastToken, nColor
if Len( ::aLines ) == 0
::aLines = { "" }
::Refresh()
endif
if ::lReadOnly // new !!!
return nil
endif
...muito obrigado Senhor Antonio! 