Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Как поставить нужную пикторамму при двойном нажатии мыши в строке ТЗ? (число прочтений - 1151 )
Scorpion23
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 24
Зарегистрирован: 25. Июня 2009
Как поставить нужную пикторамму при двойном нажатии мыши в строке ТЗ?
25. Августа 2009 :: 13:09
Печать  
Есть процедура:
Процедура ОбработкаКликаПоТЗ()
ТекСтрока=ТЗДог_сл.ТекущаяСтрока();
ТекКолонка=ТЗДог_сл.ТекущаяКолонка();
  Если ТекСтрока=0 Тогда
     Возврат;
  КонецЕсли;
ТЗДог_сл.ПолучитьСтрокуПоНомеру(ТекСтрока);
  Если ТекКолонка="Пикт" Тогда
     ТЗДог_сл.Пикт=????????;//Чему???

  КонецЕсли;
КонецПроцедуры;

Есть процедура:
Процедура ОбработкаКликаПоТЗ()
ТекСтрока=ТЗДог_сл.ТекущаяСтрока();
ТекКолонка=ТЗДог_сл.ТекущаяКолонка();
  Если ТекСтрока=0 Тогда
     Возврат;
  КонецЕсли;
ТЗДог_сл.ПолучитьСтрокуПоНомеру(ТекСтрока);
  Если ТекКолонка="Пикт" Тогда
     ТЗДог_сл.Пикт=????????;//Чему???

  КонецЕсли;
КонецПроцедуры;

Картинка состоит из 5-ти пикторамм, 1- "+", 2- "-", 3- "галочка", 4- "безгалочки", 5- пустая
  

123456789.bmp ( 0 KB | Загрузки )
123456789.bmp
Наверх
 
IP записан
 
Альтаир
YaBB Newbies
*
Отсутствует


I Love YaBB 2!

Сообщений: 13
Местоположение: Харьков, Украина
Зарегистрирован: 26. Сентября 2008
Пол: Мужской
Re: Как поставить нужную пикторамму при двойном нажатии мыши в строке ТЗ?
Ответ #1 - 26. Августа 2009 :: 08:21
Печать  
Процедура ОбработкаКликаПоТЗ()
     ТекКолонка=ТЗДог_сл.ТекущаяКолонка();
     Если ТекКолонка<>"Пикт" Тогда
           Возврат;
     КонецЕсли;
     ТекСтрока=ТЗДог_сл.ТекущаяСтрока();
     Если ТекСтрока=0 Тогда
           Возврат;
     КонецЕсли;
     Отметка=ТЗДог_сл.ПолучитьЗначение(ТекСтрока,ТекКолонка)+1;
     Если Отметка=6 Тогда
           Отметка=1;
     КонецЕсли;
     ТЗДог_сл.УстановитьЗначение(ТекСтрока,ТекКолонка,Отметка);
КонецПроцедуры;

А FormEx тут причем?  Улыбка
  

Все животные равны, но некоторые равнее других.&&© Джордж Оруэлл "Скотный двор"
Наверх
www  
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать