ERROR EN XBROWSE NO FUNCIONA DOBLE CLICK

[Willi Quintana]

HOla Amigos,,,
Utilizao el PellesC para los recursor,,, utilizo el xbrowse, perro al hace un doble click en la última fila que este al final del control, no funciona-
[url=https://imgbb.com/][/ur

[Armando]

Mister:

Aquí no me da problema, funciona bien.

Saludos

[JoseAlvarez]

Trata dejando un poco mas separada la ultima linea del borde de la caja.

[Willi Quintana]

HOla amigos,
Deje un poco mas de espacio entre el xbrowse y el control, funciona, pero no se ve bien (el espacio), algun pequeño ajustes talvez...

[karinha]

Willi, código?

Gracias.

Regards, saludos.

[Willi Quintana]

El codigo:

Code: Select all  Expand view  RUN

       REDEFINE XBROWSE oBrw ;
                DATASOURCE oResVen;    ///                AUTOCOLS ;                AUTOSORT LINES ;
                FASTEDIT LINES ;
                FONT oApp:oFontBrw1 ;   //                          ON CHANGE (oApp:cSeek := "", EVAL(eCodigo), RRefresh(oProd) ) ; //, EVAL(eImg) ) ;
                ID 100 OF oDlg

                oCol := oBrw:AddCol()
                oCol:bStrData      := { || oResVen:RecNo() }         // num correlativo
                oCol:cHeader       := "#"
                oCol:bClrStd       := { || { CLR_GREEN, CLR_WHITE } }
                oCol:nDataStrAlign := AL_LEFT
                oCol:nWidth        := 25

                oCol := oBrw:AddCol()
                oCol:bStrData      := { || oResVen:fecha_doc }
                oCol:cHeader       := "Fecha"
                oCol:bClrStd       := { || { CLR_BLUE, CLR_WHITE } }
                oCol:nDataStrAlign := AL_LEFT
                oCol:nWidth        := 85
....
...
..
.
                oBrw:nMarqueeStyle       := 5 //MARQSTYLE_HIGHLCELL
                oBrw:lAllowRowSizing     := .F.
                oBrw:ltransparent        := .F.
                oBrw:nheaderHeight       := 18 // altura de la cabecera HEADER
                oBrw:nRowHeight          := 20  // altura del prompt
                oBrw:lVScroll            := .t.
                oBrw:lHScroll            := ( .t. )
                oBrw:lRecordSelector     := .F.
                oBrw:lAllowColSwapping   := .F.
                oBrw:lAllowColHiding     := .f.
                oBrw:lColDividerComplete := .t.
                oBrw:nRowDividerStyle    := 4
                oBrw:nStretchCol         := STRETCHCOL_LAST
                oBrw:nColDividerStyle    := 4
                oBrw:l2007               := .t.
                oBrw:lColDividerComplete := .t.
                oBrw:lAdjusted           := .f.
                oBrw:nFreeze             := 6
                oBrw:bClrSel             := { || { ColorClrSel(oResVen), oApp:aGradBarSelFocus } }  // para barra de linea selecc cuando el control no tiene el foco
                oBrw:bClrSelFocus        := { || { ColorClrSel(oResVen), oApp:aGradBarSelFocus } }     // para barra de linea selecc cuando el control tiene el foco
                oBrw:lKinetic            := .f. //oWndSfs:SetFocus(),
                oBrw:bLDblClick          := {|| VerDocumento(oCn, 2, oResVen:tipo, oResVen:documento, oResVen:cod_prov_clie, oResVen:cliente, oResVen:direccion), oBrw:SetFocus() }


 

[karinha]

Willi, intenta si:

Code: Select all  Expand view  RUN

   REDEFINE XBROWSE oBrw  ;
      DATASOURCE oResVen  ;
      FASTEDIT LINES      ;
      FONT oApp:oFontBrw1 ;
      ID 100 OF oDlg      ;
      ON DBLCLICK ( VerDocumento(oCn, 2, oResVen:tipo, oResVen:documento, oResVen:cod_prov_clie, oResVen:cliente, oResVen:direccion ), oBrw:Refresh() )
 

Regards, saludos.

[Willi Quintana]

Estimado Karinha
Igual, no funciona..

[karinha]

Willi, cual és tú versión de FWH? mejor hablar con master Rao.

Saludos.

[JoseAlvarez]

Estimado willi, pienso que el problema es con PELLES
Que control usas para ver el xBrowse?

Listbox o un control personalizado (custom) ??

[Willi Quintana]

MI estimado, como estas...
Utilizao el PellesC, y un control custom... Windows Style 0x50A00000.

[karinha]

Willi, Intenta con:

Code: Select all  Expand view  RUN

 0x50E10000

 0x50210000

 0X50C10000

 0x50D00000 //-> Barra Horizontal

 0x50A00000 //-> Barra Vertical

 0x50B00000 //-> Barra Horizontal e Vertical

Class name: TXBrowse
 

Regards, saludos.

[Willi Quintana]

Mis amigos gracias,,, prove con todo lo señalado y no funciona correctamente.... pero descubrí algo, vean la imagen

[karinha]

Post el .RC de donde está esta XBROWSE(), porfa.

Regards, saludos.

[Ariel]

buenas,
si mal no recuerdo, es o era (tal vez ya se corrigio) un error de vieja data del xbrowse, no recuerdo si se corrigio en las ultimas versiones.

Saludos