FiveTech Software tech support forums

... } } // color del focus oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|EditNeteo(.f.),oBrw:SetFocus(),oBrw:Refresh(.t.)} oBrw:CreateFromCode() cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 ) Activate Dialog oDlg ...

... For this we need to make some change in the xbrowse.prg: Change: Please locate these lines of code at the end of METHOD LDblClick( nRow, nCol, nKeyFlags )    if nColPos != 0 .and. nRowPos != 0      return ::Super:LDblClick( nRow, nCol, nKeyFlags )   Endifreturn 0  Please make the ...

Comenta esta línea: // oTree:blclicked := { | nRow, nCol, nKeyFlags | oRama:= ::seleccionarRama( oTree, nRow, nCol, nKeyFlags ) } No puedes interferir el funcionamiento por defecto del botón izquierdo en el árbol y en este caso que necesito que al hacer ...

Comenta esta línea:

// oTree:blclicked := { | nRow, nCol, nKeyFlags | oRama:= ::seleccionarRama( oTree, nRow, nCol, nKeyFlags ) }

No puedes interferir el funcionamiento por defecto del botón izquierdo en el árbol

Hola.
Como elimino una rama de un arbol?

Mi arbol se llama ::oTree, lo que hice es posicionarme en la rama que quiero
oItem := ::oTree:hitTest( nRow, nCol, nKeyFlags )
y me imagine que haciendo:
oItem:delete()
se borraria, pero no.

como lo tengo que hacer?
gracias.

... 2 ]:nWidth := 20 oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|/*EditCorrijo(.f.),*/oBrw:Refresh()} oBrw:nHeadStrAligns := AL_CENTER // alinea al centro las cabeceras de columnas oBrw:CreateFromCode() ...

... oBrw:lHScroll := .F. oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|oBrw:Refresh()} oBrw:CreateFromCode() cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 ) // segundo xbrowse @ 161, 3 GROUP oGrp TO 285, 507 ...

now you say i "just" need to "override" Code: METHOD RButtonDown ( nRow, nCol, nKeyFlags ) CLASS YourClass so i need not to handle WM_RBUTTONDOWN :?: Yes. Wherever the parents have standard methods, you override them in your class and if needed return ...

... := 4 oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:bLDblClick := { |nRow,nCol,nKeyFlags|EditoCons(.f.),oBrw:Refresh()} oBrw:CreateFromCode() cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 ) ACTIVATE DIALOG oDlg CENTERED on INIT ...

... while evaluating the codeblock. Please see line no.2038 of window.prg (FWH1805)       return Eval( ::bLDblClick, nRow, nCol, nKeyFlags, Self )  The xbrowse object evaluates the bLDblCkick codeblock with 4 parameters nRow, nCol, nKeyFlags and Self. If we declare the ...

hay 2 Ejemplos: oBrw1:bLDblClick := { |nRow,nCol,nKeyFlags|(VerDisponibilidad(oBrw1),oBrw1:Refresh(),oDlg:End())} REDEFINE XBROWSE oLbx FIELDS cExi_Suca:ma_CodBar,cExi_SucA:ma_des1,Stock_PtoA(),PrecioA_1(); HEADERS "Cod.Barra","Descripcion","Stock","Pr.venta"; ...

... true in the Tcontrol source there are additions of the object ( When moving the items ) display in these methods METHOD LButtonDown( nRow, nCol, nKeyFlags ) CLASS TControl METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TControl METHOD KeyDown( nKey, nFlags ) CLASS TControl METHOD ShowDots( lNotShow ...

... oTree OF oDlg SIZE 170, 300 COLOR Rgb( 128, 128, 128 ), GetSysColor( 5 ) CHECK oTree:nStyle += WS_BORDER oTree:bLClicked := { | nRow, nCol, nKeyFlags | NewClick( nRow, nCol ) } ACTIVATE DIALOG oDlg CENTERED ON INIT ( AddItems( oImageList ), oTree:Expand() ) RELEASE FONT oFnt Return NIL //----------------------------------------------------------------------------// ...

Marc,

return ::Super:MouseMove( nRow, nCol, nKeyFlags )

... ) ::oToolTip := TC5ToolTip():New( 0, 0, 1, 5, Self, .f., CLR_WHITE, RGB(228,229,240), RGB(100,100,100), 2, 2 ) endif METHOD MouseMove( nRow, nCol, nKeyFlags ) of c5calendar found these lines if ::lTooltips if ::oToolTip != nil ::oToolTip:Show( nBottom - 6, nRight - 6, ::acTooltips[ nDia ], Self ...