Insertar un texto en un get Memo desde un menu setkey

[lubin]

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 :

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. 
 

Gracias, espero poder activarlo
Lubin

[Antonio Linares]

Lubin,

En source\classes\mget.prg en el método Paste() prueba a cambiar:

::SendMsg( WM_PASTE )

con:

::PostMsg( WM_PASTE )

[lubin]

Gracias Antonio
Problema resuelto... quizas una consulta cual es la diferencia entre ambas funciones
Saludos y Gracias.