Curl Global Community
CheckmarkSkinOverlay のチェックボタンがが小さくなってしまう？ - Printable Version

+- Curl Global Community (https://communities.curl.com)
+-- Forum: Discussions (https://communities.curl.com/forumdisplay.php?fid=1)
+--- Forum: General Curl questions (https://communities.curl.com/forumdisplay.php?fid=2)
+--- Thread: CheckmarkSkinOverlay のチェックボタンがが小さくなってしまう？ (/showthread.php?tid=964)

CheckmarkSkinOverlay のチェックボタンがが小さくなってしまう？ - umemura - 09-06-2013

「レ点」形式（CheckmarkSkinOverlay）、チェック状態（value=true）のチェックボタンを
グラフィックからいったん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}
    }
}