08-01-2011, 09:45 PM
08-01-2011, 09:48 PM
header-spec を指定すれば普通の太さの文字列を表示できました。
しかし、なんで RecordGridRowOptions だと効果がないんでしょうかね?
直接RecordGridColun の中で指定してもダメでした。
Code:
{let people:RecordSet =
{RecordSet
{RecordFields
{RecordField
"First", caption = "First Name", domain = String
},
{RecordField
"Last", caption = "Last Name", 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}
}
}
{let header:RecordGridRowOptions =
{RecordGridRowOptions
font-weight = "normal",
halign = "center"
}
}
{define-proc public {make-header
rgc:RecordGridColumn
}:Graphic
set rgc.halign = "center"
{return
{TextFlowBox
font-weight = "normal",
rgc.field.caption
}
}
}
{let rg:RecordGrid =
{RecordGrid
||header-options = header,
header-spec = make-header,
record-source = people
}
}
{value rg}
しかし、なんで RecordGridRowOptions だと効果がないんでしょうかね?
直接RecordGridColun の中で指定してもダメでした。