Ошибка при вызове метода контекста вставить недопустимое значение параметров

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    МиныВсего = 10;
    КолВоСтрок = 10;
    КолВоСтолбцов = 10;
    МиныОстаток = 10;
    Флаги = 0;
КонецПроцедуры
 
&НаКлиенте
Процедура НачатьИгру(Команда)
       НачатьИгруНаСервере();
       ЭтаФорма.ОбновитьОтображениеДанных(Элементы["ИгровоеПоле"]);
КонецПроцедуры
 
 
&НаСервере
Процедура НачатьИгруНаСервере()
    
        ИгровоеПоле = Элементы.Найти("ИгровоеПоле");
        Если ИгровоеПоле <> Неопределено Тогда
            ЭтаФорма.Элементы.Удалить(ИгровоеПоле);
            КонецЕсли;
    
          ИгровоеПоле = ЭтаФорма.Элементы.Добавить("ИгровоеПоле",Тип("ГруппаФормы"),ЭтаФорма);
          ИгровоеПоле.Вид = ВидГруппыФормы.ОбычнаяГруппа;
          ИгровоеПоле.Отображение = ОтображениеОбычнойГруппы.Нет;
          ИгровоеПоле.ОтображатьЗаголовок = Ложь;
          ИгровоеПоле.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
          ИгровоеПоле.РазрешитьИзменениеСостава = Истина;
          ИгровоеПоле.Видимость = Истина;
        
          Для Х = 1 По КолВоСтолбцов Цикл
              Группа = ЭтаФорма.Элементы.Добавить("Ряд "+Х,Тип("ГруппаФормы"),Элементы.ИгровоеПоле);
              Группа.Вид = ВидГруппыФормы.ОбычнаяГруппа;
              Группа.ВертикальноеПоложениеВГруппе = ВертикальноеПоложениеПодчиненных;
              Группа.Видимость = Истина;
                  Для У = 1  по КолВоСтрок Цикл
                  НоваяКнопка = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х,Тип("ДекорацияФормы"),Группа);
                  НоваяКнопка.Вид = ВидДекорацииФормы.Картинка;
                  НоваяКнопка.Высота = 1;
                  НоваяКнопка.Ширина = 2;
                  НоваяКнопка.Видимость = Истина;
                  НоваяКнопка.КонтекстноеМеню.Видимость = Истина;
                  НоваяКнопка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Выпуклая,3);
                  НоваяКнопка.Гиперссылка = Истина;
                  НоваяКнопка.УстановитьДействие("Нажатие","КнопкаНажатие");
                  
                  КомандаВопрос = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х+"КонтекстноеМенюВопрос",
                  Тип("КнопкаФормы"),НоваяКнопка.КонтекстноеМеню);
                  КомандаВопрос.ИмяКоманды = "Вопрос1";
                  КомандаВопрос.Картинка = БиблиотекаКартинок.Справка;
                  
                  
                  КомандаМина = ЭтаФорма.Элементы.Добавить("Клетка_У "+У+"_Х "+Х+"КонтекстноеМенюМина",
                  Тип("КнопкаФормы"),НоваяКнопка.КонтекстноеМеню);
                  КомандаМина.ИмяКоманды = "ЭтоМина";
                  КомандаМина.Картинка = БиблиотекаКартинок.ОформлениеФлагКрасный;
                  
                  НастройкаПоля = НастройкиПоля.Добавить();
                  НастройкаПоля.ИмяПоля = "Клетка_У"+У+"_Х "+Х;
                  НастройкаПоля.Строка = У;
                  НастройкаПоля.Столбец = Х;
                  НастройкаПоля.МинаВЯчейке = Ложь;
                  
              КонецЦикла;
          КонецЦикла;
          
          ГенСлучЧис = Новый ГенераторСлучайныхЧисел();
          Для СлучЧис = 1 По МиныВсего Цикл
              МинаЕсть = Ложь;
              Пока Не МинаЕсть Цикл
                  ГдеМина = ГенСлучЧис.СлучайноеЧисло(0,НастройкиПоля.Количество()-1);
                  Строка = НастройкиПоля[ГдеМина];
                  Если Строка.Мина = Истина Тогда
                      Продолжить
                  КонецЕсли;
                   Строка.Мина = истина;
                   Элементы[Строка.ИмяПоля].Заголовок = "Х";
                   МинаЕсть = Истина;
               КонецЦикла;
           КонецЦикла;
           
           Для Х = 1 по КолВоСтолбцов Цикл
               Для У = 1 По КолВоСтрок Цикл
                   ИмяТекущегоЭлемента = "Клетка_У "+У+"_Х "+Х;
                   Если Элементы[ИмяТекущегоЭлемента].Заголовок = "Х" Тогда
                       Продолжить;
                   КонецЕсли;
                   МиныРядом =0;
                   
                   ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х-1);
                   Если (У-1>0 и Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                    ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х);
                   Если (У-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   ИмяЭлемента = "Клетка_У"+(У-1)+"_Х "+(Х+1);
                   Если (У-1>0 и Х+1<=КолВоСтолбцов) И Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У)+"_Х "+(Х-1);
                   Если (Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У)+"_Х "+(Х+1);
                   Если (Х+1<=КолВоСтолбцов) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х-1);
                   Если (У+1<=КолВоСтрок и Х-1>0) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х);
                   Если (У+1<=КолВоСтрок) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   
                   ИмяЭлемента = "Клетка_У"+(У+1)+"_Х "+(Х+1);
                   Если (У+1<=КолВоСтрок и Х+1<=КолВоСтолбцов) и Элементы[ИмяЭлемента].Заголовок = "Х" тогда
                       МиныРядом = МиныРядом+1;
                   КонецЕсли;
                   
                   Если МиныРядом > 0 Тогда
                       Элементы[ИмяТекущегоЭлемента].Заголовок = МиныРядом;
                       
                   КонецЕсли;
               КонецЦикла;
               КОнецЦикла;
 
                   
                   
          
            
    КонецПроцедуры
 
 
&НаКлиенте
    Процедура Вопрос1(Команда)
        ТекущийЭлемент.Картинка = БиблиотекаКартинок.Справка;
    КонецПроцедуры
 
&НаКлиенте
    Процедура ЭтоМина(Команда)
        ТекущийЭлемент.Картинка = БиблиотекаКартинок.ОформлениеФлагКрасный;
    КонецПроцедуры
    
    
&НаКлиенте
Процедура КнопкаНажатие(Элемент)
    Элемент.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная, 1);
    Если Элемент.Заголовок = "Х" Тогда
        Элемент.Картинка = библиотекаКартинок.Удалить;
        ОткрытьВсеМины();
        Предупреждение("Неудачно");
    Иначе
        Элемент.Картинка = Новый Картинка;
        Элемент.ТекстНеВыбраннойКартинки = Элемент.Заголовок;
    КонецЕсли;
    КонецПРоцедуры
 
    
&НаСервере
Процедура ОткрытьВсеМины()
    Для Х = 1 По КолВоСтолбцов Цикл
        Для У = 1 по КолВоСтрок Цикл
            ИмяТекущегоЭлемента = "Клетка_У"+У+"_ Х"+Х;
            Если Элементы[ИмяТекущегоЭлемента].Заголовок = "Х" Тогда
                Элементы[ИмяТекущегоЭлемента].Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная, 1);
                Элементы[ИмяТекущегоЭлемента].Картинка = БиблиотекаКартинок.Удалить;
            КонецЕсли;
        КОнецЦикла;
    КонецЦикла;
    КонецПроцедуры