Consulta sobre Numero Maximo Caracteres en Tmemo

[Fernando Hernandez]

Buenas a todos
Existe alguna propiedad de como limitar el ancho maximo de un campo memo tal
como nMaxLenght.
Si no lo hay por ahora estoy usando el evento OnChange asi :
METHOD AvisoChange( oSender ) CLASS xAvisos
if len(::oAviso:value) >400
::oAviso:Value := Substr(::oAviso:Value,1,400)
Endif
::oGroupBox5:cText := 'Detalle del Mensaje
('+Transform(len(::oAviso:value),'999') +' de 400 Caractéres)'
RETURN Nil
El problema es que el cursor me lo regresa al inicio del texto y no me lo
deja al final, si en caso no existe otra forma de como limitar el ancho del
campo, existirá otra que le indique que tiene que regresar el cursor al
final del texto cuando corto el ancho a 400 caracteres.
Quedo a la espera de sus comentarios


Attached files

[ignacio]

Fernando,
El problema es que la propiedad nMaxLength ha sido pasada a PROTECTED en la
clase TMemo. Podrías redeclarar la propiedad como PUBLIC en la clase TMemo y
así modificarlo a tu antojo.
Un saludo,
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:[email=46cc4b88@ozsrv2.ozlan.local...]46cc4b88@ozsrv2.ozlan.local...[/email]
> Buenas a todos
>
> Existe alguna propiedad de como limitar el ancho maximo de un campo memo
> tal como nMaxLenght.
>
> Si no lo hay por ahora estoy usando el evento OnChange asi :
>
> METHOD AvisoChange( oSender ) CLASS xAvisos
> if len(::oAviso:value) >400
> ::oAviso:Value := Substr(::oAviso:Value,1,400)
> Endif
> ::oGroupBox5:cText := 'Detalle del Mensaje
> ('+Transform(len(::oAviso:value),'999') +' de 400 Caractéres)'
> RETURN Nil
>
> El problema es que el cursor me lo regresa al inicio del texto y no me lo
> deja al final, si en caso no existe otra forma de como limitar el ancho
> del campo, existirá otra que le indique que tiene que regresar el cursor
> al final del texto cuando corto el ancho a 400 caracteres.
>
> Quedo a la espera de sus comentarios
>
>

[Fernando Hernandez]

Ok, gracias y solucionado.
Pero en el futuro podria quedar como parte de las propiedades standard sin
necesidad de incluir la clase Tmemo como parte del proyecto ??
Esto para versiones futuras.
Saludos
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:46cc62d2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Fernando,
>
> El problema es que la propiedad nMaxLength ha sido pasada a PROTECTED en
> la clase TMemo. Podrías redeclarar la propiedad como PUBLIC en la clase
> TMemo y así modificarlo a tu antojo.
>
> Un saludo,
>
> "Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
> news:[email=46cc4b88@ozsrv2.ozlan.local...]46cc4b88@ozsrv2.ozlan.local...[/email]
>> Buenas a todos
>>
>> Existe alguna propiedad de como limitar el ancho maximo de un campo memo
>> tal como nMaxLenght.
>>
>> Si no lo hay por ahora estoy usando el evento OnChange asi :
>>
>> METHOD AvisoChange( oSender ) CLASS xAvisos
>> if len(::oAviso:value) >400
>> ::oAviso:Value := Substr(::oAviso:Value,1,400)
>> Endif
>> ::oGroupBox5:cText := 'Detalle del Mensaje
>> ('+Transform(len(::oAviso:value),'999') +' de 400 Caractéres)'
>> RETURN Nil
>>
>> El problema es que el cursor me lo regresa al inicio del texto y no me lo
>> deja al final, si en caso no existe otra forma de como limitar el ancho
>> del campo, existirá otra que le indique que tiene que regresar el cursor
>> al final del texto cuando corto el ancho a 400 caracteres.
>>
>> Quedo a la espera de sus comentarios
>>
>>
>
>

[notengo]

Fernando,
si no quieres hacer modificaciones en la clase, prueba así­:
oMemo:SetLineNumber( oMemo:GetLineCount() )
Saludos,
José Lalí­n

[ignacio]

Fernando,
Se paso a protected pensando, -equivocadamente-, que todo el mundo querría
utilizar los campos memo con longitud ilimitada. Es posible que vuelva a ser
public en el futuro.
Un saludo,
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:[email=46cc7001@ozsrv2.ozlan.local...]46cc7001@ozsrv2.ozlan.local...[/email]
> Ok, gracias y solucionado.
>
> Pero en el futuro podria quedar como parte de las propiedades standard sin
> necesidad de incluir la clase Tmemo como parte del proyecto ??
>
> Esto para versiones futuras.
>
> Saludos
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:46cc62d2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Fernando,
>>
>> El problema es que la propiedad nMaxLength ha sido pasada a PROTECTED en
>> la clase TMemo. Podrías redeclarar la propiedad como PUBLIC en la clase
>> TMemo y así modificarlo a tu antojo.
>>
>> Un saludo,
>>
>> "Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
>> news:[email=46cc4b88@ozsrv2.ozlan.local...]46cc4b88@ozsrv2.ozlan.local...[/email]
>>> Buenas a todos
>>>
>>> Existe alguna propiedad de como limitar el ancho maximo de un campo memo
>>> tal como nMaxLenght.
>>>
>>> Si no lo hay por ahora estoy usando el evento OnChange asi :
>>>
>>> METHOD AvisoChange( oSender ) CLASS xAvisos
>>> if len(::oAviso:value) >400
>>> ::oAviso:Value := Substr(::oAviso:Value,1,400)
>>> Endif
>>> ::oGroupBox5:cText := 'Detalle del Mensaje
>>> ('+Transform(len(::oAviso:value),'999') +' de 400 Caractéres)'
>>> RETURN Nil
>>>
>>> El problema es que el cursor me lo regresa al inicio del texto y no me
>>> lo deja al final, si en caso no existe otra forma de como limitar el
>>> ancho del campo, existirá otra que le indique que tiene que regresar el
>>> cursor al final del texto cuando corto el ancho a 400 caracteres.
>>>
>>> Quedo a la espera de sus comentarios
>>>
>>>
>>
>>
>
>