Отчет по лабораторной работе № 1 (990249), страница 4

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 4)

return YES;

case 4: // Действие 4 Удалить ракету

FormSostoyanieSamoletov->rbUdalitRaketu->Checked = true;

Aircraft::SvoyaRaketaLetit = false;

TimerMissileDelete->Enabled = true;

Raketa->Reset();

ShapeZhertva->Visible = false;

// Работаем с ракетой

ShapeRaketa->Visible = false;

NewMissile();

return YES;

}

break;

case 10: // Таблица 10 Полет чужой ракеты

switch(LParam) // Номер действия

{ case 1: // Действие 1 Взорваться

FormSostoyanieSamoletov->rbVzorvatsya2->Checked = true;

imgMissileBlast->Top = ShapeRaketa->Top + ShapeRaketa->Height/2 - imgMissileBlast->Height/2;

imgMissileBlast->Left = ShapeRaketa->Left + ShapeRaketa->Width/2 - imgMissileBlast->Width/2;

imgMissileBlast->Visible = true;

return YES;

case 2: // Действие 2 Сломать орудие

FormSostoyanieSamoletov->rbSlomatOrudie->Checked = true;

Pushka->Slomatsya();

return YES;

case 3: // Действие 3 Сдвинуть ракету

FormSostoyanieSamoletov->rbSdvinutRaketu2->Checked = true;

TimerMissileMove->Enabled = true;

return YES;

case 4: // Действие 4 Удалить ракету

FormSostoyanieSamoletov->rbUdalitRaketu2->Checked = true;

Aircraft::SvoyaRaketaLetit = false;

Aircraft::ChuzhayaRaketaLetit = false;

TimerMissileDelete->Enabled = true;

Raketa->Reset();

// Работаем с ракетой

ShapeRaketa->Visible = false;

NewMissile();

return YES;

}

break;

}

}

return 0;

}

20

Характеристики

Список файлов лабораторной работы