FiveTech Software tech support forums

hi Antonio,

Codeblock-Slot like these we need, thx
but how is METHOD LButtonUp() called when i click to collaps/enlarge

Request :
also need for DragDrop

Code: Select all  Expand view

METHOD LButtonUp( nRow, nCol )

include DATA lDrag and ::Capture()

Hello Joao,
I found out, that in my case, it is
oGet:lDrag := .t.
which stops ACTION.
Best regards,
Otto

... ] ) end // add lines end ::DispEnd( aInfo ) ::oFont:Deactivate( hDC ) return 0 4. METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TXBrowse ... if ::lDrag return Super:LButtonDown( nRow, nCol, nFlags ) endif // add the lines if nRow < ::HeaderHeight()-if(::lgetbar,::nrowheight*2,0) .and. nCol ...

... drag&drop, con el siguiente código : IF oWnd:ClassName()="TBITMAPINF" ::bRClicked:= { || ( ::lInfinito:=.f., ::Hide(), ::oWnd:lDrag:=.t. ) } ::oWnd:blDblClick := { || ::oWnd:lDrag:=.f., ::lInfinito:=.t., ::Show() } ENDIF Pero estéticamente no me acaba de gustar. Te pongo unas ...

Hi Nages,

I have removed the ADSKEYNO error by adding the following EXTERN commands:
EXTERN ADSKeyNo
EXTERN ADSKeyCount
EXTERN ADSSetRelKeyPos
EXTERN ADSGetRelKeyPos

but still the error on xbrowse:ldrag persists.

Best regards,
ryugarai27

... issue. I am having this error: Error occurred at: 08/31/2018, 17:00:05 Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: LDRAG Args: [ 1] = N -12 Stack Calls =========== Called from: => LDRAG( 0 ) Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETRDD( 4959 ...

In 2017 July, 6th param lDesign was added to the method New, which defaults to .F. and ::lDrag := .f. was changed to ::lDrag := lDesign. Any existing programs, if correctly written, should not have any problem with this change. Prior to this change method New had 5 ...

correct!!

::lDrag = .f.

was remmed .....why?

... secs    Error occurred at: 14-03-2018, 22:02:28   Error description: Error BASE/44  Assigned value is wrong class: TPANEL:LDRAG   Args:     [   1] = N   16777215Stack Calls===========   Called from:  => TPANEL:_LDRAG( ...

... es: Teneniendo un numero indeterminado de poligonos y de tamaños indeterminados, quiero crear objetos (drag and drop), que puedan ser movibles (lDrag), rotables, y organizados en un area determinada, previniendo estos objetos de ser movidos fuera de esa area o encima de otro elemento... Resolviendo ...

... BUTTONBAR con el ratón. He visto los samples y no me funciona bDropOver. Lo que hago es lo siguiente: - Pongo todo, la barra y sus botones como lDrag := .t. - Defino de la barra y los botones bDropOver := {|| msginfo("Suelta") } Bueno, pues nunca salta el msginfo() y a partir de ahí, ...

... codigo que genera los Dots que propone Silvio ... DotsSelect( hDC , nTop, nleft, nbottom, nRight ) Ahora falta mirar como quitamos todo el tema de ldrag y ponemos nuestro propio sistema ... me da que va a ser largo de implementar pero a la larga seguro que no funciona mejor . ¿ Quizas si derivamos ...

Cristobal , en la function ElementActions , oItem:bLClicked nunca se ejecuta porque el elemento esta en lDrag:= .t. Debemos tenerlo en cuenta y no sé si quitar ese código . Por otro lado la asignación de todos estos codeblock ¿ no sería mas correcta hacerla en ShowItem que ...

Eduardo, Con los SAYs basicamente tienes que hacer dos cosas: oSay:lWantClick = .T. // para que procesen los clicks del ratón oSay:lDrag = .T. El resto es como hacemos en design.prg: oSay:bRClicked = { | nRow, nCol | EditControl( nRow, nCol, oSay ) } y desde EditControl() ya puedes modificar ...

Hola, e intentado activar la data del objeto oTree:lDrag := .T., pero al parecer se coloca en modo diseño porque arrastra todo el objeto tree y lo deja en la posicion donde lo suelto.

¿Alguien tiene una pista?