ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Подскажите предопределенную процедуру...
5 сообщений из 5, страница 1 из 1
Подскажите предопределенную процедуру...
    #37806947
mavksalisova
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mavksalisova
Гость
Здравствуйте!
1С 7.7

Нужно в форме списка справочника при позиционировании на элементе показывать фото этого элемента методом Картинка.Загрузить(...).
Подскажите, пожалуйста, в какой предопределенной процедуре или у какого элемента формы в формулу или куда еще можно вписать этот метод?

Спасибо!
...
Рейтинг: 0 / 0
23.05.2012, 01:20
| Ответить | Цитировать | Написать  
Подскажите предопределенную процедуру...
    #37806974
Злой Бобр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Злой Бобр
Участник
mavksalisova,

Если именно в форме списка то повесь кнопку и в ней процедуру. Иначе если при пролистывании смотреть будут тормоза сильные.
...
Рейтинг: 0 / 0
23.05.2012, 02:26
| Ответить | Цитировать | Написать  
Подскажите предопределенную процедуру...
    #37807946
mavksalisova
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mavksalisova
Гость
Злой Бобр,

Спасибо!
Если использовать кнопку, то рисунок будет обновляться только при ее нажатии? Я правильно поняла?
Если да, то тормоза особо не пугают - листать справочник не предполагается вроде бы.

А без кнопки еще какой-нибудь вариант может предложите?
...
Рейтинг: 0 / 0
23.05.2012, 14:31
| Ответить | Цитировать | Написать  
Подскажите предопределенную процедуру...
    #37807997
mavksalisova
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mavksalisova
Гость
Пока что сделала так, используя Formex:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Процедура ИзменениеКартинки()
	
	// попытаемся установить фото
	КаталогФотографий = КаталогИБ() + "\Photo\";
	ФайлФото = КаталогФотографий + "ph" + СокрЛП(Строка(Наименование))+".*";
	Если ФС.СуществуетФайл(ФайлФото) = 1 Тогда
		Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото))
	Иначе
		ФайлФото = КаталогФотографий + "NoPhoto.*"; 
		Если ФС.СуществуетФайл(ФайлФото) = 1 Тогда
			Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото)) 
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры

Процедура ПриОтжатииКнопкиКлавиатуры(прм_КодКлавиши, прм_Alt, прм_Shift, прм_Ctrl, прм_Символ, прм_ФСО)
	ИзменениеКартинки()
КонецПроцедуры  
// ====================================== 
Процедура ПриОтжатииПравойКнопки(Сост,КоординатаПоГоризонтали,КоординатаПоВертикали,ФСО)
	ИзменениеКартинки()
КонецПроцедуры  

Процедура ПриОтжатииЛевойКнопки(Сост,КоординатаПоГоризонтали,КоординатаПоВертикали,ФСО)
	ИзменениеКартинки()
КонецПроцедуры



Если найдутся другие решения - пишите, пожалуйста.
...
Рейтинг: 0 / 0
23.05.2012, 14:48
| Ответить | Цитировать | Написать  
Подскажите предопределенную процедуру...
    #37808664
Злой Бобр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Злой Бобр
Участник
mavksalisovaЕсли использовать кнопку, то рисунок будет обновляться только при ее нажатии? Я правильно поняла? Да.
Если да, то тормоза особо не пугают - листать справочник не предполагается вроде бы. Ну мое дело предупредить.
А без кнопки еще какой-нибудь вариант может предложите? Стандартный.

Код: sql
1.
2.
3.
4.
5.
6.
Перем ПустоеФото, НашеФото;
Процедура ПриОткрытии()
    ПустоеФото=СоздатьОбъект("Картинка");
    ПустоеФото.Загрузить(КаталогИБ()+"\Photo\NoPhoto.bmp");
    ...
КонецПроцедуры


Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Функция ИзмКартинку()
    Если (ТекущийЭлемент().Выбран()=0) или (ТекущийЭлемент().ЭтоГруппа()=1) Тогда
    Иначе
        Если ПустаяСтрока(ФайлФото)=0 Тогда
            Если ФС.СуществуетФайл(КаталогИБ()+"\Photo\"+СокрЛП(ФайлФото))=0 Тогда
                Фото.УстановитьКатринку(ПустоеФото);
            Иначе
                НашеФото.Загрузить(КаталогИБ()+"\Photo\"+СокрЛП(ФайлФото));
                Фото.УстановитьКартинку(НашеФото);
            КонецЕсли;
        Иначе
            Фото.УстановитьКатринку(ПустоеФото);
        КонецЕсли;
    КонецЕсли;
    Возврат "";
КонецФункции



Можно конечно сделать и пролистывание, но думаю сами разберетесь. ФайлФото это реквизит строка в справочнике. Файл NoPhoto.bmp должен обязательно быть. Функция вызывается путем размещения на форме текста, срабатывает при каждом переходе по строкам.
Ну вроде как все. Но я всетаки настоятельно несоветую этот способ. Проверено временем так сказать.
...
Рейтинг: 0 / 0
23.05.2012, 21:43
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / Подскажите предопределенную процедуру...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]