Insertar un texto en un get Memo desde un menu setkey
Posted: Thu Aug 23, 2018 9:38 pm
Buenas tardes
Estoy tratado de hacer lo siguiente:
Tengo un get MEMO con un texto, cuando tiene el foco, presiono el F4 por ejemplo y se activa una funcion para escojer una plalabra,
necesito que esa palabra quede insertado en el Texto del Memo, justo en medio donde se dejo el cursor,
Hasta el momento tengo esto :
Gracias, espero poder activarlo
Lubin
Estoy tratado de hacer lo siguiente:
Tengo un get MEMO con un texto, cuando tiene el foco, presiono el F4 por ejemplo y se activa una funcion para escojer una plalabra,
necesito que esa palabra quede insertado en el Texto del Memo, justo en medio donde se dejo el cursor,
Hasta el momento tengo esto :
Code: Select all
.....
REDEFINE GET oformu_hc VAR Xformu_hc MEMO ID 913 OF oDlg
REDEFINE GET ocondi_hc VAR Xcondi_hc MEMO ID 914 OF oDlg
setkey( VK_F4, {|x,y,z| IF(z:classname="TMULTIGET" .AND. (z:nid=913 .OR. z:nid=914 ), PHC10_FORMULAS(z),nil ) } ) && Esc
REDEFINE BUTTON ID 8011 OF oDlg ACTION (Z_OK:=.T., oDlg:End())
REDEFINE BUTTON ID 8012 OF oDlg ACTION (Z_OK:=.F., oDlg:End())
FUNCTION PHC10_FORMULAS(z)
*************************************
* FUNCION QUE DEBERIA DE INSETAR EL TEXTO A LA VARIABLE MEMO DEL GET....
LOCAL XTEXTO:=""
do case
case z:ind = 913
xtexto := " todo oki "
case Z:ind = 914
xtexto = " falta datos "
endcase
z:Paste( xTexto ) && pego el valor... aveces funciona otras no...
return .t.
Lubin