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 -
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Juan Eugenio Planelles Lazaga
Juan,
Te refieres a un GET que no sea multil铆nea ?
Como habria de moverse ? Hacia los lados ? 贸 hacia el GET anterior 贸 al siguiente ?
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 wrote: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 -
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.
Juan,
Entendido 
Vamos a revisarlo y te comentamos cuanto antes
saludos!
Juan,
Con este c贸digo, sin necesidad de modificar la Clase TFGet, puedes implementar soporte de la rueda del rat贸n:
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
Con este c贸digo, sin necesidad de modificar la Clase TFGet, puedes implementar soporte de la rueda del rat贸n:
聽 聽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 nilTambien 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
Antonio: Muchas gracias por el c贸digo y por los consejos. Te confirmar茅 los resultados.
Saludos: - Juan -
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 -
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
Claro est谩, mi revisi贸n es la de Octubre 2008. Seguir茅 tu consejo, a RichEdit.
Gracias, saludos: - Juan -