Имя: Пароль:
1C
1C 7.7
v7: Как сделать большим окно ввода текста
0 Aleksey
 
19.10.12
01:10
Собственно обработка в которой пользователь вводит числовую информацию с клавиатуры. И хотелось бы чтобы цифры были не мелкие, а "чтобы с далека было видно".

Никто не подскажет как?
1 Партизан
 
19.10.12
01:18
надпись, шрифт
2 Aleksey
 
19.10.12
01:19
(1) надпись <> поле ввода

Как в надпись вводить инфу?
3 Партизан
 
19.10.12
01:27
(2) перехватывать и отображать
4 Boleev v2
 
19.10.12
01:31
(0) можно сделать только для всей формы. Зайди в свойтва формы
5 Aleksey
 
19.10.12
02:00
(4) не работает, всё равно мелко
6 Злопчинский
 
19.10.12
02:03
Формексом назначаешь на атрибут (поле ввода) -нужный размер текста и его цвет
7 Злопчинский
 
19.10.12
02:03
точно так же можно на ТЗ назначить большой шритфт...
8 Boleev v2
 
19.10.12
02:03
тогда либо
формексом или активикс на форму
9 Злопчинский
 
19.10.12
02:05
//******************************************************************************
Процедура ПослеОткрытия()
   глРасширениеФормы = СоздатьОбъект("РасширениеФормы");
   //глРасширениеФормы.Максимизирована = 1;
   глРасширениеФормы.ПолучитьАтрибут("ВыбНомерПакета")            .Шрифт        = глСервис.СоздатьШрифт("Arial",60);
   глРасширениеФормы.ПолучитьАтрибут("ВыбНомерПакета")            .ЦветШрифта = 255;
   глРасширениеФормы.ПолучитьАтрибут("кнПодтвердить")            .Шрифт        = глСервис.СоздатьШрифт("Arial",20,7);
   глРасширениеФормы.ПолучитьАтрибут("кнОтказаться")            .Шрифт        = глСервис.СоздатьШрифт("Arial",20,7);
   глРасширениеФормы.ПолучитьАтрибут("кнСканироватьПервый")    .Шрифт        = глСервис.СоздатьШрифт("Arial",20,7);
   глРасширениеФормы.ПолучитьАтрибут("кнНОВЫЙПАКЕТ")            .Шрифт        = глСервис.СоздатьШрифт("Arial",20,7);
КонецПроцедуры //ПослеОткрытия()
10 Aleksey
 
19.10.12
02:08
Не формекс не люблю. Он у меня тормозит в терминале при 100 пользователях, поэтому хотелось бы обойтись без него
11 Boleev v2
 
19.10.12
02:09
(10) переходи на восьмерку куле. там это реализовано
12 Злопчинский
 
19.10.12
02:09
(10) а отслеживание мышки в нем отключено?
13 Злопчинский
 
19.10.12
02:10
(11) тогда при 100 пользователях ему точно вопрос из (0) будет сугубо неактуален очень долго...
14 Aleksey
 
19.10.12
02:12
(12) Давно это было ...

Хотя 1С++ обычный подключен
15 Злопчинский
 
19.10.12
02:14
(14) пора реанимировать! отключить отслеживание мыши, отключить раскраску таблиц.. и  .. и.. попробовать!!! сначала на 4-5 юзеров подключить... потом поболеее...
16 Aleksey
 
19.10.12
02:27
Нашел в интернете


//*******************************************
Функция ПриВыбореЗначения(ОБ="")
 Если Об="" Тогда Об=Форма.АктивныйЭлемент() КонецЕсли;
 Если Лев(Об,2)="кн" Тогда
   Сообщить(Симв(Прав(Об,2)));
   Форма.ПолучитьАтрибут(Об).Видимость(0);
   Форма.ТекстДляСлепых.Заголовок(СтрЗаменить(Форма.ТекстДляСлепых.Заголовок()+Симв(Прав(Об,2)),",","."));
   Форма.ПолучитьАтрибут(Об).Видимость(1);
 КонецЕсли;
 
КонецФункции
Процедура ПриОткрытии()
 Для к=0 По 9 Цикл
   Форма.ПолучитьАтрибут("кн"+(48+к)).Заголовок("&"+к);
 КонецЦикла;
 Форма.ПолучитьАтрибут("кн46").Заголовок("&.");
 Форма.ПолучитьАтрибут("кн44").Заголовок("&,");
КонецПроцедуры

На форме кн48 - кн57, кн44 и кн46, "ТекстДляСлепых" - текст с большими буковами
(с) Как сделать большой шрифт в поле ввода?????