get variabile lunga su più righe

Moderator: Enrico Maria Giordano

get variabile lunga su più righe

Postby max » Wed Oct 15, 2008 10:23 am

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  RUN
local mVARIABILE:=space(80)
@ 1,1 get mVARIABILE picture "@!" SIZE 100,100 PIXEL
User avatar
max
 
Posts: 128
Joined: Fri Jun 30, 2006 2:14 pm
Location: Ancona - Italy

Re: get variabile lunga su più righe

Postby Enrico Maria Giordano » Wed Oct 15, 2008 10:47 am

Eccoti un esempio funzionante:

Code: Select all  Expand view  RUN
#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
User avatar
Enrico Maria Giordano
 
Posts: 8725
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia


Return to All products support

Who is online

Users browsing this forum: No registered users and 5 guests