RecordGrid指定列のドラッグ不可

[dyoshida]

Romさん こんにちは

列を固定するのにcolumn-movable?を使うというのはあってると思いますよ。
「指定列のみ」という設定を行う場合は、RecordGridColumnに対して設定することになるかと。

幅を固定する場合は、column-resizable?オプションがあります。

こんな感じで。
ただ、これではまだ他の列をドラッグしてID列の前にもってこれるのが難点ですね・・・

Code:

{let rec_set:RecordSet=
    {RecordSet
        {RecordFields
            {RecordField "id"   ,domain = int,caption="ID"}
            ,{RecordField "name"   ,domain = String,caption="名前"}
            ,{RecordField "age"   ,domain = String,caption="年齢"}
            ,{RecordField "sex"   ,domain = String,caption="性別"}
        }
        ,{RecordData　id=1,name="一郎",age="20才",sex="男"}
        ,{RecordData　id=2,name="花子",age="18才",sex="女"}
        ,{RecordData　id=3,name="次郎",age="16才",sex="男"}
        ,{RecordData　id=4,name="良子",age="14才",sex="女"}
        ,{RecordData　id=5,name="三郎",age="12才",sex="男"}
    }
}

{let RG:RecordGrid={RecordGrid
                       record-source=rec_set,
                       {RecordGridColumn
                           "id",
                           column-movable? = false,
                           column-resizable?  = false
                       }
                   }
}
{RG.set-frozen-region 0,1}
{value RG}