But where? Brgds, Viktor On Wed, Mar 11, 2009 at 6:56 PM, Massimo Belgrano <[email protected]>wrote:
> 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 >
_______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
