0

何日も検索した後、ダイアログ ボックスに (OLE を使用して) 属性を表示する方法が見つかりません。次のスニペットを見つけましたが、役に立たず、何も表示されません。このコードが機能するかどうか (または、この目的で使用されるかどうか) は本当にわかりませんが、私の要件に最も近いものです。

DB dtbox  = create "Test Window"
Module m = current Module
Object obj
void repaint(DBE canv) {}
expectedResults = canvas(dtbox,600,250,repaint)
for obj in m do {
    if (obj."Object Heading" "" != "")
    {
        if (!null getCanvas) font(getCanvas, level(obj), HeadingsFont)
        displayRich(number(obj) " " obj."Object Heading" "")
    }

    if (obj."Object Text" "" != "")
    {
        if (!null getCanvas) font(getCanvas, level(obj), TextFont)
        displayRich(richTextWithOle(obj."Object Text"))
    }
    ...
    //block until user clicks the next button

}
show dtbox
4

1 に答える 1