FiveTech Software tech support forums

... modified it in order to read
the forum every now and then in order to read ALL prg's posted. They also come in a dbf for lookup.

So If I want a drag/drop implemention from Xbrowse I use these 2 parameters and I get samples from the forum. This is my most used program to find part of source and ...

The response to the main post of Mr.Ralph is that Drag and Drop feature is fully supported by FWin and no further changes are required.
This drag and drop support is not only inside xbrowse but also in between different controls/dialogs/windows.

Swapping Array .....

What I found looks like this :

@ 20,10 BTNBMP PROMPT "ToExcel" SIZE 100,30 FLAT PIXEL OF oDlg ;
ACTION ( aCols := {}, ;
AEval( oBrw:aArrayData, { |a| If( a[ 1 ], AAdd( aCols, oBrowse:aCols[ a[ 2 ] ] ), nil ) } ), ;
oBrowse:ToExcel( nil, nil, aCols ) ;
)
______
XBROWSER ...

Thanks! Mr Rao. It works perfect!.

This also works
Btw is a short-cut for This short-cut is more optimal.

Also swapping arrays (actually pointers) is more optimal than ADel() and AIns()

... ch"

function main()

local oDlg, oBrw, oFont, oCur, aData[ 12 ]

AEval( aData, { |u,i| aData[ i ] := NtoCMonth( i ) } )

DEFINE CURSOR oCur DRAG
DEFINE FONT oFont NAME "VERDANA" SIZE 0,-16
DEFINE DIALOG oDlg SIZE 250,500 PIXEL FONT oFont
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ...

I would think (because of less experience) that

If I take 4 and drop on 2, the position in 4 is empty so resort would put the empty cell on top and make a new array starting from pos 2.

But I know that you have a much more elegant solution

In case of arrays, if we sort again the very purpose of dropping is lost. Right?

Mr. Rao,

To insert the dropped item between the 2 target items where you want to drop means that we have to sort the items again ?

1
2
3
4
5
6

drop 6 on 3

1
2
3
6
4
5

How to do that ?

FWH already had full support for Drag and Drop feature, not only inside Xbrowse but across all controls.
This feature has been there from the time of creation of FiveWin.
So, nothing futuristic.

Simple sample:
#include "fivewin.ch"

function Main()

local aData, oCur

USE STATES SHARED NEW
aData ...

I asked Copilot to build a program to allow reorder rows in a list using drag & drop and xBrowse
This is the result:


#include "FiveWin.ch"
function Main()
local oDlg, oBrw, aData

aData := { ;
{ "Item 1", "Codigo 1", "Producto 1", 10, "Uni 1", 100, 5, 95 }, ;
{ "Item 2", "Codigo 2", "Producto 2 ...

... nPos )
Class TTaskPanel Method ChangeHeight( nHeight )
Fixed RibbonBar bug
TProgressWheel class,
samples\ListVie.prg using a TListBox and drag & drop files
function FWLoadStrings( cFileName )
Tled
and more more

maybe you are using the classes created by me and you didn't know it, you are ...

... as we are now doing, are like a loose-leaf collection.
It is so expandable. I create a folder for each guest. We can then create subdirectories and drag & drop documents into the folders.
If it is shown in the DBF that there is a memo field for the address, you first have to open the FPT, calculate ...

... aDialogs[ n ] = oDlg

oDlg:cVarName := "Page" + AllTrim( Str( n ) )
oDlg:Hide()
// oDlg:lTransparent := .T.

next


now the scrollbars appear but if I shrink the window or move the splitter they still are not active, nor if I drag the thumbs neither if I scroll the mouse wheel

Roberto

... where we can store any type of document in a separate folder for each customer.
For example, incoming emails are simply copied into the folder with drag & drop, as are outgoing letters.
Since I programmed an adapter for PHP to access DBF, I have dealt with the memo fields again. I think it is ...