Пишем игру Минер. Обработка событий ActiveX в 1С

Открываем  и создаем проект аналогично описаном в предыдущей статье  //firstportal.ru/public/625457/.

Для хранения изображений колоды карт будем использовать компонент TImage. Кидаем его на форму и подгружаем изображения. Свойство Visible = false

Открываем Type Library и добавляем 3 метода:

AddCell  - добавляем ячейку

ChangeImage - поменять ячейку

ClearResource - Очищаем ресурсы с формы

Добавляем СОБЫТИЕ

Кодим:

Создаем класс

TCell = class
  Public
    Image : TImage;
    Row: Integer;
    Column: Integer;
    Par : Tw0rmMine;
    NameClass : string;
    Procedure OnRightClickImage(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  Constructor Create(x, y, iRow, iCol : Integer; iName: string);
  End;

procedure Tw0rmMine.MyEvent(Row, Column: Integer; Button, Name: string);
begin
  if FEvents <> nil then FEvents.OnClickCell(Row, Column, Button, Name);
end;

{ TCell }


constructor TCell.Create(x, y, iRow, iCol: Integer; iName: string);
begin
  x := x;
  y := y;
  Row := iRow;
  Column := iCol;
  NameClass := iName

end;


procedure TCell.OnRightClickImage(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Butt : String;

begin

  if Button = controls.mbRight then
    begin
      Butt := 'btRight';
    end;
  if Button = controls.mbLeft then
    begin
      Butt := 'btLeft';
    end;

    Par.MyEvent(Row, Column, Butt, NameClass); //!!!-ГЕНЕРИРУЕМ СОБЫТИЕ ДЛЯ 1С

end;


//Прорисовываем ячейку
procedure Tw0rmMine.AddCell(x, y, Row, Column: Integer;
  const Name: WideString);
var
  Cell : TCell;
const
  h=30; //Высота изображения
begin
  Cell := TCell.Create(x,y,Row,Column, Name);
  cell.Image := TImage.Create(Self);
  cell.Image.Parent:= Self;
  cell.Image.Left:=x;
  cell.Image.Top:=y;
  cell.Image.Width:=h;
  cell.Image.Height:=h;
  cell.Image.Name := Name;
  cell.Image.Canvas.CopyRect(Rect(0, 0, h, h), Image1.Canvas, Rect(column*h ,row*h, (column*h)+h, (row*h)+h));
  cell.Image.OnMouseDown := cell.OnRightClickImage;
  cell.Par := Self;
end;


//Меняем изображение в ячейке
procedure Tw0rmMine.ChangeImage(const Name: WideString; Row,
  Column: Integer);
Var
  img : TImage;
const
  h=30; //Высота изображения
begin
  img:=(FindComponent(Name)) as Timage;
  img.Canvas.CopyRect(Rect(0, 0, h, h), Image1.Canvas, Rect(column*h ,row*h, (column*h)+h, (row*h)+h));
end;

//Очищаем ресурсы 
procedure Tw0rmMine.ClearResource;
var i : integer;
begin
for i:= ComponentCount-1 downto 0 do
 begin
  If Components[i].Name <> 'Image1' then  Components[i].Free;
 end;
end;

Регистрируем компоненту.

Открываем 1С создаем обработку. Накидываем контролы. Видим, что появилось наше событие:

Кодим:

Перем МассивЯчеек;
Перем МассивИменЯчеек;
Перем МассивСостояниеЯчейки;
Перем МассивСостоянияФлагаЯчейки;
Перем ИдМины;

Процедура КнопкаВыполнитьНажатие(Кнопка)
        ЭлементыФормы.ЭлементУправления1.AddCell(0,0,1,2, "s1");
        ЭлементыФормы.ЭлементУправления1.AddCell(0,30,0,0, "s2");
КонецПроцедуры

Процедура ЭлементУправления1OnClickCell(Элемент, Row, Column, Button, Name)
        
        СпецификацияЯчейки = СтрЗаменить(Name, "_", Символы.ПС);
        Строк = Число(СтрПолучитьСтроку (СпецификацияЯчейки, 2)) - 1;
        Колонка = Число(СтрПолучитьСтроку (СпецификацияЯчейки, 3))-1;
        
        Если МассивСостояниеЯчейки[Строк][Колонка] =1 Тогда 
                Возврат;
        КонецЕсли;      
        
        Если Button = "btLeft" Тогда 
                
                ОбработатьГрафическийВыводЛеваяКнопка(Строк, Колонка, Name);
                
                Если МассивЯчеек[Строк][Колонка] = 0 Тогда
                        ОбработатьПустуюЯчейку(Строк, Колонка);
                        
                        Выход = Ложь;
                        
                        Пока Выход = Ложь Цикл 
                                Выход = Истина;
                                
                                Для а = 0 по КоличествоСтрок-1 Цикл 
                                        Для б = 0 по КоличествоКолонок-1 Цикл 
                                                Если МассивСостояниеЯчейки[а][б] = 99 Тогда 
                                                        ОбработатьПустуюЯчейку(а, б);
                                                        МассивСостояниеЯчейки[а][б] = 1;
                                                        Выход = Ложь;
                                                КонецЕсли;      
                                                
                                        КонецЦикла;     
                                КонецЦикла;
                        КонецЦикла;     
                        
                КонецЕсли;
                
                МассивСостояниеЯчейки[Строк][Колонка] = 1;
                                
        КонецЕсли;      
        
        
        Если Button = "btRight" Тогда
                
                МассивСостоянияФлагаЯчейки[Строк][Колонка] = МассивСостоянияФлагаЯчейки[Строк][Колонка] + 1;
                Если МассивСостоянияФлагаЯчейки[Строк][Колонка] > 2 Тогда 
                        МассивСостоянияФлагаЯчейки[Строк][Колонка] = 0; 
                КонецЕсли;      
                
                ОбработатьГрафическийВыводПраваяКнопка(Строк, Колонка, Name);
        
        КонецЕсли;      
        
        ПроверитьИгру();
        
КонецПроцедуры

Процедура ПриОткрытии()
        КоличествоКолонок = 10;
        КоличествоСтрок   = 10;
        КоличествоМин     = 10;
КонецПроцедуры

Процедура СтартНажатие(Элемент) 
        ЭлементыФормы.КомпонентПоле.ClearResource();
        ИнициализироватьПоле();
        ПрорисоватьПоле();
        ИдБомбы = 999;
        
КонецПроцедуры

Процедура ИнициализироватьПоле()
        
        МассивЯчеек = Новый     Массив(КоличествоСтрок, КоличествоКолонок);
        МассивСостояниеЯчейки = Новый   Массив(КоличествоСтрок, КоличествоКолонок);
        МассивСостоянияФлагаЯчейки = Новый      Массив(КоличествоСтрок, КоличествоКолонок);
        
        //Инициализируем массив
        Для а = 0 по КоличествоСтрок-1 Цикл 
                Для б = 0 по КоличествоКолонок-1 Цикл 
                        МассивЯчеек[а][б] = 0;
                        МассивСостояниеЯчейки[а][б] = 0;
                        МассивСостоянияФлагаЯчейки[а][б] =0;
                КонецЦикла;     
        КонецЦикла;     
        
        //Расставляем мины
        
        Для ии = 1 По КоличествоМин Цикл  
                
                МинаРасставлена = Ложь;
                
                Пока МинаРасставлена = Ложь Цикл 
                        Колонка = ПолучитьСлучайноеЧисло(0, КоличествоСтрок-1);
                        Ряд = ПолучитьСлучайноеЧисло(0, КоличествоКолонок-1);   

                        Если МассивЯчеек[Ряд][Колонка] = 0 Тогда 
                                МассивЯчеек[Ряд][Колонка] = ИдМины; //Ид мины в маасиве
                                МинаРасставлена = Истина;
                        КонецЕсли;      
                КонецЦикла;     
                        
        КонецЦикла;     
        
        //Обрабатываем поле
        
        Для а = 0 по КоличествоСтрок-1 Цикл 
                Для б = 0 по КоличествоКолонок-1 Цикл 
                        Если МассивЯчеек[а][б] = 0 Тогда 
                                МассивЯчеек[а][б] = ПроверитьЯчейку(а,б);
                        КонецЕсли;
                КонецЦикла;     
        КонецЦикла;     



КонецПроцедуры  

Процедура ПрорисоватьПоле()
        
        игрек = 0;
        МассивИменЯчеек = Новый Массив(КоличествоСтрок, КоличествоКолонок);
        
        Для а = 0 по КоличествоСтрок-1 Цикл 
                икс = 0;
                Для б = 0 по КоличествоКолонок-1 Цикл                   
                        имя = "Cell_" + СокрЛП(Формат(Число(а+1),"ЧГ=")) + "_" + СокрЛП(Формат(Число(б+1),"ЧГ="));
                        МассивИменЯчеек[а][б] = имя;
                        ЭлементыФормы.КомпонентПоле.AddCell(икс, игрек, 0, 0, имя);
                        икс = икс + 30;
                КонецЦикла;
                игрек = игрек +30;
        КонецЦикла;     
        
КонецПроцедуры  

Функция ПолучитьСлучайноеЧисло(Мин,Макс) 

        //вместо Randomize 
        Для н = 1 По 100 Цикл 
                Уник = Новый УникальныйИдентификатор; 
        КонецЦикла; 

        //генерируем GUID 
        Уник = СокрЛП(Новый УникальныйИдентификатор); 

        //оставляем только цифры 
        Уник = СтрЗаменить(Уник,"-",""); 
        Уник = СтрЗаменить(Уник,"a",""); 
        Уник = СтрЗаменить(Уник,"b",""); 
        Уник = СтрЗаменить(Уник,"c",""); 
        Уник = СтрЗаменить(Уник,"d",""); 
        Уник = СтрЗаменить(Уник,"e",""); 
        Уник = СтрЗаменить(Уник,"f",""); 

//знаменатель должен иметь такое же количество нулей + 1 
        Знаменатель = 10; 
        Для н = 2 По (СтрДлина(СтрЗаменить(Уник,Символы.НПП,""))) Цикл 
                Знаменатель = Знаменатель * 10; 
        КонецЦикла; 

        Случ = Число(Уник) / Знаменатель; //здесь получается дробное случайное число от 0 до 1 

        //преобразуем его в случайное число из заданного интервала, округляем до целого 
        ЧислоИзИнтервала = Мин(Макс(Окр(Мин + (Макс-Мин)*Случ),Мин),Макс); 

        Возврат ЧислоИзИнтервала; 

КонецФункции

Функция ПроверитьЯчейку(Строк, Колонка)
        
        счетчик = 0;
        
        Если Строк-1 >= 0 и Колонка-1 >=0 Тогда 
                Если МассивЯчеек[Строк-1][Колонка-1] = ИдМины Тогда 
                        счетчик = счетчик + 1;  
                КонецЕсли;      
        КонецЕсли;      
        
        Если Колонка-1 >=0 Тогда
                Если МассивЯчеек[Строк][Колонка-1] = ИдМины Тогда 
                        счетчик = счетчик + 1; 
                КонецЕсли;      
        КонецЕсли;      
        
        Если Строк+1 < КоличествоСтрок и Колонка-1 >=0 Тогда 
                Если МассивЯчеек[Строк+1][Колонка-1] = ИдМины Тогда 
                        счетчик = счетчик + 1;  
                КонецЕсли;
        КонецЕсли;      

        Если Строк-1 >=0 Тогда 
                Если МассивЯчеек[Строк-1][Колонка] = ИдМины Тогда 
                        счетчик = счетчик + 1;  
                КонецЕсли;
        КонецЕсли;      
        
        Если Строк+1 <КоличествоСтрок Тогда 
                Если МассивЯчеек[Строк+1][Колонка] = ИдМины Тогда 
                        счетчик = счетчик + 1;  
                КонецЕсли;
        КонецЕсли;      
        
        
        Если Строк-1 >=0 и Колонка+1 < КоличествоКолонок Тогда 
                Если МассивЯчеек[Строк-1][Колонка+1] = ИдМины Тогда 
                        счетчик = счетчик + 1;
                КонецЕсли;              
        КонецЕсли;
        
        Если Колонка+1 < КоличествоКолонок Тогда 
                Если МассивЯчеек[Строк][Колонка+1]= ИдМины Тогда 
                        счетчик = счетчик + 1;
                КонецЕсли;      
        КонецЕсли;      
        
        Если Строк+1 < КоличествоСтрок и Колонка+1 < КоличествоКолонок Тогда 
                Если МассивЯчеек[Строк+1][Колонка+1] = ИдМины Тогда 
                        счетчик = счетчик + 1;
                КонецЕсли;      
        КонецЕсли;
        
        Возврат(счетчик);
КонецФункции    

Процедура ОбработатьПустуюЯчейку(Строк, Колонка)
        
                МассивСостояниеЯчейки[Строк][Колонка] = 1;
        
                Если Строк-1 >= 0 и Колонка-1 >=0 Тогда  
                        ОбработатьГрафическийВыводЛеваяКнопка(Строк-1, Колонка-1, МассивИменЯчеек[Строк-1][Колонка-1]);
                        Если МассивЯчеек[Строк-1][Колонка-1] = 0 и МассивСостояниеЯчейки[Строк-1][Колонка-1] <> 1 Тогда
                                МассивСостояниеЯчейки[Строк-1][Колонка-1] = 99;
                        Иначе
                                МассивСостояниеЯчейки[Строк-1][Колонка-1] = 1;  
                        КонецЕсли;      
                КонецЕсли;      

                
                Если Колонка-1 >=0 Тогда 
                        ОбработатьГрафическийВыводЛеваяКнопка(Строк, Колонка-1, МассивИменЯчеек[Строк][Колонка-1]);
                        Если МассивЯчеек[Строк][Колонка-1] = 0 и МассивСостояниеЯчейки[Строк][Колонка-1] <> 1 Тогда       
                                МассивСостояниеЯчейки[Строк][Колонка-1] = 99;
                        Иначе
                                МассивСостояниеЯчейки[Строк][Колонка-1] = 1;    
                        КонецЕсли;      
                КонецЕсли;      
                
                Если Строк+1 < КоличествоСтрок и Колонка-1 >=0 Тогда 
                        ОбработатьГрафическийВыводЛеваяКнопка(Строк+1, Колонка-1, МассивИменЯчеек[Строк+1][Колонка-1]); 
                        Если МассивЯчеек[Строк+1][Колонка-1] = 0 и МассивСостояниеЯчейки[Строк+1][Колонка-1] <> 1 Тогда
                                МассивСостояниеЯчейки[Строк+1][Колонка-1] = 99;
                        Иначе
                                МассивСостояниеЯчейки[Строк+1][Колонка-1] = 1;  
                        КонецЕсли;
                КонецЕсли;      

                Если Строк-1 >=0 Тогда 
                        ОбработатьГрафическийВыводЛеваяКнопка(Строк-1, Колонка, МассивИменЯчеек[Строк-1][Колонка]);     
                        Если МассивЯчеек[Строк-1][Колонка] = 0 и МассивСостояниеЯчейки[Строк-1][Колонка] <> 1 Тогда 
                                МассивСостояниеЯчейки[Строк-1][Колонка] = 99;
                        Иначе
                                МассивСостояниеЯчейки[Строк-1][Колонка] = 1;    
                        КонецЕсли;
                КонецЕсли;      
                
                Если Строк+1 <КоличествоСтрок Тогда  
                        ОбработатьГрафическийВыводЛеваяКнопка(Строк+1, Колонка, МассивИменЯчеек[Строк+1][Колонка]);     
                        Если МассивЯчеек[Строк+1][Колонка] = 0 и МассивСостояниеЯчейки[Строк+1][Колонка] <> 1 Тогда       
                                МассивСостояниеЯчейки[Строк+1][Колонка] = 99;
                        Иначе
                                МассивСостояниеЯчейки[Строк+1][Колонка] = 1;    
                        КонецЕсли;
                КонецЕсли;      
                
                
                Если Строк-1 >=0 и Колонка+1 < КоличествоКолонок Тогда  
                        ОбработатьГрафическийВыводЛеваяКнопка(Строк-1, Колонка+1, МассивИменЯчеек[Строк-1][Колонка+1]); 
                        Если МассивЯчеек[Строк-1][Колонка+1] = 0 и МассивСостояниеЯчейки[Строк-1][Колонка+1] <> 1 Тогда   
                                МассивСостояниеЯчейки[Строк-1][Колонка+1] = 99;
                        Иначе
                                МассивСостояниеЯчейки[Строк-1][Колонка+1] = 1;  
                        КонецЕсли;              
                КонецЕсли;
                
                Если Колонка+1 < КоличествоКолонок Тогда  
                        ОбработатьГрафическийВыводЛеваяКнопка(Строк, Колонка+1, МассивИменЯчеек[Строк][Колонка+1]);
                        Если МассивЯчеек[Строк][Колонка+1]= 0 и МассивСостояниеЯчейки[Строк][Колонка+1] <> 1 Тогда        
                                МассивСостояниеЯчейки[Строк][Колонка+1] = 99;
                        Иначе   
                                МассивСостояниеЯчейки[Строк][Колонка+1] = 1;
                        КонецЕсли;      
                КонецЕсли;      
                
                Если Строк+1 < КоличествоСтрок и Колонка+1 < КоличествоКолонок Тогда  
                        ОбработатьГрафическийВыводЛеваяКнопка(Строк+1, Колонка+1, МассивИменЯчеек[Строк+1][Колонка+1]); 
                        Если МассивЯчеек[Строк+1][Колонка+1] = 0 и МассивСостояниеЯчейки[Строк+1][Колонка+1] <> 1 Тогда   
                                МассивСостояниеЯчейки[Строк+1][Колонка+1] = 99;
                        Иначе
                                МассивСостояниеЯчейки[Строк+1][Колонка+1] = 1;  
                        КонецЕсли;      
                КонецЕсли;      

КонецПроцедуры

Процедура ОбработатьГрафическийВыводЛеваяКнопка(Строк, Колонка, Name)
        
                Если МассивЯчеек[Строк][Колонка] = ИдМины Тогда 
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 4, 0);
                        Предупреждение("Вы проиграли!");
                КонецЕсли;      
                
                Если МассивЯчеек[Строк][Колонка] = 0 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 4, 1);
                КонецЕсли;              
                
                Если МассивЯчеек[Строк][Колонка] = 1 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 1, 0);
                КонецЕсли;
                
                Если МассивЯчеек[Строк][Колонка] = 2 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 1, 1);
                КонецЕсли;
                
                Если МассивЯчеек[Строк][Колонка] = 3 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 1, 2);
                КонецЕсли;
                
                Если МассивЯчеек[Строк][Колонка] = 4 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 2, 0);
                КонецЕсли;
                
                Если МассивЯчеек[Строк][Колонка] = 5 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 2, 1);
                КонецЕсли;
                
                Если МассивЯчеек[Строк][Колонка] = 6 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 2, 2);
                КонецЕсли;
                
                Если МассивЯчеек[Строк][Колонка] = 7 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 3, 0);
                КонецЕсли;
                
                Если МассивЯчеек[Строк][Колонка] = 8 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 3, 1);
                КонецЕсли;
                
                МассивСостоянияФлагаЯчейки[Строк][Колонка] =0;
        
КонецПроцедуры  

Процедура ОбработатьГрафическийВыводПраваяКнопка(Строк, Колонка, Name)
        
                Если МассивСостоянияФлагаЯчейки[Строк][Колонка] = 0 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 0, 0);
                КонецЕсли;              
                
                Если МассивСостоянияФлагаЯчейки[Строк][Колонка] = 1 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 0, 1);
                КонецЕсли;
                
                Если МассивСостоянияФлагаЯчейки[Строк][Колонка] = 2 Тогда
                        ЭлементыФормы.КомпонентПоле.ChangeImage(Name, 0, 2);
                КонецЕсли;
        
КонецПроцедуры  
        
Процедура ПроверитьИгру()
        
        сч = 0;
                
        Для а = 0 по КоличествоСтрок-1 Цикл 
                Для б = 0 по КоличествоКолонок-1 Цикл 
                        Если МассивЯчеек[а][б] = ИдМины и МассивСостоянияФлагаЯчейки[а][б] =1 Тогда 
                                
                                сч = сч + 1;
                        
                        КонецЕсли;
                КонецЦикла;     
        КонецЦикла;     
        
        Если сч = КоличествоМин Тогда 
                Предупреждение("Вы победили");
        КонецЕсли;      
                
КонецПроцедуры