|
![]() |
#1 |
Участник
|
Заводите в Page глобальную текстовую (а не булевую!) переменную, эту переменную вставляете в нужном поле в Property "StyleExpr" в Value (property "Style" вообще не трогаете).
В коде в OnAfterGetRecord заполняете текстовую переменную опциями, которые имеются в property "Style". Если текстовая переменная пустая или содержит текст, короторого нет в property "Style" то ничего страшного не произойдёт, поле будет просто отображаться без каких-либо стилей. Навскидку пример из Page 22 "Customer List", OnAfterGetRecord() (лучше конечно сделать функцию), где описанная глобальная переменная StyleExprText заполняется нужными стилями: Код: OnAfterGetRecord() StyleExprText := ''; CASE Blocked OF Blocked::Ship: StyleExprText := 'Favorable'; Blocked::Invoice: StyleExprText := 'StrongAccent'; Blocked::All: StyleExprText := 'Attention'; END; |
|