代码之家  ›  专栏  ›  技术社区  ›  user310291

如何给按钮涂上红色?

  •  1
  • user310291  · 技术社区  · 6 年前

    我在rebol中尝试了这个代码片段:

    View [button "colored" 100.0.0]
    

    但是按钮还是灰色的。

    1 回复  |  直到 6 年前
        1
  •  0
  •   DocKimbel    6 年前

    使用本机按钮小部件时,尚不支持此功能。不过,您可以使用 base 面类型:

    view [
        base red
            on-down [face/color: face/color / 2]
            on-up   [face/color: face/color * 2]
    ]
    

    您还可以在此基础上创建一个新的自定义样式(从2019年1月3日起,至少需要master branch的红色autobuild):

    view [
        style but: base
            on-down [face/color: face/color / 2 do-actor face event 'click]
            on-up   [face/color: face/color * 2]
    
        but "Say hi!" red on-click [print "hi"]
    ]