Multiline GET
Posted: Tue Nov 01, 2005 6: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.
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
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
#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
Come risolvere il problema?
saluti