RecordGridのヘッダーについて

[hmino]

RecordGridのheader-specを使ってTextShapeなどを使用すれば可能ですよ。
古いバージョンだと違うやりかたになってしまいますがShapeを使うのがミソです。

Code:

{let people:RecordSet =
        {RecordSet
            {RecordFields
                {RecordField "First", domain = String},
                {RecordField "Last", domain = String},
                {RecordField "Age", domain = int}
            },
            {RecordData First = "John", Last = "Smith", Age = 25},
            {RecordData First = "Jane", Last = "Smith", Age = 29},
            {RecordData First = "Jane", Last = "Jones", Age = 28}
        }
    }
    {import * from  CURL.GUI.SHAPES}
    {define-proc public {make-header rgc:RecordGridColumn}:Graphic
        {return
            {TextShape
                "縦になるヘッダー",
                translation = {Distance2d 1.5cm, 1.5cm},
                rotation = 280deg
            }
        }
    }  
    {let rg:RecordGrid =
        {RecordGrid height = 5cm,
            record-source = people,
            width = 16cm,
            column-movable? = false,
            header-spec = make-header
        }
    }

    {value rg}