Hello Viktor
Viktor Szakáts wrote:
>
> Could you post sample code and an RTE message possibly
> with line number? It would help locating the problem.
>
The appln just crashes. No hb_out.log is generated.
No error.log is generated. Here is the code.
#include 'memoedit.ch'
#include 'setcurs.ch'
#include 'inkey.ch'
Function Editmemo()
Local cText := 'This is initial text'
Local lEditMode := .F.
DO WHILE .T.
cText := MEMOEDIT( cText, 3,6,20,76, lEditMode, "EditFunc", 50 )
if lastkey() == 27
exit
endif
ENDDO
Return nil
//----------------------------------------------------------------------//
Function EditFunc( nMode, nRow, nCol )
Local nKey := Lastkey()
STATIC nLoop := 0
DO CASE
CASE nMode == ME_INIT
nLoop++
DO CASE
CASE nLoop == 1 // Set insert mode
SetCursor( SC_SPECIAL1 )
RETURN K_INS
CASE nLoop == 2 // End initialization
RETURN ME_DEFAULT
ENDCASE
CASE nMode == ME_IDLE
OTHERWISE
IF nKey == K_INS
IF ReadInsert()
SetCursor(SC_NORMAL)
ELSE
SetCursor(SC_SPECIAL1)
ENDIF
ENDIF
ENDCASE
RETURN ME_DEFAULT
//----------------------------------------------------------------------//
Regards
Pritpal Bedi
--
View this message in context:
http://www.nabble.com/Memoedit%28%29---UserFunc-%3D%3D-YES-and-EDITABLE-%3D%3D-NO-tp22457681p22460095.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
