サンプルです。

//インスタンス変数
dwobject i_dwo
long     il_row
boolean  ib_drag
 
///////////////////////////////////////////////
// DWの Clickedイベント
//
 
//ドラッグ開始フラグの初期化
ib_drag = False
if IsValid(dwo) then
   //開始点が有効な行・カラムであるか判定
   if \"column\" = dwo.type then
      if 0 < row then
         //開始点の行・カラムを保存
         i_dwo = dwo
         il_row = row
         //ドラッグ開始
         ib_drag = True
      end if
   end if
end if
 
///////////////////////////////////////////////
// DWの pbm_dwnlbuttonupイベント
//
if ib_drag then
   //ドラッグ開始フラグの初期化
   ib_drag = False
   if IsValid(dwo) then
      //終了点がカラムのときのみドラッグ成立とみなしています。
      if \"column\" = dwo.type then
         //開始点の行、開始・終了点間のカラムを操作します。
         long   ll_colend, ll_col
         
         ll_colend = Long(dwo.ID)
         for ll_col = Long(i_dwo.ID) to ll_colend
            //ここでデータ値やプロパティなどをセット
            This.SetItem(il_row, ll_col, \"1\")
         next

      end if
   end if
end if
 
///////////////////////////////////////////////
// DWペインタで、
// 各カラムの Background.Colorのプロパティ式に…
//
if( colname = \"1\", 255, 16777215 )