Dragging And Dropping Row In DataWindow
Instance Variable:
1 | Boolean ib_down |
Datawindow New Event pbm_lbuttondown
1 | ib_down = True |
Datawindow New Event pbm_lbuttonup
1 | ib_down = False |
Datawindow New Event pbm_dwnmousemove
1 2 3 4 5 6 7 8 9 10 11 | If ib_down Then If row > 0 Then This.Drag (Begin!) This.DragIcon = "DataPipeline!" If row > 0 Then //Messagebox("Warning", "You Choose Row " + string (row)) End If Else This.Drag (End!) End If End If |
Datawindow Event Dragdrop
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Long li_oldr DragObject ldo_control ldo_control = DraggedObject() If Not IsValid(ldo_control) Then Return If row <= 0 Then Return li_oldr = This.GetRow() If Source = This Then If row = li_oldr Then Return If row > li_oldr Then row ++ This.RowsMove(li_oldr,li_oldr,Primary!,This, row ,Primary!) If row > li_oldr Then row -- This.ScrollToRow(row) This.SelectRow( row,True) If li_oldr > row Then This.SelectRow( row + 1,False) Else This.SelectRow( row - 1,False) End If End If This.SetRedraw(True) |
Dawindown Event Dragwithin
1 2 3 4 | If ib_down Then This.SelectRow(0,False) This.SelectRow(row,True) End If |
Find Projects On Github click here
Good Luck!
Users Today : 146
Users Yesterday : 197
This Month : 1835
This Year : 1835
Total Users : 221929
Views Today : 534
Total views : 918965
Who's Online : 3