Имя: Пароль:
1C
1С v8
Как присвоить кнопке число
0 adv1
 
04.03.22
23:05
Я в цикле создаю игровое поле 9на9 из кнопок, которые можно самому заполнять. Игровое поле создаётся при нажатии "начать игру". Как я могу этим кнопкам присвоить начальное числовое значение?

Процедура НачатьИгруНаСервере()
    ИгровоеПоле = Элементы.Найти("ИгровоеПоле");
    Если ИгровоеПоле <> Неопределено Тогда
    Этаформа.Элементы.Удалить(ИгровоеПоле);
    КонецЕсли;

    ИгровоеПоле = ЭтаФорма.Элементы.Добавить ("ИгровоеПоле", Тип("ГруппаФормы"),ЭтаФорма);
    ИгровоеПоле.Вид = ВидГруппыформы.ОбычнаяГруппа;
    ИгровоеПоле.Отображение = ОтображениеОбычнойГруппы.Нет;
    ИгровоеПоле.ОтображатьЗаголовок = ЛОЖЬ;
    ИгровоеПоле.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Горизонтальная;
    ИгровоеПоле.РазрешитьИзменениеСостава = Истина;
    ИгровоеПоле.Видимость = Истина;
    
    
    Для x = 1 По ШиринаИгровогоПоля Цикл
        Группа = ЭтаФорма.Элементы.Добавить("Ряд"+x, Тип("Группаформы"), Элементы.ИгровоеПоле);
        Группа.Вид = ВидГруппыформы.ОбычнаяГруппа;
        Группа.ВертикальноеПоложениеВГруппе = ВертикальноеПоложениеПодчиненных;
            
        Для y = 1 По ВысотаИгровогоПоля Цикл
            НоваяКнопка = ЭтаФорма.Элементы.Добавить("кн_"+y+"_"+x, Тип("ДекорацияФормы"), Группа);
            НоваяКнопка.Вид = ВидДекорацииФормы.Картинка;
            НоваяКнопка.Высота = 2;
            НоваяКнопка.Ширина = 4;
            НоваяКнопка.Видимость = Истина;
            НоваяКнопка.КонтекстноеМеню.Видимость = Истина;
            НоваяКнопка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная, 2);
            НоваяКнопка.ЦветРамки = WebЦвета.Золотистый;
            Новаякнопка.Гиперссылка = Истина;
            НоваяКнопка.УстановитьДействие("Нажатие", "КнопкаНажатие");
            
            КомандаНеЗнаю = ЭтаФорма.Элементы.Добавить("кн_"+y+"_"+x+"КонтекстноеМенюНеЗнаю",Тип("КнопкаФормы"), НоваяКнопка.КонтекстноеМеню);
            КомандаНеЗнаю.ИмяКоманды = "НеЗнаю";
            КомандаНеЗнаю.Картинка = БиблиотекаКартинок.Справка;
            
        КонецЦикла;
    КонецЦикла;
КонецПроцедуры
1 ГдеСобака Зарыта
 
04.03.22
23:08
НоваяКнопка.Заголовок = 1 наверно так
2 ГдеСобака Зарыта
 
04.03.22
23:09
Точнее НоваяКнопка.Заголовок = "1" текст же все-таки
3 adv1
 
04.03.22
23:50
О, спасибо
4 МихаилМ
 
05.03.22
00:07
державу. было тут подобное (0) чудо. ровно с таким же вопросом