07-20-2011, 11:38 AM
07-21-2011, 11:44 AM
RecordGridのheader-specを使ってTextShapeなどを使用すれば可能ですよ。
古いバージョンだと違うやりかたになってしまいますがShapeを使うのがミソです。
古いバージョンだと違うやりかたになってしまいますが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}