09-06-2013, 03:48 PM
「レ点」形式（CheckmarkSkinOverlay）、チェック状態（value=true）のチェックボタンを
グラフィックからいったんdetachさせてから再表示すると、
チェックボタンのボックス部がちいさくなってしまいます。
回避方法はありますでしょうか。
グラフィックからいったんdetachさせてから再表示すると、
チェックボタンのボックス部がちいさくなってしまいます。
回避方法はありますでしょうか。
Code:
{do
||チェックボタンを「レ点」にする
def checked-skin =
{ShadedSkinSpec
"white",
"white",
overlay-decoration = {CheckmarkSkinOverlay}
}
def check-ss =
{StyleSheet
{StyleRule "CheckButton",
checked-skin =checked-skin
}
}
def ss:StyleSheet =
{StyleSheet
{make-style-sheet default-style-params},
check-ss
}
{install-style-sheet ss}
}
{def chkb1 = {CheckButton value = true}}
{def chkb2 = {CheckButton value = false}}
{def fr1 = {Frame chkb1 }}
{def fr2 = {Frame chkb2 }}
{value {HBox fr1, fr2}}
{CommandButton
label = "チェックボタン再表示",
{on Action do
{fr1.add chkb1, replace? = true}
{fr2.add chkb2, replace? = true}
}
}