topic-34790

Posts: 149

Joined: Mon Oct 10, 2005 09:30 AM

Get con caracteres ilimitados
Posted: Mon Oct 30, 2017 11:27 AM

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

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Get con caracteres ilimitados
Posted: Mon Oct 30, 2017 01:53 PM

Manuel:

Podría servirte clase GET tipo Memo?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Get con caracteres ilimitados
Posted: Mon Oct 30, 2017 03:16 PM

Code (fw): Select all Collapse

   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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

manuelcalerosolis

Posts: 149

Joined: Mon Oct 10, 2005 09:30 AM

Re: Get con caracteres ilimitados
Posted: Mon Oct 30, 2017 04:47 PM

Armando,

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

Gracias.

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Get con caracteres ilimitados
Posted: Mon Oct 30, 2017 05:46 PM

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 (fw): Select all Collapse

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

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

manuelcalerosolis

Posts: 149

Joined: Mon Oct 10, 2005 09:30 AM

Re: Get con caracteres ilimitados
Posted: Tue Oct 31, 2017 08:04 AM

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

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Get con caracteres ilimitados
Posted: Tue Oct 31, 2017 04:31 PM

manuelcalerosolis wrote: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 (fw): Select all Collapse

   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()

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

FiveTech Support Forums

Continue the discussion