Curl Global Community
RecordGridのヘッダーについて - Printable Version

+- Curl Global Community (https://communities.curl.com)
+-- Forum: Discussions (https://communities.curl.com/forumdisplay.php?fid=1)
+--- Forum: General Curl questions (https://communities.curl.com/forumdisplay.php?fid=2)
+--- Thread: RecordGridのヘッダーについて (/showthread.php?tid=123)



RecordGridのヘッダーについて - FusionChii - 07-20-2011

RecordGrid のヘッダー部分の文字方向を回転させることはできるのでしょうか?
たとえば斜めにしたり、縦書きにしたりです。



RE: RecordGridのヘッダーについて - hmino - 07-21-2011

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}