topic-366

Board index All products support Multiline GET

Posts: 31

Joined: Sun Oct 09, 2005 08:29 PM

Multiline GET
Posted: Tue Nov 01, 2005 06:56 PM

Non riesco a far funzionare una get multiline.
Il mio scopo è correggere la calcolatrice Dutch.prg dei samples, dove i risultati vengono visualizzati appunto su una multiline get che dovrebbe scorrere verso l'alto, ma non lo fa.
In pratica ogni volta che premo un operatore artimetico viene aggiunta una riga, però malgrado sia inserito un oggetto:goBottom il cursore rimane sempre in cima alla get, e costringe ogni volta a scorrere alla fine della get per vedere l'ultimo risultato.
Ho riassunto nell'esempio minimale che allego il problema.

Code: Select all Collapse

#include "FiveWin.ch"

function Main()
	local oRes, cRes, oDlg

	DEFINE DIALOG oDlg SIZE 205, 260

	@ 0.1, 0.5 GET oRes VAR cRes OF oDlg ;
	MULTILINE ;
	SIZE 95, 45 RIGHT

	ores:bKeyDown := { | nKey | test(oRes,nKey)}

	ACTIVATE DIALOG oDlg CENTER
return .T.

*-------------------------------*

FUNCTION test(oRes,nKey)
	if nKey == 107		      // "+"
		oRes:cText( oRes:cText()+"altra riga"+CRLF+" ")
		Tone(400,1)
		oRes:GoBottom()
	endif

return NIL

In questo esempio premendo il tasto + viene aggiunta una riga; funziona ma i CRLF non vengono eseguiti (nel senso che rimane il simbolo dell'a capo ma non va a capo, non so perchè). Se metto una oggetto:refresh gli a capo funzionano, ma il cursore ritorna in testa.

Come risolvere il problema?
saluti

Riccardo

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: Multiline GET
Posted: Wed Nov 02, 2005 12:54 PM

Eccoti un esempio funzionante. Spero di aver capito bene ciò che ti serve. Ti ho messo due possibilità, una con un pulsante e una digitando direttamente:

Code: Select all Collapse

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oGet, cVar := ""

    DEFINE DIALOG oDlg;
           SIZE 400, 200

    @ 1, 1 GET oGet VAR cVar MEMO OF oDlg;
           SIZE 100, 50

    oGet:bKeyDown = { | nKey | ADDLINE( oGet, nKey ) }

    @ 4, 1 BUTTON "&Add text" ACTION ADDTEXT( oGet )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION ADDTEXT( oGet )

    oGet:Append( "This is a test" + CRLF )

    RETURN NIL


STATIC FUNCTION ADDLINE( oGet, nKey )

    IF nKey = 107
        SYSREFRESH()
        oGet:Append( CRLF )
    ENDIF

    RETURN NIL

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Maverich

Posts: 31

Joined: Sun Oct 09, 2005 08:29 PM

ok!
Posted: Tue Nov 08, 2005 07:26 AM

Grazie Enrico!
Il problema è stato corretto nella maniera da te indicata.
a presto.

Riccardo

FiveTech Support Forums

Continue the discussion