It shows different context menus for header and first row and no context menu for all other rows.

Friedger

 
 
{define-class MyRecordGridUi {inherits StandardRecordGridUI}
  {method public open {context-menu-at
                          x:Distance,
                          y:Distance
                      }:#MenuPane
 
    let constant grid:RecordGrid = self.grid
    let constant dr:RecordView = grid.records
 
    let constant (cell:#RecordGridCell, rec:int, col:int) =
        {self.grid-objects-at x, y}
 
    let constant mp:MenuPane = {MenuPane}
 
    {if rec == -1 then
        {mp.add
            {MenuAction
                label = {hlmessage MyHeaderAction}
            }
        }
     elseif rec == 0 then
        {mp.add
            {MenuAction
                label = {hlmessage MyBodyAction for row 1}
            }
        }
    }
    {return mp}
  }
}
 
{RecordGrid ui-object = {MyRecordGridUi},
    record-source = {LocalRecordSet {RecordFields {RecordField "col1", domain = String}, {RecordField "col2", domain = String}},
                        {RecordData col1 = "A", col2 = "B"},
                        {RecordData col1 = "X", col2 = "Y"}
                    }
}