|
v7: Как установить высоту строки в ТЗ?
| ☑ |
0
YaroslavStr
07.06.13
✎
14:32
|
Всем привет! Вопрос: как заставить ТЗ вмещать в строку увеличенный с помощью FormEx текст?
Для увеличения шрифта строки использовал код:
Сервис = СоздатьОбъект("Сервис");
МойШрифт=Сервис.СоздатьШрифт("Arial",40,9,1);
Далее надо прописать код, который изменил бы высоту шрифта во всей ТЗ:
Сервис = СоздатьОбъект("Сервис");
Шрифт = Сервис.СоздатьШрифт("Arial",30,7);
Атр = СоздатьОбъект("АтрибутФормы");
Атр.УстановитьАтрибут(Форма,"ТЗ");
Атр.Шрифт = Шрифт;
Но все никак не могу понять куда его вписывать? Пробовал перед созданием ТЗ и после его создания (создания колонок). Никак не работает. Шрифт в строке увеличиваеться, а вот высота строки нет. В итоге текст не влазит по высоте.
Надо для моих сотрудниц, у которых со зрением плоховато. Вариант увеличения в настройках программы не прокатил. :)
|
|
1
YaroslavStr
07.06.13
✎
15:28
|
Что ж отвечу на свой вопрос сам. :) Уже нашел решение.
Так я использую FormEx, то добавим в код процедуру:
Процедура ПослеОткрытия()
Сервис1 = СоздатьОбъект("Сервис");
Шрифт = Сервис1.СоздатьШрифт("Arial",16,7);
Атр = СоздатьОбъект("АтрибутФормы");
Атр.УстановитьАтрибут(Форма,"ТЗ");
Атр.Шрифт = Шрифт;
КонецПроцедуры
И все работает отлично! В предопределенную процедуру ПриОткрытии() не вставлять этот код, так как она не сможет установить новые атрибуты этого элемента формы. В моем случае это "ТЗ".
Исходя из выше изложенного, таким образом можно увеличивать шрифт на любом элементе формы.
|
|
2
Mikeware
07.06.13
✎
15:30
|
Научился читать документацию?
банально, но похвально....
|
|
3
varelchik
07.06.13
✎
15:31
|
(2) А вы кстати в курсе что все действия над форму в FormEx делають не раньше процедуры ПослеОткрытия() АЛьФ об это давно уже писал.
Если неизменяет память это даже в описании указано.
|
|
4
oslokot
07.06.13
✎
15:40
|
(3) Он в курсе :) Кстати лучше ПослеСозданияФормы()
|
|
5
Mikeware
07.06.13
✎
15:41
|
(4) Только хотел ответить....
эх, тормоз я... :-(
|
|