-----Messaggio Originale-----
Da: "Enrico Maria Giordano" <e.m.giord...@emagsoftware.it>
A: "Harbour Project Main Developer List." <harbour@harbour-project.org>
Data invio: domenica 22 febbraio 2009 18.12
Oggetto: Re: [Harbour] TGet: setting cursor position to ::nMaxLen + 1
Third problem. I'd want something like this:
#include "Hbclass.ch"
#xcommand OVERRIDE METHOD <!Message!> [IN] CLASS <!Class!> WITH [METHOD] ;
<!Method!> [SCOPE <Scope>] => ;
__clsModMsg( <Class>():classH, #<Message>, @<Method>(), ;
IIF( <.Scope.>, <Scope>, HB_OO_CLSTP_EXPORTED ) )
FUNCTION MAIN()
LOCAL GetList := {}
LOCAL cVar := SPACE( 35 )
OVERRIDE METHOD _Pos CLASS GET WITH EMAG_SetPos
@ 1, 1 GET cVar
GetList[ 1 ]:SetFocus()
GetList[ 1 ]:Pos = 5
GetList[ 1 ]:Display()
READ
RETURN NIL
STATIC FUNCTION EMAG_SETPOS( nPos )
LOCAL Self := QSELF()
IF nPos > ::nMaxLen
::nPos = nPos
::TypeOut := .T.
ELSE
RETURN ::SetPos( nPos )
ENDIF
RETURN nPos
but I get the following error:
Error BASE/1004 Message not found: GET:SETPOS
Called from __ERRRT_SBASE(0)
Called from GET:ERROR(0)
Called from (b)HBOBJECT(0)
Called from GET:MSGNOTFOUND(0)
Called from GET:SETPOS(0)
Called from GET:_POS(41)
Called from GET:SETFOCUS(0)
Called from MAIN(28)
Any ideas?
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
