Get con caracteres ilimitados

[manuelcalerosolis]

Hola a todos.

Quería saber si existe la posibilidad de q los objetos "TGET" admitan caracteres ilimitados como hace en una web, o sea como hace "TMultiget", pero usando la clase "TGet".

He intentado poniendo pictures del tipo Replicate( "X", 200 ), pero no sirve de nada.

Saludos

[Armando]

Manuel:

Podría servirte clase GET tipo Memo?

Saludos

[karinha]

Code: Select all

   MEMVAR wTEXTO

   wTEXTO := SPACE(1000)

   REDEFINE GET oGet[17] VAR wTEXTO MULTILINE ID 217 OF oDlg  ;
            COLOR CLR_BLUE, CLR_WHITE UPDATE FONT oFont
 

Saludos.

[manuelcalerosolis]

Armando,

No me vale tiene q ser un GET para entendernos de los "noramles"

Gracias.

[armando.lagunas]

hola:

yo utilizo todavia workshop de borland, para hacer lo que necesitas yo utilizo de la siguiente combinación, marco las propiedades segun los circulos rojos y en el programa defino la variable con mas caracteres de los que caben en el get.

Code: Select all

    cNombre := SPACE(250)
    REDEFINE GET oGet VAR cNombre PICTURE "@K" OF oDLG
 

[manuelcalerosolis]

Armando

El problema es q reasignes el valor de la variable, p.e. cNombre := "Paco".

El control no te dejara editar mas de 4 caracteres, este comportamiento es el q quiero evitar gracias.

Saludos.

[armando.lagunas]

Armando

El problema es q reasignes el valor de la variable, p.e. cNombre := "Paco".

El control no te dejara editar mas de 4 caracteres, este comportamiento es el q quiero evitar gracias.

Saludos.

Code: Select all

   cNombre := SPACE(250)
   REDEFINE GET oGet VAR cNombre PICTURE "@K" OF oDLG
...
   cVariable := "Paco"
...
...
cNombre   := cVariable+(Space( ( 250 - Len( cVariable ) ) ) )
oGet:nPos := 1    // creo que es este, si no lo es debe ser oGet:SetPos( 1 )
oGet:Refresh()