Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Шапка на на объекте  "Дерево+Таблица" (число прочтений - 2241 )
gelotus
Junior Member
**
Отсутствует


I Love YaBB 2!

Сообщений: 30
Зарегистрирован: 26. Февраля 2007
Шапка на на объекте  "Дерево+Таблица"
14. Июня 2007 :: 11:05
Печать  
Скажите как определить , что нажата шапка  на объекте  "Дерево+Таблица"
  
Наверх
 
IP записан
 
АЛьФ
FormEx developer
1c++ developer
Отсутствует



Сообщений: 1538
Местоположение: Санкт-Петербург
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Шапка на на объекте  "Дерево+Таблица"
Ответ #1 - 14. Июня 2007 :: 11:18
Печать  
Никак.
  

FormEx developer
Наверх
www  
IP записан
 
gelotus
Junior Member
**
Отсутствует


I Love YaBB 2!

Сообщений: 30
Зарегистрирован: 26. Февраля 2007
Re: Шапка на на объекте  "Дерево+Таблица"
Ответ #2 - 14. Июня 2007 :: 12:15
Печать  
Вот что у меня получилось:

Процедура ПриНажатииЛевойКнопки(сост, х, у)
    Атр = РасшФормы.ПолучитьАтрибутПоКоординатам(х,у);
     Если ТипЗначенияСтр(Атр) = "АтрибутФормы" Тогда
           
           Если Атр.идентификатор="ТЗ" Тогда
                   Если Атр.этогруппа(Атрибут("ТЗ").ТекущаяСтрокаДерева())=1 Тогда
                             Возврат;
                       КонецЕсли;
                       в = ""; л = ""; н = ""; п = "";
                       РасшФормы.ПолучитьКоординатыЯчейки("ТЗ",1 , 2, в, л, н, п);
                       Если в>у Тогда // Шапка
                       //      Сообщить("Шапка");
                             Для колонка=1 по тз.Количествоколонок() цикл
                                   колонкаТЗ=Атрибут("ТЗ").ПолучитьНомерКолонкиТаблицыЗначений(колонка);
                                   Если колонкаТЗ=0 Тогда // Закончиличь колонки
                                         прервать;
                                   КонецЕсли;
                                   РасшФормы.ПолучитьКоординатыЯчейки("ТЗ",1 , колонка, в, л, н, п);
                                   Если п>х Тогда
                                         Если л>х Тогда
                                               Сообщить(Атрибут("ТЗ").ИдентификаторКолонкиДерева(колонкаТЗ-1));
                                         Иначе
                                              Сообщить(Атрибут("ТЗ").ИдентификаторКолонкиДерева(колонкаТЗ));      
                                         КонецЕсли;
                                         прервать;
                                   КонецЕсли;
                             Конеццикла;      
                       КонецЕсли;
           КонецЕсли;
     КонецЕсли;

КонецПроцедуры
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать