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

[Yudai-s]

>dankom様
教えていただいたソースをもとに実装し、コンテキストメニューへの「表示」「非表示」の追加と列の表示/非表示を実装することができました。
ありがとうございました。

Code:

{method public {context-menu-at x:Distance, y:Distance}:#MenuPane
    let menu-pane:#MenuPane = {super.context-menu-at x, y}
    let disp-list:{Array-of MenuAction} = {new {Array-of MenuAction}}
    let hide-list:{Array-of MenuAction} = {new {Array-of MenuAction}}

    || RecordFieldからコンテキストメニューに表示する列名を取得
    {if-non-null self.grid.record-source then
        {for field in self.grid.record-source.fields do
            {disp-list.append {MenuAction
                                  label = field.caption,
                                  {on Action do
                                      {self.disp-columns field.name}
                                  }
                              }
            }
            {hide-list.append {MenuAction
                                  label = field.caption,
                                  {on Action do
                                      {self.hide-columns field.name}
                                  }
                              }
            }
        }
    }

    {menu-pane.add
        {SubMenu label = "表示",
            {splice disp-list}
        }
    }
    {menu-pane.add
        {SubMenu label = "非表示",
            {splice hide-list}
        }
    }

    {return menu-pane}
  }

  ||############################################################
  || 選択した列を表示する
  ||############################################################
  {method private {disp-columns column-name:String}:void
    let disp-column-list:{Array-of BaseRecordGridColumn} = {new {Array-of BaseRecordGridColumn}}
    let insert-index:int = {self.grid.record-source.fields.get-index column-name}
    let column-index:int = 0
    let is-insert?:bool = false
    || 現在表示されている列を取得する
    {for column in self.grid.columns do

        || 指定した列がすでに表示されている場合は何もせず終了
        {if column.field-name == column-name then {return}}

        {if column-index == insert-index then
            || 指定した列を追加する
            {disp-column-list.append
                {RecordGridColumn
                    column-name
                }
            }
            set is-insert? = true
        }
        {disp-column-list.append
            i
        }
        set column-index = column-index + 1
    }

    {if is-insert? == false then
        || 指定した列を追加する
        {disp-column-list.append
            {RecordGridColumn
                column-name
            }
        }
    }

    set self.grid.base-columns = disp-column-list
  }

  ||############################################################
  || 選択した列を非表示にする
  ||############################################################
  {method private {hide-columns column-name:String}:void
    let disp-column-list:{Array-of BaseRecordGridColumn} = {new {Array-of BaseRecordGridColumn}}

    || 現在表示されている列を取得する
    {for column in self.grid.columns do

        || 選択した列以外を表示列として設定する
        {if column.field-name != column-name then
            {disp-column-list.append
                column
            }
        }
    }

    set self.grid.base-columns = disp-column-list
  }