OberonCore :: - EditField - свойство Level

PROCEDURE Controls.GetField ...
BEGIN
   ...
      ELSIF c.item.typ = Meta.sRealTyp THEN
         IF c.prop.level <= 0 THEN
            Strings.RealToStringForm(c.item.RealVal(), 7, 0, c.prop.level, " ", x)
         ELSE
            Strings.RealToStringForm(c.item.RealVal(), c.prop.level, 0, 1, " ", x)
         END
      ELSIF c.item.typ = Meta.realTyp THEN
         IF c.prop.level <= 0 THEN
            Strings.RealToStringForm(c.item.RealVal(), 16, 0, c.prop.level, " ", x)
         ELSE
            Strings.RealToStringForm(c.item.RealVal(), c.prop.level, 0, 1, " ", x)
         END
      ...

Автор:	Евгений Темиргалеев [ Понедельник, 30 Ноябрь, 2009 12:55 ]
Заголовок сообщения:	EditField - свойство Level
В документации Controls это свойство не упоминается. Инспектор его вводить позволяет. Влияет на ввод/отображение целых типов (Level > 0): - вводим дес. дробь A.B - результат A.B "E" Level Влияет на отображение вещественных типов: Код: PROCEDURE Controls.GetField ... BEGIN ... ELSIF c.item.typ = Meta.sRealTyp THEN IF c.prop.level <= 0 THEN Strings.RealToStringForm(c.item.RealVal(), 7, 0, c.prop.level, " ", x) ELSE Strings.RealToStringForm(c.item.RealVal(), c.prop.level, 0, 1, " ", x) END ELSIF c.item.typ = Meta.realTyp THEN IF c.prop.level <= 0 THEN Strings.RealToStringForm(c.item.RealVal(), 16, 0, c.prop.level, " ", x) ELSE Strings.RealToStringForm(c.item.RealVal(), c.prop.level, 0, 1, " ", x) END ... По всей видимости, это решение проблемы: viewtopic.php?f=24&t=1637

Автор:	Сергей Губанов [ Понедельник, 30 Ноябрь, 2009 13:08 ]
Заголовок сообщения:	Re: EditField - свойство Level
Евгений Темиргалеев писал(а): По всей видимости, это решение проблемы: viewtopic.php?f=24&t=1637 Сейчас добавил туда ссылку сюда.

OberonCore https://forum.oberoncore.ru/

EditField - свойство Level https://forum.oberoncore.ru/viewtopic.php?f=24&t=2136	Страница 1 из 1

Страница 1 из 1	Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/