dudas Richedit [solucionado]

[mgsoft]

Hola,

Estoy añadiendo RICHEDIT desde recursos así:

REDEFINE RICHEDIT oRtf VAR cObserva ID 20 OF oFld:aDialogs[ 4 ]


Sin embargo, al salvarlo no se guarda el texto:

NOTAS := cObserva


Igualmente, ¿existe algún ejemplo para un Diálogo con los botones de Negrita, Itálica, etc?.

Muchas gracias.

[mgsoft]

Arreglado:

oRTF:LoadAsRTF(cObserva)
oRTF:SetText(cObserva)


Sin embargo, cuando el campo tiene texto al cargado aparece todo seleccionado.

Quiero desactivarlo. He probado con oRtf:lHighLight = .f. sin éxito.

¿Cómo se quita ese efecto?.



Uploaded with ImageShack.us



Muchas gracias.

[mgsoft]

Subido ejemplo:

http://demo.ovh.com/es/81548502201e3f47 ... 73bc8423d/

[Bayron]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=20666&p=109626&hilit=seleccionado#p109626

[mgsoft]

Hola:

Muchas gracias pero sigue igual:

oRich:GotoLine(1)

En el ejemplo que subí puse y no va:

Code: Select all  Expand view

ACTIVATE DIALOG oDlg CENTERED ;
on init ( oRich:SetText( MemoRead( "rtf.prg" ) ), oRich:GotoLine(1),  orich:refresh() )

[mgsoft]

Solucionado gracias a Enrico:

Code: Select all  Expand view

oDlg:bStart = { || oRich:SetPos( 0 ) }