何日も検索した後、ダイアログ ボックスに (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