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
}