5.
Ёпрст
1063
10.07.09 10:55
Сейчас в теме
() 19 строк... дальше лень.. Оно нам вообще надо ?
Перем идКН0;
Процедура ПриОткрытии()
НаборЦифр="01020304050607080910111213140015"; //для проверки победы
Для Кнопка=1 по 16 Цикл
Форма.ПолучитьАтрибут("к"+Строка(Кнопка)).Заголовок(?(Сред(НаборЦифр,Кнопка*2-1,2)="00","",Число(Сред(НаборЦифр,Кнопка*2-1,2))));
идКН0=?(Форма.ПолучитьАтрибут("к"+Строка(Кнопка)).Заголовок()="","к"+Строка(Кнопка),идКН0);
КонецЦикла;
КонецПроцедуры
Процедура Ткнули(кЛ,кВ,кП,кН)
Форма.ПолучитьАтрибут(идКН0).Заголовок(?((кЛ=идКН0) или (кВ=идКН0) или (кП=идКН0) или (кН=идКН0),Форма.ПолучитьАтрибут(Форма.АктивныйЭлемент()).Заголовок(),""));
Форма.ПолучитьАтрибут(Форма.АктивныйЭлемент()).Заголовок(?(Форма.ПолучитьАтрибут(идКН0).Заголовок()<>"","",Форма.ПолучитьАтрибут(Форма.АктивныйЭлемент()).Заголовок()));
идКН0=?(Форма.ПолучитьАтрибут(Форма.АктивныйЭлемент()).Заголовок()="",Форма.АктивныйЭлемент(),идКН0);
Для Кнопка=1 по 16 Цикл
Рез=?(Форма.ПолучитьАтрибут("к"+Строка(Кнопка)).Заголовок()="",Рез+"_",Рез+Форма.ПолучитьАтрибут("к"+Строка(Кнопка)).Заголовок());
КонецЦикла;
Если Рез="123456789101112131415_" Тогда
Предупреждение("Пам-Пам-Парара-Рам! УРРРА!!! Победа!!!");
КонецЕсли;
КонецПроцедуры