PulldownList

Form Form1 {
    X = 0;
    Y = 0;
    Width = 400;
    Height = 300;
    PulldownList PulldownList1 {
        X = 10;
        Y = 10;
        Width = 55;
        Height = 115;
        /* 展開時のリストの横幅をPulldownListオブジェクトよりも広くする */
        DropdownWidth = 200;
        PulldownItem PulldownItem1[0] {

            Function OnTouch( e ) {
                ^.ToolTip = e.From.Title;
            }
        }
    }

    PulldownList PulldownList2 {
        X = 95;
        Y = 10;
        Width = 200;
        Height = 115;
        /* 展開時のリストの横幅はPulldownListオブジェクトと同じ */
        DropdownWidth = 50;
        PulldownItem PulldownItem1[0];
    }

    if ( !$DESIGNTIME ) {
        var csvobj = CSV( .title, .value ){
            0001 優れた栄養バランス,"0001"
            0002 栄養とその機能,"0002"
            0003 食生活に伴う健康問題,"0003"
            0004 食生活の変化,"0004"
            0005 生産と消費のアンバランス,"0005"
        };
        PulldownList1.PulldownItem1 << csvobj;
        PulldownList2.PulldownItem1 << csvobj;
    }
}