RecordGrid 列の表示/非表示について

[dankom]

残念ながら標準でコンテキストメニューで列の表示/非表示を制御するものはないんじゃないでしょうか。

しかし、RecordGridUIにcontext-menu-atメソッドがあります。
このメソッドをオーバーライドすることでコンテキストメニューを改変できます。
ここを実装することで実現できるんではないでしょうか

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
    }
}