Disparar desde código el evento click del Header en xBrowse

[RodMG]

Holaa todos.

Con la finalidad de aprovechar las nuevas funciones del xBrowse quisiera saber si existe alguna manera desde código de simular que se ha dado click izquierdo en una columna del xBrowse, me explico.

En mis aplicaciones normalmente brindo la posibilidad de cambiar el orden del xBrowse con el mouse y con el tablero. Con el mouse ahora es suficiente hacer click sobre el encabezado de la columna y con el TAG asociado a esa columna se logra cambiar el orden. Por medio del tablero tengo asociada una tecla de función que va alternando el orden del xBrowse por los TAGs disponibles. Lo que quiero lograr es asociar a la tecla de función algún código que simule el click en el encabezado de una columna determinada, así podré deshacerme del código que había escrito para este fin y aprovechar las nuevas funciones del xBrowse.

Les agradezco de antemano su ayuda.


Saludos,


Rodolfo MG

[Daniel Garcia-Gil]

Hola RodMG,

para simular el click sobre el encabezado del browse puyedes intentar esto:

Code: Select all  Expand view

SetKey(VK_F12,{|| PostMessage(oBrw:hWnd, ;
                               WM_RBUTTONDOWN, ;
                               VK_F12, ;
                               (1, if ( oBrw:lRecordSelector, 25+1, 1 ) ) ) } )


el 25 + 1, deriva de: 25 el el acho del Record Selector del xbrowse, es decir que si lo tienes habilitado le suma 1 para que se posicione en en header de la 1ra columna...

[RodMG]

Hola, mcfox..

Al final lo he resuelto con la siguiente línea:

oT:oBCli:aCols[ x ]:HeaderLButtonUp( 0, 0, 0 )


Muchas gracias.



Saludos,

Rodolfo MG