レコードグリッド値コピーペースト時の検知イベント

Code:
{let people-rs:RecordSet =

    {RecordSet

        {RecordFields

            {RecordField "First", domain = String},

            {RecordField "Last", 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}

    }

}



|| 更新前後で値が変わっているレコードを抽出するためのFilter用プロシージャ

{define-proc {modify-field-val-filter-proc r:Record}:bool

    || ペンディング中の更新があるレコード中のフィールド値をチェック

    {if r.pending-update? then

        {if-non-null rs = r.record-set then

            {for f in rs.fields do

                {if {r.field-pending-update? f.name} then

                    || 更新前と更新後の値が異なっていれば抽出対象

                    def org-val = {r.get f.name, pending? = false}

                    def mod-val = {r.get f.name, pending? = true}

                    {if org-val != mod-val then

                        {return true}

                    }

                }

            }

        }

    }

    || 更新されていない、または更新前後で値が変わっていないレコードは抽出対象外

    {return false}

}



{value

    {VBox

        {RecordGrid

            record-source = people-rs,

            height = 3cm

        },

        {CommandButton

            label = "更新チェック",

            {on Action do

                def ra = 

                    {people-rs.select

                        filter = 

                            {RecordFilter

                                modify-field-val-filter-proc

                            }

                    }

                {if ra.size > 0 then

                    {popup-message {String ra.size} &"レコード更新されています"}

                }

            }

        }

    }    

}