xbrowse bLDblClick y edición de columnas [solucionado]

[manuelcalerosolis]

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.

[FranciscoA]

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

[nageswaragunupudi]

Code: Select all

#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 nil
 

[manuelcalerosolis]

Intento 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

[cnavarro]

Manuel, es :bLDClickData, busca la información sobre el XBrowse en el wiki

http://wiki.fivetechsoft.com/doku.php?i ... xbrwcolumn

[nageswaragunupudi]

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.

[cnavarro]

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.

Mr Rao, you are right
( s ) in datas it is a fantastic functionality, but I do not remember her usually

[manuelcalerosolis]

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