Multiline GET

[Maverich]

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 | Expand

#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 CENTERreturn .T.*-------------------------------*FUNCTION test(oRes,nKey)   if nKey == 107            // "+"      oRes:cText( oRes:cText()+"altra riga"+CRLF+" ")      Tone(400,1)      oRes:GoBottom()   endifreturn 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

[Enrico Maria Giordano]

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 | Expand

#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 NILSTATIC FUNCTION ADDTEXT( oGet )    oGet:Append( "This is a test" + CRLF )    RETURN NILSTATIC FUNCTION ADDLINE( oGet, nKey )    IF nKey = 107        SYSREFRESH()        oGet:Append( CRLF )    ENDIF    RETURN NIL

EMG

[Maverich]

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