Record の選択について

[umemura]

key-press はちょっと要望の機能とは違いました。
再検索時に、同じレコードが返ってくる場合があって、
検索前の選択状態を復元させたい場合には使えそうですね。


とりあえず、after句を使ったコードも書いてみました。
ただ、イベントの順番とかを考えると、after句を使うのはなるべく抑えたい気も・・・。

Code:

{let rs:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField "id", domain = int},
            {RecordField "First", domain = String},
            {RecordField "Last", domain = String},
            {RecordField "Age", domain = int}
        }
    }
}
{let rg:RecordGrid =
    {RecordGrid
        cells-take-focus? = false,
        select-current-record? = true,
        editable? = false,
        record-source = rs
    }
}
{let cb:CommandButton =
    {CommandButton
        label= "検索",
        {on Action do
            set　rg.select-current-record? = false
            {rs.delete-all}
            {rs.append
                {RecordData id = 1, First = "John", Last = "Smith", Age = 25}}
            {rs.append
                {RecordData  id = 2, First = "Jane", Last = "Smith", Age = 29}}
            {rs.append
                {RecordData  id = 3, First = "Jane", Last = "Jones", Age = 28}}
            
            {after 0s do
                set rg.select-current-record? = true
                {rg.select-nothing}
            }
        }
    }
}
{let tf:TextField = {TextField }}
{do
    {rg.add-event-handler
        {on sc:SelectionChanged at rg:RecordGrid do
                {if-non-null r = rg.current-record then
                    set tf.value  =
                        {r.get "First"} asa String
                }
        }
    }
}
{VBox rg, tf, cb}