Editar un campo MEMO ** SOLUCIONADO **

[lubin]

Buen dia Foro

Estoy editando un campo Memo para grabar la descripcion tecnica de un producto, usando el campo "xdescrip" usando recursos asi :

REDEFINE GET odescrip VAR xdescrip MEMO ID 925 OF oDlg

Pero tengo algunos problemas:

1. Cuando quiero pasar a la siguiente linea con un ENTER, no puedo hacerlo, solo es posible con el CONTROL-ENTER,
PREGUNTA : es posible pasar a la siguiente linea del texto con solo con el ENTER ???

2. Cuando el GET toma el foco, todo el texto escrito se pone AZUL como si ubiese seleccioando el Texto, y si el usuario comienza a escribir borra todo el texto anterior, la unica forma de continuar es retirando esta seleccion con el curso co con el mouse.
PREGUNTA : hay forma de poner el cursor al final del texto al momento de tomar el focus para evitar la seleccion... ???

3. La cantidad de texto que se puede digitar es unicamente hasta donde alcanza la ventanita del GET, no hace ningun scrooll vertical ni horizonal.. que me permita ingresar textos que sobrepasen la ventana del GET.
PREGUNTA : Como debo hacer para que el texto escrito sobrepase la ventanita del GET MEMO ???

4. Existe alguna otra clase que me permita editar un campo memo.. un texto con mayor performance. ???

NOTA: Estuve usando la Clase Richedit que evitaba estos problemas, e inclusive podia poner diferente tipos de letra e imagenes como un buen editor, inclusive logre guardarlo en MYSQL pero, al final no me sirvio de nada pues nunca encontre la forma de imprimir este texto en un documento en forma de un campo memo..


Les agradecere cualquier ayuda..

Lubin

[Daniel Garcia-Gil]

Lubin

El GET en el recurso lo tienes definido como MULTILINE???

sino has el cambio y prueba todo lo que comentaste

[jrestojeda]

Hola...
Tienes que activar el modo Multilínea, Necesita Retorno y Scroll vertical.

RC con PellesC.

Code: Select all  Expand view

CONTROL "", 116, "Edit", ES_MULTILINE|ES_WANTRETURN|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 341, 264, 244, 89
 

Saludos, Esteban.

[lubin]

Buen dia Daniel

Te comento : En recursos (utilizo Workshop) y tengo activa la opcion : Multiple Line

Por otro lado active el atributo : automatic scroll Vertical y ya puedo digitar mas alla de la ventana, con esto la la Pregunta #3 ya esta resuelta... el Scrroll horizontal lo deje sin marcar para que horizontalmente al acabarse el ancho de la ventana pase autmanticamente a la otra linea.

Me queda pendiente: Pregunta#1 : Pasara a la otra linea solo con el ENTER y Pregunta#2 que no se seleccione el texto al tomar el Foco..


Vamos avanzandoo !!!!!

alguna ideaa.... Bienvenidaa.. !!


Gracias...
Lubin

[lubin]

Buen dia Esteban

Los parametros que indicas seguro que son,, al menos lo del scrooll.. y multiline es correcto... solo que uso workshop.. y ya los comente ,, tendria que ver como hacer lo del ENTER... y la autoseleccion.. que se activa..

Graciass.. por ahi vamoss..


Lubin

[surGom]

Hola Lubin, yo uso el workshop y en el tenés tildar tab-stop y multiple line. Y en código para que no te seleccione el texto odmemo:bstart,etc etc

Code: Select all  Expand view

REDEFINE GET oMem VAR cDato MEMO ID 101 of odMemo;
                   message "Datos varios del cliente" UPDATE;
                   MULTILINE
REDEFINE BUTTON oBut1 ID 103 of odMemo ACTION (lCancel := .f.,odMemo:end());
                  message "Sale y Graba"
