> -- Илья Ермаков писал(а):
> Проще всего - через модуль Services, там есть готовые подходящие процедуры:PROCEDURE Extends (IN type, base: ARRAY OF CHAR): BOOLEAN;PROCEDURE GetTypeName (IN rec: ANYREC; OUT type: ARRAY OF CHAR);PROCEDURE Is (IN rec: ANYREC; IN type: ARRAY OF CHAR): BOOLEAN;PROCEDURE IsExtensionOf (IN ra, rb: ANYREC): BOOLEAN;

Расширяемая запись не прокатила. Meta.GetVal хочет только запись того типа, который передан в качестве параметра. Никаких потомков не признаёт. Пришлось перехитрить: создать нерасширяемую запись с одним полем, и передавать всегда переменные именно этого типа, и линковать только её. А уже в этом поле хранить свои типы, расширяемые и т.д.

Дальше, у меня почему-то не перерисовыется мой контрол, когда я перекрываю его каким-нибудь окном, а потом окно сдвигаю. Вместо контрола - мусор. Иногда он перерисовывается, но я не понял в каких именно случаях. Что нужно сделать чтобы он перерисовывался всегда, когда необходимо?

И ещё, полосы прокрутки не появляются при изменении данных, которые в линке. Вот если в режиме редактирования формы поизменять размер, то они появляются, а по-другому - нет.

Посоветуёте, что-нибудь.