FiveTech Software tech support forums

... A codeblock executed when dragging begins.
- **`lCaptured`**: Logical flag indicating whether the control has captured the mouse.
- **`lDrag`**: Logical flag indicating whether the control is in drag mode.
- **`lMouseDown`**: Logical flag indicating whether the mouse button is pressed on ...

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

... 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 > 0 ...

... ya se mueven, 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 ...

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

... 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 params, <top>, <left>, <bottom ...

correct!!

::lDrag = .f.

was remmed .....why?

... secs &nbsp; &nbsp;Error occurred at: 14-03-2018, 22:02:28&nbsp; &nbsp;Error description: Error BASE/44 &nbsp;Assigned value is wrong class: TPANEL:LDRAG&nbsp; &nbsp;Args:&nbsp; &nbsp; &nbsp;&#91; &nbsp; 1&#93; = N &nbsp; 16777215Stack Calls===========&nbsp; &nbsp;Called from: &nbsp;=> 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 ...

... 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í, no puedo ...

... 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 aquí ? .
Espero tu opinión.

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 los ...