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!
Subscribe
Login
0 Comments
Oldest