RecordGridColumnGroupの背景色

[dankom]

実行できるようなサンプルがついてないので推測ですが、
以下のようにしてRecordGridColumnGroupの方にも背景色を
設定したいということでしょうか。

それならば、RecordGridのheader-optionsオプションに設定すればどうでしょうか。

header-options = {RecordGridRowOptions background = "#94cbff"},

Code:

{define-proc public {make-header rgc:RecordGridColumn}:Graphic
    def f =
        {VBox
            height = 15px,
            width = {make-elastic},
            halign = "center",
            {RasterBox
                font-size = 9pt,
                {splice rgc.field.caption}
            },
            {Fill}
        }
    {after 0s do
        def h = f.parent
        set h.background = "#94cbff"
        
    }
    {return f }
}

{value
    let people:RecordSet =
        {RecordSet
            {RecordFields
                {RecordField
                    "First1", caption = "First Name1", domain = String
                },
                {RecordField
                    "First2", caption = "First Name2", domain = String
                },
                {RecordField
                    "Last", caption = "Last Name", domain = String
                },
                {RecordField "Age1", domain = int},
                {RecordField "Age2", domain = int}
            },
            {RecordData First1 = "John", First2 = "John2", Last = "Smith", Age1 = 25, Age2 = 252},
            {RecordData First1 = "Jane", First2 = "Jane2", Last = "Smith", Age1 = 29, Age2 = 252},
            {RecordData First1 = "Jane", First2 = "Jane2", Last = "Jones", Age1 = 28, Age2 = 252}
        }
    
    let r:RecordGrid =
        {RecordGrid
            header-options = {RecordGridRowOptions background = "#94cbff"},
            record-source = people,
            height = 10cm,
            width = 13cm,
            header-spec = make-header,
            {RecordGridColumnGroup
                "",
                {RecordGridColumn "First1"}
            },
            {RecordGridColumnGroup
                "Name",
                {RecordGridColumn "First2"},
                {RecordGridColumn "Last"},
                {RecordGridColumn "Age1"}
            },
            {RecordGridColumnGroup
                "Ageeee",
                {RecordGridColumn "Age2"}
            }
        }
    
    r
}