Get Multilinea

[execompu]

De antemano un agradecimiento a Antonio Linares por seguir apoyándonos

Quiero saber como hago para que mi objeto (que representa mi get) que es multilinea, a estar escribiendo en el automáticamente al llegar al final de la derecha se pase hacia abajo para seguir escribiendo.
Tal ves es cualquier cosa pero no se como se hace.

Agradezco el apoyo de este foro.

Y si me pueden ayudar a decidir cual seria el mejor programa para hacer mis reportes se los voy a agradecer mucho.

Atentamente
José Baca Beltrán

[horacio]

No sé si entiendo la pregunta pero me parece que es el comportamiento por defecto de un get multilinea. Si llegas al margen derecho hace un salto de linea y se acomoda a la izquierda para seguir escribiendo.

Saludos

[execompu]

Pues al objeTo le dí ese comportamiento pero se sigue derecho, si pudieran darme un ejemplo estaré muy agradecido

[Daniel Garcia-Gil]

Hola

Agrega la clausula MEMO al get

ejemplo

Code: Select all  Expand view

@1,1 get oGet VAR cVar MEMO SIZE 250,100 OF oWnd

[execompu]

Daniel Gracias ya lo intente sin exito, este es el codigo que puse

Code: Select all  Expand view

  REDEFINE GET oObs VAR vObs MEMO SIZE 150,100 ID 112 OF aVars[1,2]:aDialogs[1];

Que estoy haciendo mal

[jll-fwh]

Hola;

Si quieres hacerlo facil;

El problema sera que en tu recuerso no lo tienes definido como MULTILINE, entonces, para hacerlo facil, abre el fichero de recuerso testmemo.res, y copias el objeto definido como NAME 110 a tu recuerso, lo renombras al ID que tu estas usando, compilas y te funcionara.

Por cierto;

Si estas usando recuersos, no hace falta que le indiques el tamaño, las propiedades ya estan definidas en tu recuerso, en vez de:

Code: Select all  Expand view

REDEFINE GET oObs VAR vObs MEMO SIZE 150,100 ID 112 OF aVars[1,2]:aDialogs[1];

Haz:

Code: Select all  Expand view

REDEFINE GET oObs VAR vObs MEMO OF aVars[1,2]:aDialogs[1];

un saludo
JLL

[jll-fwh]

Borre de mas....esto es.

Code: Select all  Expand view

REDEFINE GET oObs VAR vObs MEMO ID 112 OF aVars[1,2]:aDialogs[1];

un saludo
JLL

[execompu]

Muchas Gracias con esto funciona bien, solo que ahora al escribir no me respeta el limite de caracteres que le indique que es de 100, alguna idea de porque pasa esto

[Armando Picon]

Define el block del memo según la siguiente sentencia:

SET MEMOBLOCK TO 100

Esta línea debes ponerlo al inicio de la creación de tus bases de datos, en cuya estructura existe un campo Memo. No recuerdo exactamente cuanto es la extensión del block desde el inicio del Clipper (desde donde heredó esta característica el harbour)

Armando

[execompu]

bueno en realidad no tengo un campo memo solo que es muy largo y por eso uso la multilinea, el set no funciona para este caso gracias

[jll-fwh]

Hola execompu:

En un objeto GET con multiline lo puedes controlar por ejemplo asi:

Code: Select all  Expand view

   REDEFINE GET oGet VAR cGet MEMO ID 100 OF oDlg FONT oFont

            oGet:bChange := { || if( len( cGet ) >= 10, msginfo( "ha superado el limite de caracteres"), ) }
 

Un saludo
JLL
fwh-jll@hotmail.es

[execompu]

Gracias JLL, con esto resuelvo gran parte de mi problema, solo quiero aclarar que para que estas lineas funcionen al inicializar la variable debe contener cero caracteres y al hacerle cambios la variable debe ser limpiada de espacios en blanco y así poder llegar al limite establecido.
Ejemplo:

Code: Select all  Expand view

// Nuevo registro
vGet := ""
// Cambios al registro
vGet := ALLTRIM( (datos)->campo )
 

ya que si no se hace esto siempre estaría marcando el mensaje de que se llego al limite.

[Daniel Garcia-Gil]

Hola

usa el metodo de la clase LimitText

oGet:LimitText( 100 )

[jll-fwh]

Hola Daniel :

No le comente eso porque lo provee y en mi version no funciona.

En la version FWH812 esto no funciona:

Code: Select all  Expand view

oGet:LimitText( 100 )

En cambio con :bchange funciona correctamente.

Un saludo
JLL