Podrías hacer un form con tantos textboxes como renglones necesites, por
ejemplo 6 renglones y haciendo que no se pueda ingresar al campo memo nada
más que lo que escribiste en los renglones.
Ejemplo:
** evento load del form
create cursor curLineas(texto M)
** Evento click de un botón grabar
set memowidth to 500 && le das al campo memo un ancho suficiente para que
quepan líneas largas
Local cTexto,cLinea
Append Blank in curLineas
for i = 1 to 6
cTexto = [thisform.text]+alltrim(str(i))+[.value]
cLinea = alltrim(&cTexto)+Chr(13)
replace curLineas.texto with cLinea additive
endfor
En el ejemplo, el usuario va escribiendo el texto en los textboxes del form.
Cuando da click sobre el botón grabar, el código anterior graba las 6 líneas
en el campo memo y solamente esas 6 líneas. Si el usuario no puede acceder
al campo memo más que con ese form, lo que hiciste fue efectivamente limitar
el número de líneas que se pueden ingresar en dicho campo memo.
Algo así hice para poner leyendas al pie de facturas, en un lugar muy
limitado del formulario de la factura (en mi caso eran leyendas de no más de
4 renglones)
Rafael Copquin
----- Original Message -----
From: Norberto Mario Alvarez
To: GUFA List Member
Sent: Tuesday, January 06, 2009 2:07 PM
Subject: [spam] [GUFA] Limitar Lineas en Campo Memo
Estimados colisteros, es posible limitar la cantidad de líneas en un campo
Memo (sin importarme el ancho del texto ó de cada Linea). Gracias y buen
año para todos.
Norberto Alvarez
Socio # 1892
