続きです。

【Datawindow-DragDrop イベント】
//ｄｗで、ドロップの操作を実行
long  rowFrom, rowTo
 
//ドラッグ中のオブジェクトが自ｄｗ以外の場合、処理を中止
if source<>this then return
 
//ドラッグ開始行またはドロップ行が0の場合、操作をやり直し
if il_dragStartRow=0 or row=0 then
  il_dragStartRow  = 0
  ib_dragControlOut= false
  return
end if
 
//ドラッグ中のカーソルがｄｗの外に出た場合、操作をやり直し
if ib_dragControlOut then
  il_dragStartRow  = 0
  ib_dragControlOut= false
  return
end if
 
//ドラッグ開始行とドロップ行の大小を判定し、値の小さい方がコピー元、値の大きい方をコピー先とする
rowFrom = min(il_dragStartRow, row)
rowTo   = max(il_dragStartRow, row)
 
//行移動
this.rowsMove(rowFrom, rowFrom, Primary!, this, rowTo, Primary!)
this.rowsMove(rowTo, rowTo, Primary!, this, rowFrom, Primary!)
 
//ドラッグ開始行を初期化
il_dragStartRow = 0