DateFieldのカレンダーボタンを非表示にする方法

【ご質問】
DateFieldのカレンダーボタンを非表示にする方法はありますか?

【回答】
DateFieldのui-objectを操作することにより可能です。

{curl 7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{let df:DateField = {DateField
                               value = {DateTime.date}
                           }
}

{value
    def df-ui = df.ui-object asa SkinnableDateFieldUI
    def frame = df-ui.child.graphic asa Frame
    def grid = frame.child.graphic asa Grid
    def dfsc = grid.child-array[0].graphic asa DateFieldSpinControl
    def btn = grid.child-array[1].graphic
   
    set btn.visible? = false
    set btn.width = 0px
   
    df
}