dragdrop

pfcdwsrv.pbl   >   pfc_w_sortdragdrop   >   dw_sortcolumns   >   dragdrop

Name	Datatype
ldrg_object	dragobject
li_rc	Integer

event dragdrop;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  DragDrop!
//
//	Description:  Move the row from the "selected sort" dw to the 
//					  "sort from" dw and stop the Drag
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

Integer	li_rc
dragobject ldrg_object

ldrg_object = DraggedObject( )

// Make sure you are not dropping this object on itself!.
IF TypeOf ( ldrg_object ) = DataWindow! THEN
	IF ldrg_object.ClassName ( ) = "dw_sortcolumns" THEN 
		li_rc = this.Drag ( Cancel! ) 
		Return 
	END IF
END IF

// Move the row.
If il_sortingrow > 0 Then
	li_rc = dw_sorted.RowsMove ( il_sortingrow, il_sortingrow, Primary!, &
				this, this.RowCount()+1, Primary! )
End If

li_rc = this.SetSort ( "display_column A" )
li_rc = this.Sort ( ) 

dw_sorted.Drag ( End! ) 


end event

Name	Owner
powerobject.classname	powerobject
powerobject.typeof	powerobject
dragobject.drag	dragobject
datawindow.rowcount	datawindow
datawindow.rowsmove	datawindow
datawindow.setsort	datawindow
datawindow.sort	datawindow
systemfunctions.draggedobject	systemfunctions

Full name
pfc_w_sortdragdrop