Trabajando con xBrowse trato de conseguir el siguiente comportamiento.
Al hacer doble click sobre ciertas columnas quiero q se lance la edici贸n del registro en un dialogo, pero si hago doble-click sobre una columna editable, edite el valor de esa columna.
Esto lo consigo, pero cuando termino la edici贸n de esa columna con la tecla RETURN, despu茅s lanza el evento bLDblClick, de xBrowse, y eso no me interesa.
驴 Como puedo evitar que se propague y me lance el evento bLDblClick ?
Muchas gracias.
Manuel, intenta con cualquiera de las siguientes lineas:
WITH OBJECT oBrw
:bLDblClick := {|| if(oBrw:SelectedCol:cHeader $ "DESCRIP;TOTAL;VDESC", MsgInfo("Tu Function-Dialog"),) }
:bLDblClick := {|| if(oBrw:SelectedCol:nEditType = 0, MsgInfo("Tu Function-Dialog"),) }
Saludos
#include "fivewin.ch"
function Main()
local oDlg, oBrw
USE CUSTOMER NEW
DEFINE DIALOG oDlg SIZE 700,400 PIXEL TRUEPIXEL
@ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg DATASOURCE "CUSTOMER" ;
AUTOCOLS CELL LINES NOBORDER
WITH OBJECT oBrw
:nEditTypes := EDIT_GET
:bLDClickDatas := { || oBrw:EditSource() } // or { || youreditfunction() }
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
return nilIntento usar la variable blDClickDatas pero lo que obtengo es un error, he mirado en la clase TXBrowse y esa variable no existe.
Message not found: TXBROWSE:BLDCLICKDATAS
I try to use the blDClickDatas variable but what I get is an error, I looked in the TXBrowse class and that variable does not exist.
Message not found: TXBROWSE:BLDCLICKDATAS
Thanks.
FW version 17.0.5
Manuel, es :bLDClickData, busca la informaci贸n sobre el XBrowse en el wiki
My sample works with FWH 17.05 also.
"nEditType" and "bLDClickData" are DATAS of TXBrwColumn.
When we suffix "s" to any column DATA and use it with XBrowse, it is translated and applied to all columns of the browse.
oBrw:nEditTypes := <n> is equivalent to AEval( oBrw:aCols, { |o| o:nEditType := <n> } )
Sameway,
oBrw:bLDClickDatas := <b> is equivalent to AEval( oBrw:aCols, { |o| o:bLDClickData := <b> } )
If you copied and code from the forum and pasted in your editor, please make sure that the <space> after the character ":" is removed. Normally this causes errors.
nageswaragunupudi wrote:My sample works with FWH 17.05 also.
"nEditType" and "bLDClickData" are DATAS of TXBrwColumn.
When we suffix "s" to any column DATA and use it with XBrowse, it is translated and applied to all columns of the browse.
oBrw:nEditTypes := <n> is equivalent to AEval( oBrw:aCols, { |o| o:nEditType := <n> } )
Sameway,
oBrw:bLDClickDatas := <b> is equivalent to AEval( oBrw:aCols, { |o| o:bLDClickData := <b> } )
If you copied and code from the forum and pasted in your editor, please make sure that the <space> after the character ":" is removed. Normally this causes errors.
Siguiendo con este problema, descubro q no es tema de bLDblClick, sino de KeyDown(), yo tengo asignada a la tecla VK_RETURN una acci贸n.
Esta acci贸n se lanza cuando termino la edici贸n sobre una columna con la tecla VK_RETURN, pero no se como detener esta propagaci贸n hacia el m茅todo KeyDown(), si la edici贸n es realmente en una sola columna.
case nKey == VK_RETURN
if( !empty( ::oController ), ::oController:Edit(), )
Saludos