REDEFINE BUTTON oBut2 ID 102 of odMemo ACTION (lCancel := .t., odmemo:end());  
                   message "Sale sin grabar"    

   odMemo:bStart := { | | oMem:SetSel(0,0) }

ACTIVATE DIALOG odMemo

Espero sea la solución

Luis

[lubin]

Hola Luis

Con lo que me indicaste, pude lograr que el cursor este al comienzo del Memo y evitar que se seleccione el campo cuando tomaba el Foco,,,
(Pregunta#2 corregido)

Lo hice asi :

REDEFINE GET oMiDescripcion VAR xMiDescripcion MEMO ID 925 OF oDlg WHEN Z_EDIT .and. eval({ |oget| oget:SetSel(0,0),.t. },oMiDescripcion)


Listo amigos solo falta resolver la primera PREGUNTA#1 Como lograr usar el ENTER para pasar a digitar en la siguiente linea del Texto y no el CONTROL+ENTER

Ya Falta Poco...
Gracias.. por todo

Lubin

[lubin]

Buenas tardes con todos

El tema de este Post a sido totalmente SOLUCIONADO, aqui resumo las respuestas :

RESPUESTA : Muchas de ellas estaba en las propiesdades de WorkSHop,
Debemos activar las opciones :
Multiple Line .... Para activar modalidad Memo
Want Return .... Para activar el ENTER y pasar a otra linea...
automatic scroll Vertical .... Para que avance el texto hacia abajo, pasando los limites de la ventanas del Get generando scrooll

Y para poner el cursor al inicio del texto al momento de tomar el focus para evitar la seleccion... tenia que hacer de esta manera el GET:

REDEFINE GET oMiDescripcion VAR xMiDescripcion MEMO ID 925 OF oDlg WHEN Z_EDIT .and. eval({ |oget| oget:SetSel(0,0),.t. },oMiDescripcion)

Se les agradece a todos el apoyo recibido...

Hasta la proxima..
Lubin

[sysctrl2]

que bueno que ya esta tu solucion,
pero si no usas resource?

saludos..

[lubin]

Hola Cesar..

Buena pregunta la tuya...
le di una mirada a la clase y al parecer existen parametros para controlar ello .. ,
al ver la sintaxis del Get en forma de comando ,, bueno habria que probarlo en su momento..

En el fget.ch ..veo que hay parametros para los scrolll..

#command @ <nRow>, <nCol> FORMAT GET [ <oFGet> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ <memo: MULTILINE, MEMO, TEXT> ] ;
[ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ FONT <oFont> ] ;
[ <hscroll: HSCROLL> ] ;
[ CURSOR <oCursor> ] ;
[ <pixel: PIXEL> ] ;
[ MESSAGE <cMsg> ] ;
[ <update: UPDATE> ] ;
[ WHEN <uWhen> ] ;
[ <lCenter: CENTER, CENTERED> ] ;
[ <lRight: RIGHT> ] ;
[ <readonly: READONLY, NO MODIFY> ] ;
[ VALID <uValid> ] ;
[ ON CHANGE <uChange> ] ;
[ <lDesign: DESIGN> ] ;
[ <lNoBorder: NO BORDER, NOBORDER> ] ;
[ <lNoVScroll: NO VSCROLL> ] ;
=> ;
[ <oFGet> := ] TFGet():New( <nRow>, <nCol>, bSETGET(<uVar>),;
[<oWnd>], <nWidth>, <nHeight>, <oFont>, <.hscroll.>,;
<nClrFore>, <nClrBack>, <oCursor>, <.pixel.>,;
<cMsg>, <.update.>, <{uWhen}>, <.lCenter.>,;
<.lRight.>, <.readonly.>, <{uValid}>,;
[\{|nKey, nFlags, Self| <uChange>\}], <.lDesign.>,;
[<.lNoBorder.>], [<.lNoVScroll.>] )

Saludoss

Lubin

[sysctrl2]

vamos a probar,
gracias.