Code:
{define-class public MyRecordGridUI {inherits SkinnableRecordGridUI}
{constructor public {default ...}
{construct-super ...}
}
{method public {context-menu-at x:Distance, y:Distance}:#MenuPane
let mp:#MenuPane = {super.context-menu-at x, y}
{mp.add
{SubMenu label = "表示",
{MenuAction
label = "abc",
{on Action do
{dump "abc"}
}
},
{MenuAction
label = "def",
{on Action do
{dump "def"}
}
}
}
}
{mp.add
{SubMenu label = "非表示",
{MenuAction
label = "123",
{on Action do
{dump "123"}
}
},
{MenuAction
label = "456",
{on Action do
{dump "456"}
}
}
}
}
{return mp}
}
}
{value
{RecordGrid
ui-object = {MyRecordGridUI},
record-source =
{RecordSet
{RecordFields
{RecordField
"First", caption = "First Name", domain = String
},
{RecordField
"Last", caption = "Last Name", domain = String
},
{RecordField "Age", domain = int}
},
{RecordData First = "John", Last = "Smith", Age = 25},
{RecordData First = "Jane", Last = "Smith", Age = 29},
{RecordData First = "Jane", Last = "Jones", Age = 28}
},
height = 3cm
}
}