(UTC)
  1С++ users forum › 1С++ и прочие расширения v7 › FormEx › Можно ли раскрасить ПолеВвода
(Группа Модераторов: 1c++ moderator)
‹ Предыдущая Тема | Следующая Тема ›
Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Горячая тема (более 10 ответов) Можно ли раскрасить ПолеВвода (число прочтений - 3457 )
grig1
Junior Member
**
Отсутствует


I Love YaBB 2!

Сообщений: 19
Зарегистрирован: 13. Сентября 2008
Можно ли раскрасить ПолеВвода
16. Сентября 2008 :: 13:16
Печать  
Можно ли раскрасить ПолеВвода.Что-бы пустое имело одинцвет, а заполненное другой?
  
Наверх
 
IP записан
 
kriblya
Senior Member
****
Отсутствует


I Love YaBB 2!

Сообщений: 313
Зарегистрирован: 24. Декабря 2007
Re: Можно ли раскрасить ПолеВвода
Ответ #1 - 16. Сентября 2008 :: 18:15
Печать  
Код
Выбрать все
	АтрФормы = СоздатьОбъект("АтрибутФормы");
	АтрФормы.УстановитьАтрибут(Форма,имяАтрибута);
	  АтрФормы.ЦветФона = 255;
  
Наверх
 
IP записан
 
grig1
Junior Member
**
Отсутствует


I Love YaBB 2!

Сообщений: 19
Зарегистрирован: 13. Сентября 2008
Re: Можно ли раскрасить ПолеВвода
Ответ #2 - 16. Сентября 2008 :: 19:47
Печать  
Это закрашивает поле ввода вне зависимости от того заполнили ли его или нет.А нужно если пусто один цвет.Если заполнено - другой цвет.
  
Наверх
 
IP записан
 
vip
1c++ power user
Отсутствует



Сообщений: 1570
Зарегистрирован: 19. Мая 2006
Re: Можно ли раскрасить ПолеВвода
Ответ #3 - 16. Сентября 2008 :: 19:56
Печать  
grig1 писал(а) 16. Сентября 2008 :: 19:47:
Это закрашивает поле ввода вне зависимости от того заполнили ли его или нет.А нужно если пусто один цвет.Если заполнено - другой цвет.

Ну так и проверяй, заполнено оно или нет. И меняй цвет.
Повесь функцию изменения цвета на текст на форме, например.
  
Наверх
ICQ  
IP записан
 
grig1
Junior Member
**
Отсутствует


I Love YaBB 2!

Сообщений: 19
Зарегистрирован: 13. Сентября 2008
Re: Можно ли раскрасить ПолеВвода
Ответ #4 - 16. Сентября 2008 :: 20:32
Печать  
Наверно что-то не так делаю:
Код
Выбрать все
Процедура ПослеОткрытия()
    АтрФормы = СоздатьОбъект("АтрибутФормы");
АтрФормы.УстановитьАтрибут(Форма,"принял");
 Если ПустоеЗначение(принял)=1 Тогда
	  АтрФормы.ЦветФона = (100);
  Иначе
	  АтрФормы.ЦветФона = (255);
 КонецЕсли;
КонецПроцедуры

И почему-то закрашивает рамкой
  
1_004.jpg ( 8 KB | Загрузки )
1_004.jpg
Наверх
 
IP записан
 
vip
1c++ power user
Отсутствует



Сообщений: 1570
Зарегистрирован: 19. Мая 2006
Re: Можно ли раскрасить ПолеВвода
Ответ #5 - 16. Сентября 2008 :: 20:37
Печать  
Цитата:
И почему-то закрашивает рамкой

Правильно раскрашивает. Если тип поля ввода не строка или число, так и будет выглядеть.
  
Наверх
ICQ  
IP записан
 
grig1
Junior Member
**
Отсутствует


I Love YaBB 2!

Сообщений: 19
Зарегистрирован: 13. Сентября 2008
Re: Можно ли раскрасить ПолеВвода
Ответ #6 - 16. Сентября 2008 :: 20:38
Печать  
А что в коде неправильно?
  
Наверх
 
IP записан
 
vip
1c++ power user
Отсутствует



Сообщений: 1570
Зарегистрирован: 19. Мая 2006
Re: Можно ли раскрасить ПолеВвода
Ответ #7 - 16. Сентября 2008 :: 20:42
Печать  
grig1 писал(а) 16. Сентября 2008 :: 20:38:
А что в коде неправильно?

АтрФормы.ЦветФона = (255);
Скобки к чему впер?
  
Наверх
ICQ  
IP записан
 
grig1
Junior Member
**
Отсутствует


I Love YaBB 2!

Сообщений: 19
Зарегистрирован: 13. Сентября 2008
Re: Можно ли раскрасить ПолеВвода
Ответ #8 - 16. Сентября 2008 :: 20:48
Печать  
Убрал скобки все равно цвет не меняется.Точнее цвет меняетсяпосле закрытия документа, а не при вводе.
  
Наверх
 
IP записан
 
vip
1c++ power user
Отсутствует



Сообщений: 1570
Зарегистрирован: 19. Мая 2006
Re: Можно ли раскрасить ПолеВвода
Ответ #9 - 16. Сентября 2008 :: 20:59
Печать  
Цитата:
Повесь функцию изменения цвета на текст на форме, например.

То что в ПослеОткрытия перенеси в функцию текста на форме.
Или в процедуру на твоем поле ввода.
Цвет будет меняться при отработке функции или процедуры.
  
Наверх
ICQ  
IP записан
 
grig1
Junior Member
**
Отсутствует


I Love YaBB 2!

Сообщений: 19
Зарегистрирован: 13. Сентября 2008
Re: Можно ли раскрасить ПолеВвода
Ответ #10 - 16. Сентября 2008 :: 21:04
Печать  
Я уже понял ошибку.Спасибо.
  
Наверх
 
IP записан
 
grig1
Junior Member
**
Отсутствует


I Love YaBB 2!

Сообщений: 19
Зарегистрирован: 13. Сентября 2008
Re: Можно ли раскрасить ПолеВвода
Ответ #11 - 17. Сентября 2008 :: 08:25
Печать  
Сделал так:
Код
Выбрать все
Процедура ПослеОткрытия()
	   АтрФормы = СоздатьОбъект("АтрибутФормы");
АтрФормы.УстановитьАтрибут(Форма,"Склад_донор");
АтрФормы.ЦветФона = 255;


Код
Выбрать все
Процедура ПриНачалеРедактированияСтроки()
    АтрФормы = СоздатьОбъект("АтрибутФормы");
АтрФормы.УстановитьАтрибут(Форма,"Склад_донор");
 Если ПустоеЗначение(Склад_донор)=0 Тогда
	  АтрФормы.ЦветФона = 16121600;
	КонецЕсли;

  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge