dragdrop


pfcdwsrv.pbl   >   pfc_w_sortdragdrop   >   dw_sorted   >   dragdrop   

Full name pfc_w_sortdragdrop.dw_sorted.dragdrop
Access public
Extend of
Return value
Prototype event dragdrop()

Name Datatype
No Data

Name Datatype
ldrg_object dragobject
li_rc Integer

event dragdrop;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  DragDrop!
//
//	Description:  Move the row from the "sort from" dw to the 
//					  "selected sort" 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_sorted" THEN 
		li_rc = this.Drag ( Cancel! ) 
		Return 
	END IF
END IF

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

dw_sortcolumns.Drag ( End! ) 


end event

     
Name Owner
No Data

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

     
Full name
pfc_w_sortdragdrop

     
Name Scope
No Data