Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / [игнор отключен] [закрыт для гостей] / управление кнопками / 1 сообщений из 1, страница 1 из 1
10.07.2010, 00:49
    #36733684
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
управление кнопками
http://www.forum.mista.ru/topic.php?id=253467
Код: plaintext
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.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
ИначеЕсли Источник="Hook" Тогда // вот этот раздел касается клавиатуры 
        // Управляющие клавиши 
        Стат="";
        Стат=СокрЛП(Рарус_Компонента.GetHookKeysState());    // Состояния Shift+Ctrl+Alt в момент Hook'a 
        СкКод=Число(Данные);
        
        Если СкКод= 13  Тогда            // <Enter> 
            Если Стат="000" Тогда    флОбработано = ПриВыбореЗначения("кнПробить");    КонецЕсли;
        ИначеЕсли СкКод= 27  Тогда            // <Escape> 
            Если Стат="000" Тогда    флОбработано = ПриВыбореЗначения("кнОтмена")    КонецЕсли;
        ИначеЕсли СкКод= 38  Тогда            // <UP Arrow> 
            Если Стат="000" Тогда    флОбработано = ПриВыбореЗначения("кнВверх");
            ИначеЕсли Стат="010" Тогда Код =  28  КонецЕсли;
        ИначеЕсли СкКод= 40  Тогда            // <Down Arrow> 
            Если Стат="000" Тогда    флОбработано = ПриВыбореЗначения("кнВниз");    
            ИначеЕсли Стат="010" Тогда Код =  27  КонецЕсли;
        ИначеЕсли СкКод= 45  Тогда            // <Insert> 
            Если Стат="000" Тогда    флОбработано = ПриВыбореЗначения("кнВыборМеню");КонецЕсли;
        ИначеЕсли СкКод= 46  Тогда            // <Delete> 
            Если Стат="000" Тогда    флОбработано = ПриВыбореЗначения("кнУдалитьСтроку");КонецЕсли;
        ИначеЕсли СкКод= 122  Тогда            // <Down Arrow> 
            Если Стат="000" Тогда    флОбработано = ПриВыбореЗначения("кнЗакрыть");    
            ИначеЕсли Стат="010" Тогда Код =  27  КонецЕсли;
        ИначеЕсли СкКод= 113  Тогда                // <F2>        МЕНЮ, КОЛИЧЕСТВО, НАЛИЧНЫЕ, СКИДКА НА ЧЕК, СКИДКА НА ПОЗИЦИЮ 
            Если Стат="000" Тогда        флОбработано = ПриВыбореЗначения("кнВыборМеню");        // 
            ИначеЕсли Стат="010" Тогда    флОбработано = ПриВыбореЗначения("кнКоличество");        // Ctrl     
            ИначеЕсли Стат="001" Тогда    флОбработано = ПриВыбореЗначения("кнНаличные");            // Alt     
            ИначеЕсли Стат="110" Тогда    флОбработано = ПриВыбореЗначения("кнСкидкаЧек");        // Shift + Ctrl 
            ИначеЕсли Стат="101" Тогда    флОбработано = ПриВыбореЗначения("кнСкидкаПозиция");    // Shift + Alt     
            ИначеЕсли Стат="111" Тогда    флОбработано = ПриВыбореЗначения("кнОтменаКарты"); КонецЕсли;    // Ctrl + Shift + Alt     
        ИначеЕсли СкКод= 116  Тогда                // <F5>        ВОЗВРАТ,  0 , X, Z, ->, <- 
            Если Стат="010" Тогда    флОбработано = ПриВыбореЗначения("кнВозврат");        // Ctrl 
            ИначеЕсли Стат="001" Тогда    флОбработано = ПриВыбореЗначения("кн0Чек");            // Alt 
            ИначеЕсли Стат="011" Тогда    флОбработано = ПриВыбореЗначения("кнXотчет");        // Ctrl + Alt 
            ИначеЕсли Стат="111" Тогда    флОбработано = ПриВыбореЗначения("кнZотчет");        // Shift + Ctrl + Alt 
            ИначеЕсли Стат="100" Тогда    флОбработано = ПриВыбореЗначения("кнВнесение");        // Shift 
            ИначеЕсли Стат="110" Тогда    флОбработано = ПриВыбореЗначения("кнИзъятие");        // Shift + Ctrl 
            ИначеЕсли Стат="101" Тогда    флОбработано = ПриВыбореЗначения("кнЯщик");        КонецЕсли;          // Shift + Alt 
        КонецЕсли;        
    КонецЕсли;    
    //     Если здесь не смогли обработать - на глобальный обработчик 
    Если флОбработано = - 1  Тогда
        глОбработкаВнешнегоСобытия(Источник, Событие, Действие, Контекст);
    КонецЕсли;    

есть ли что то подобное в 1с8.1 Управление торговлей 10? Искал в ФормаРегистрацииПродаж.
Хочу запрограммировать клавиатуру и че то не могу найти ниче подобного
...
Рейтинг: 0 / 0
Форумы / [игнор отключен] [закрыт для гостей] / управление кнопками / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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