Juan Eugenio Planelles Lazaga

[Juan Planelles]

Uso Fivewin + Harbour Octubre 2009. La rueda del ratón funciona en todos los textos multiguet, pero no hay forma de que funcione en el texto FORMAT GET. No se porqué. ¿Alguien me puede ayudar?. Gracias anticipadas. - Juan -

[Antonio Linares]

Juan,

Te refieres a un GET que no sea multilínea ?

Como habria de moverse ? Hacia los lados ? ó hacia el GET anterior ó al siguiente ?

[Juan Planelles]

Hola Antonio, gracias por interesarte. Me interesa que la rueda del ratón mueva de arriba abajo y al contrario el texto multilínea en FORMAT GET ( de Avendaño, que viene con las descargas ) y no lo consigo. En los textos multilíneas normales va perfecto.

Dime que hago si es posible arreglarlo. Gracias Antonio, saludos: - Juan -

[Juan Planelles]

Hola Antonio, gracias por interesarte. Me interesa que la rueda del ratón mueva de arriba abajo y al contrario el texto multilínea en FORMAT GET ( de Avendaño, que viene con las descargas ) y no lo consigo. En los textos multilíneas normales va perfecto.

Dime que hago si es posible arreglarlo. Gracias Antonio, saludos: - Juan -

[Juan Planelles]

Antonio: A lo mejor me explico mal. Se trata de una variable FORMAT GET tipo MEMO, p.ej., de 40 Kb., expuesta en una ventana, no pasa nada si muevo la rueda arriba y abajo. Pero ese mismo texto en una ventana GET MEMO ( que no sea FORMAT GET ) hace scroll arriba y abajo obedeciendo la rueda del ratón.

[Antonio Linares]

Juan,

Entendido Vamos a revisarlo y te comentamos cuanto antes

saludos!

[Antonio Linares]

Juan,

Con este código, sin necesidad de modificar la Clase TFGet, puedes implementar soporte de la rueda del ratón:

Code: Select all  Expand view

   oFGet:bMouseWheel = { | nKey, nDelta, nXPos, nYPos | MouseWheel( nKey, nDelta, nXPos, nYPos, oFGet ) }        

...

function MouseWheel( nKey, nDelta, nXPos, nYPos, oFGet )

   if nDelta < 0
      oFGet:GoNextLine()
   else
      oFGet:GoPrevLine()
   endif      

return nil
 

Tambien podríamos modificar la Clase TFGet e incluir ese código para que no haga falta añadir ese código a cada objeto oFGet que crees.

De paso comentarte que puedes usar la Clase TRichEdit como alternativa a la Clase TFGet, ya que la Clase TRichEdit está basada en el control RichEdit propio de Windows. Puedes revisar el ejemplo FWH\samples\TestRtf.prg y TestRich.prg para que veas la potencia que te ofrece la Clase TRichEdit

[Juan Planelles]

Antonio: Muchas gracias por el código y por los consejos. Te confirmaré los resultados.
Saludos: - Juan -

[Juan Planelles]

Hola Antonio:

Lo he hecho y no me reconoce " bMouseWheel", así que no está ni como herencia, es que es muy antigua esa libreria.
Si tienes otra solución, me la dices por favor, ya que es lo que me falta para esa edición. Y si no de todas formas he probado RTF y me parece mejor que GTF, lástima no haberlo hecho antes, pero me pondré a la tarea de adaptarlo.

Gracias, saludos: - Juan -

[Antonio Linares]

Juan,

El dato bMouseWheel se implementó en FWH en Noviembre del 2008 (versión 8.11)

Si puedes usar RichEdit es mejor pues es mucho más potente

[Juan Planelles]

Claro está, mi revisión es la de Octubre 2008. Seguiré tu consejo, a RichEdit.
Gracias, saludos: - Juan -