+- Curl Global Community (https://communities.curl.com)
+-- Forum: Discussions (https://communities.curl.com/forumdisplay.php?fid=1)
+--- Forum: General Curl questions (https://communities.curl.com/forumdisplay.php?fid=2)
+--- Thread: グリッドへのドロップ (/showthread.php?tid=1368)
グリッドへのドロップ - umemura - 06-29-2016
RecordGrid のレコードに何かアイテムをドラッグアンドドロップして処理をするにはどうすればよいですか？
また、その場合に、どのレコードにドロップ仕様としているのか、わかるようにしたいです。
RE: グリッドへのドロップ - umemura - 06-29-2016
ドラッグ時にレコードの背景色を変更し、ドロップされたセルを取得し、ドロップされた行数を表示するサンプルです。
行挿入処理や、セルの値をGUIで指定することに利用できると思います。
Code:
{define-class public DoroppableListGrid {inherits RecordGrid} {constructor public {default
record-source:#RecordSet = null,
sort:#RecordSort = null,
filter:#RecordFilter = null,
key-spec:any = null,
header-options:RecordGridRowOptions = {RecordGridRowOptions},
ui-object:#RecordGridUI = null,
...
}
{construct-super
record-source = record-source,
sort = sort,
filter = filter,
key-spec = key-spec,
header-options = header-options,
ui-object = ui-object,
{splice ...} ,
{on e:DragOver at grid:RecordGrid do
{e.will-accept-drop?
{proc {type:Type, x:Distance, y:Distance,
effect:#DragEffect}:DragEffect def (cell:#RecordGridCell, record-index:int, column-index:int )= {grid.ui.grid-objects-at e.x, e.y}
set self.rollover-cell = cell {return drag-effect-copy}
}
}
}
} } {method public {on-drop e:Drop}:void
{super.on-drop e} ||ドロップイベントが完了したら、ロールオーバ色をリセットする
set self.rollover-cell = null
}
field _rollover-cell:#RecordGridCell = null
{setter private {rollover-cell cell:#RecordGridCell } ||同一レコードの塗り直しは無視
{if self._rollover-cell == cell then
{return}
}
||すでにロールバック色を塗ってある行を元に戻す
{if-non-null self._rollover-cell , r = self._rollover-cell.record then {for col in self.columns do
{if-non-null c = {self.ui.get-cell-at r, col} then
{if c.selected? then
set c.background = self.selected-background
else
{unset c.background}
}
}
} } ||ロールバック色を設定する
{if-non-null cell , r = cell.record then {for col in self.columns do
{if-non-null c = {self.ui.get-cell-at r, col} then
set c.background = "orange"
{output {c.get-data}}
}
} } set self._rollover-cell = cell }}{define-proc public {notified rg:RecordGrid, r:Record, i:int}:#Background
{if {r.compare-field "select", true} == 0 then
{return {Background.from-string "silver"}}
else
{return null}
}
}
{let people:RecordSet =
{RecordSet
{RecordFields
{RecordField "select", domain = bool,default-value = false},
{RecordField "First", domain = String},
{RecordField "Last", domain = String},
{RecordField "Age", domain = int}
},
{RecordData First = "John", Last = "Smith", Age = 25},
{RecordData First = "Jane", Last = "Smith", Age = 29, select = true},
{RecordData First = "John", Last = "Smith", Age = 25, select = true},
{RecordData First = "Jane", Last = "Smith", Age = 29},
{RecordData First = "John", Last = "Smith", Age = 25, select = true},
{RecordData First = "Jane", Last = "Smith", Age = 29},
{RecordData First = "Jane", Last = "Smith", Age = 29},
{RecordData First = "Jane", Last = "Smith", Age = 29},
{RecordData First = "John", Last = "Smith", Age = 25, select = true},
{RecordData First = "John", Last = "Smith", Age = 25, select = true},
{RecordData First = "Jane", Last = "Smith", Age = 29},
{RecordData First = "Jane", Last = "Smith", Age = 29},
{RecordData First = "Jane", Last = "Smith", Age = 29},
{RecordData First = "Jane", Last = "Jones", Age = 28}
}
}
{value
{DoroppableListGrid
record-source = people ,alternate-row-background = "#cceecc" ,row-background-spec = notified ,
{on e:Drop at grid:RecordGrid do
{e.accept-drop
{proc {a:any, x:Distance, y:Distance,
effect:#DragEffect}:DropResult
{return {DropResultCopy
action = {proc {}:void
def (cell:#RecordGridCell, record-index:int, column-index:int )= {grid.ui.grid-objects-at e.x, e.y} {if-non-null cell then
{popup-message
cell.record-index + 1 & "行目にドロップされました。",
modal? = true}
}
}
}
}
} }
}
}
}{def fr:Frame = {Frame border-width=1pt, "アイテム", dragee={ImageDragee}}}{value fr}