Определение класса, объектами которого являются многоугольники указанного типа., страница 8

if(la<0 || la> 360) {la=0; Edit1->Text=la; err=true;return;}

la1=la;

}

//--------------------------------------------------------------------------void __fastcall TForm3::Edit2Change(TObject *Sender)

{

if(Edit2->Text=="") {MessageBox(NULL, "Введите значение координаты х", "Неправильный ввод", MB_ICONINFORMATION); err=true; return;}

err=false;

la2=atof(Edit2->Text.c_str());

if(la2<0) {MessageBox(NULL, "Значение координаты х должно быть положительным", "Неправильный ввод", MB_ICONINFORMATION); Edit2->Text=""; la2=0; err=true;return;}

if(la2>698) {la2=698;err=true;return;}

Edit2->Text=la2;

}

//--------------------------------------------------------------------------void __fastcall TForm3::Edit3Change(TObject *Sender)

{

if(Edit3->Text=="") {MessageBox(NULL, "Введите значение координаты y", "Неправильный ввод", MB_ICONINFORMATION); err=true;return;}

err=false;

la3=atof(Edit3->Text.c_str());

if(la3<0) {MessageBox(NULL, "Значение координаты y должно быть положительным", "Неправильный ввод", MB_ICONINFORMATION); Edit3->Text="";la3=0;err=true;return;}

if(la3>606) {la3=606;err=true;return;}

Edit3->Text=la3;

}

//--------------------------------------------------------------------------void __fastcall TForm3::Button3Click(TObject *Sender) //если пользователь нажал кнопку

//«применить» после ввода координат точки вращения с клавиатуры

{

if(Edit2->Text!="" && Edit3->Text!="" ) strt(la2,la3);

else {MessageBox(NULL, "Не заполнены необходимые поля для координат", "Неправильный ввод", MB_ICONINFORMATION);}

}

//--------------------------------------------------------------------------void __fastcall TForm3::Button1Click(TObject *Sender) //если пользователь нажал кнопку

//«применить» для ввода координат точки вращения с помощью мыши

{

strr();

}

//--------------------------------------------------------------------------void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)

{

close();

}

//--------------------------------------------------------------------------void __fastcall TForm3::Button2Click(TObject *Sender) //кнопка «ок»

{

if(rb==0) {MessageBox(NULL, "Не указаны все необходимые поля", "Неправильный ввод", MB_ICONINFORMATION); return;}

if(rb==1) //если с клавиатуры вводил точку вращения

{

if(Edit1->Text=="" || Edit2->Text=="" || Edit3->Text=="" || err==true) {MessageBox(NULL, "Не указаны все необходимые поля", "Неправильный ввод", MB_ICONINFORMATION); return;}

rot(la1, la2,la3);//выполнить поворот

}

if(rb==2) //если с помощью мыши вводил точку вращения

{

if(Edit1->Text=="" || err==true) {MessageBox(NULL, "Не указаны все необходимые поля", "Неправильный ввод", MB_ICONINFORMATION); return;}

rot(la1,0,0); //выполнить поворот

}

}

//--------------------------------------------------------------------------void __fastcall TForm3::RadioButton1Click(TObject *Sender) //если пользователь выбрал

//ввод с клавиатуры

{

Edit2->Enabled=true;

Edit3->Enabled=true;

rb=1;

}

//--------------------------------------------------------------------------void __fastcall TForm3::RadioButton2Click(TObject *Sender) //если пользователь выбрал

//ввод с помощью мыши

{

Edit2->Enabled=false;

Edit3->Enabled=false;

rb=2;

}

//--------------------------------------------------------------------------Результат работы программы: