-----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 17.29
Oggetto: Re: [Harbour] TGet: setting cursor position to ::nMaxLen + 1
Ok, second problem. Why the following sample doesn't print "Hello"?
#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()
@ 10, 10 SAY "Hallo"
// ::nPos = nPos
RETURN nPos
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
