xBRowser drag & drop question

[nageswaragunupudi]

James

When the user drags KeyNo 12 over KeyNo 20, the dragged item has to sit between 19 and 20. So I am changing KeyNo 12 as 19.5.
Assume the user drags 10 over 20 again. Then KeyNo 10 is to be changed to a number between 19.5 and 20 ( 19.75 ). Another drag over 20 again? The new key number will be 19.875 and so on.
I chose more decimal places so that we dont hit a dead end soon.
In real time application, if we hit deadend our logic should renumber.

Hope I am clear

[James Bott]

NageswaraRao,

>Hope I am clear

Yes, now I get it. I did this once by numbering the items in increments of 10--I never thought of using decimals. It's good that you mention renumbering since that will become an issue at some point. With a very small database perhaps you could renumber it for each drag & drop.

James

[Otto]

Hello NageswaraRao,

there is still one problem. If I drop the record then the row where I drop is highlighted but the dragged row is one before. Maybe you have a solution for that too.
Best regards,
Otto

[nageswaragunupudi]

Thats how I made it earlier. Here is what you want now:

Code: Select all  Expand view  RUN

STATIC FUNCTION DropOver( uDropInfo, nRow, nCol, nFlags, oBrw )

   LOCAL nDragRec := uDropInfo
   LOCAL nThisRec
   LOCAL nThisKey
   LOCAL nPrevKey := 0
   LOCAL n

       oBrw:lButtonDown( nRow, nCol, nFlags )
       oBrw:lButtonUp(   nRow, nCol, nFlags )

   nThisRec       := (oBrw:cAlias)->( RECNO() )
   nThisKey       := (oBrw:cAlias)->NUMMER

   ( oBrw:cAlias )->( dbSKIP( -1 ) )
   IF !bof()
      nPrevKey      := ( oBrw:cAlias )->NUMMER
   ENDIF
   ( oBrw:cAlias )->( dbGOTO( nDragRec ) )
   ( oBrw:cAlias )->NUMMER   := ( nThisKey + nPrevKey ) / 2
//   ( oBrw:cAlias )->( dbGOTO( nThisRec ) )
   oBrw:Refresh()

   if ( n := ( oBrw:cAlias )->( OrdKeyNo() ) ) < oBrw:nRowSel
      oBrw:nRowSel   := n
      oBrw:Refresh()
   endif

RETURN NIL


[Otto]

Hello NageswaraRao,

If the xBrowser is starting on the first page than it inserts and highlights one line before where you drop.
If you are on the second or higher page it works perfectly.
Maybe you have some more ideas to solve this.
Thank you for your help.

Regards,
Otto

[nageswaragunupudi]

It has to be like that only. Suppose you dreg 5th item and drop on 10th item. Now 5th item will become 9th item. So the cursor has to move up to 9th row.

[Otto]

NageswaraRao, thank you very much.
Best regards,
Otto

[Silvio]

Otto,
can you create a small test of it and insert the sample on fwnips website?

[alvaro533]

Good evening,

How can you know if the user is dropping in the same windows it was dragged from? In my program you can open several mdichild windows. I don't want the user to drag to a different window.

Thank you very much.

Alvaro

[alvaro533]

I found it.

Passing the number oWnd:hWnd with uDropInfo information. Thank you,

Alvaro

[nageswaragunupudi]

With the recent xbrowse ( FWH 8.05 ) the following lines

Code: Select all  Expand view  RUN

       oBrw:lButtonDown( nRow, nCol, nFlags )
       oBrw:lButtonUp(   nRow, nCol, nFlags )


can be replaced with

Code: Select all  Expand view  RUN

       oBrw:SetPos( nRow, nCol, .t. )  // .t. for pixel


This is better and more reliable than the workaround I was using earlier.

[alvaro533]

Using
oBrw:SetPos( nRow, nCol, .t. )

does not set the browse in the position where you drop.

However it works with this 2 lines, am I missing something?

oBrw:lButtonDown( nRow, nCol, nFlags )
oBrw:lButtonUp( nRow, nCol, nFlags )

Thank you

Alvaro