ヘッダーの結合はできない？

[umemura]

なるほど、親の高さをつぶせばよいのですね。
dyoshidaさんのコードを参考に、ヘッダーの表示時につぶすようにしてみました。
ヘッダーの再表示の問題は残りますね。

Code:

{define-proc {heder-spec-proc rgc:RecordGridColumn}:Graphic
    {return
        {Frame
            {on AttachEvent at fr:Frame  do
                set fr.parent.height = 0pt
            }
        }
    }
}
{let rg2:RecordGrid =
    {RecordGrid
        record-source = rs,
        height = 10cm,
        width = 13cm,
        {RecordGridColumnGroup
            "id",
            || ヘッダーのセパレーターを削除します
            enclose-header-label? = false,
            {RecordGridColumn "id", header-spec = heder-spec-proc}
        },
        {RecordGridColumnGroup
            "Name",
            || ヘッダーのセパレーターを削除します
            enclose-header-label? = false,
            {RecordGridColumn "First", header-spec = heder-spec-proc},
            {RecordGridColumn "Last", header-spec = heder-spec-proc}
        },
        {RecordGridColumnGroup
            "Address",
            || ヘッダーのセパレーターを削除します
            enclose-header-label? = false,
            {RecordGridColumn "City", header-spec = heder-spec-proc},
            {RecordGridColumn "State", header-spec = heder-spec-proc}
        }
    }
}

{value rg2}