FiveTech Software tech support forums

avendo uno spazio maggiore disponibile in altezza ma non in larghezza, vorrei gestire la GET di una variabile molto lunga (80 byte) su più righe, in modo che scrivendoci dentro mi vada a capo automaticamente e quindi possa essere visibile tutta per intero impostando una SIZE più stretta ma più alta. Non ci sono riuscito: quando scrivo non riesco a sfruttarla in verticale ma mi scorre sempre orizzontalmente sulla stessa riga, attivando quindi lo scroll orizzontale che invece vorrei evitare.
Ho provato con MULTILINE ma se non erro mi sembra risulti funzionante solo sui campi memo (difatti mi dà errore).
Qualche suggerimento?
grazie.

esempio:

Code: Select all  Expand view

local mVARIABILE:=space(80)
@ 1,1 get mVARIABILE picture "@!" SIZE 100,100 PIXEL


Eccoti un esempio funzionante:

Code: Select all  Expand view

#include "Fivewin.ch"


#define EM_LIMITTEXT 197


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oGet, cVar := SPACE( 80 )

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet VAR cVar MEMO;
           SIZE 100, 30

    oGet:nStyle -= ES_WANTRETURN

    @ 3, 1 BUTTON "&Close" ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             ON INIT oGet:SendMsg( EM_LIMITTEXT, LEN( cVar ), 0 );
             CENTER

    RETURN NIL

EMG