RecordGrid でDropdownList を表示

[nmyzk]

enum型を使うのではどうでしょうか？

Code:

{define-enum Bear
    polar = "endangered",
    grizzly = "threatened",
    panda = "cute",
    pooh = "abundant"
}
{let f:Frame = {Frame}}
{let people:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField
                "First", domain = Bear
            },
            {RecordField
                "Last", domain = String, default-value = "LAST"
            },
            {RecordField
                "Age", domain = int, default-value = 99
            }
        },
        {RecordData First = Bear.polar, Last = "Smith", Age = 25},
        {RecordData First = Bear.polar, Last = "Smith", Age = 29},
        {RecordData First = Bear.polar, Last = "Jones", Age = 28},
        {on e:RecordModified do
            {f.add (e.record["First"] asa Bear).value,replace? = true}||ここで値が取れる
        }
    }
}
{let rg:RecordGrid =
    {RecordGrid
        height = 3cm, width = 10cm, record-source = people
    }
}
{value
    {VBox
        rg,
        f
    }        
}