I confirm that application can't be executed because it crash 2009/3/11 Pritpal Bedi <[email protected]>: > > 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 >
-- Massimo Belgrano _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
