FiveTech Support Forums

quique wrote:Antonio, como puedo corregir este bug, en el ejemplo que pongo da doble click en el combo box, despues da click en el say y veras que el combo desaparece

Method lDblClick( nRow, nCol, nKeyFlags ) CLASS TComboBox

   If ::lDrag
      ::lButtonDown( nRow, nCol, nKeyFlags )
   EndIf

Return Super:lDblClick( nRow, nCol, nKeyFlags )

Gracias Manuel, tienes razón, el problema no es tan facil, por lo menos para los pobres mortales como yo, pero como comenté en mensajes un poco mas arriba, el problema no es solo con el combobox, son varios controles, de hecho, creo que son todos, aunque algunos no lo reflejan tanto como otros, por ejemplo el say, que de repente falla, de repente no, pero por fin ya encontré la manera de como "parcharlo" para que, por lo menos, no desaparezcan los controles, por lo menos en lo que Antonio resuelve el problema correctamente, aunque no es la solución porque no corrije el problema al 100% ni estética ni operativamente, pero al menos ya es aceptable, lo que no me gusta es que hay que modificar control.prg, y no me gusta modificar los fuentes de fivewin, porque con el paso del tiempo pasa lo que nos pasó cuando trabajaba en grupo SP, que quisimos actualizarnos a xharbour y la ultima versión de fivewin y practicamente tuve que reconstruir varias clases que por las modificaciones que tenían no podían ser actualizadas, prefiero crear mis propias clases heredadas de las de fivewin.

quique wrote:lo que no me gusta es que hay que modificar control.prg, y no me gusta modificar los fuentes de fivewin, porque con el paso del tiempo pasa lo que nos pasó cuando trabajaba en grupo SP, que quisimos actualizarnos a xharbour y la ultima versión de fivewin y practicamente tuve que reconstruir varias clases que por las modificaciones que tenían no podían ser actualizadas, prefiero crear mis propias clases heredadas de las de fivewin.

#include "fivewin.ch"
proc main
local tComboBox1
DEFINE WINDOW oWnd FROM 116,168 TO 379,779 PIXEL TITLE  " Prueba 1"  STYLE 47120384

ModifyControl()

@ 20, 422 COMBOBOX tComboBox1 ITEMS { "tComboBox", "ComboBox" } of oWnd SIZE 90,21 PIXEL STYLE 1419841539  design
@ 77, 18 SAY  "Edad" PIXEL SIZE 44,15                 design   of oWnd
ACTIVATE WINDOW oWnd

Static Function ModifyControl()

   EXTEND CLASS TControl WITH METHOD lDblClick

Return Nil

Static Function lDblClick( nRow, nCol, nKeyFlags )

   Local Self := QSelf()

   If ::lDrag
      ::lButtonDown( nRow, nCol, nKeyFlags )
   EndIf

Return ::oWnd:lDblClick( nRow, nCol, nKeyFlags )

Quique,

Esta solución parece funcionar. El problema se originaba porque en el primer click del doble click, se capturaba el ratón y no se llegaba a enviar un LButtonUp() para completar el proceso.

En la clase TControl añade este método:

METHOD LDblClick( nRow, nCol, nFlags ) INLINE If( ::lDrag, ::LButtonUp( nRow, nCol, nFlags ), Super:LDblClick( nRow, nCol, nFlags ) )

Espero tus comentarios, gracias

Manuel gracias por tu sugerencia, voy a revisar los comandos, aunque de hecho si aprovecho esa cualidad de xharbour, pero utilizo las funciones, me gusta mas utilizar comandos que funciones porque siento que es un poquito mas claro a la hora de revisar el código, si de por si no acostumbro poner comentarios, con funciones menos me ayudo :p

El problema que tengo para poder implementar eso, es que en control.prg se utilizan variables estaticas, y eso no ayuda al momento de querer modificar los métodos.

Quique,

Eso se debe sencillamente a que en el nuevo método no se está evaluando el codeblock bLDblClick. Eso es todo.

Pero tienes que reconocer que el bug ya está solucionado.

No lo vería así, porque estas perdiendo una funcionalidad ¿comprarías un carro nuevo que para que pueda arrancar le quitan la puerta del pasajero? no es una solución porque quitas algo que si se usa, por eso me dí cuenta que no funciona.

Antonio, ¿alguna noticia sobre este tema?

Antonio ¿ya habrás encontrado alguna solución?

Gracias Antonio, creo que ya quedó, queda un efecto de que si al combobox le das doble click no pierde el foco al dar click en el say hasta que das un segundo clic, pero creo que ese es problema del combo, porque con los demas controles que probé no tuve problemas.