11-ma’ruza Mavzu: C++ algoritmik tilining grafik imkoniyatlari. Reja

Na’muna:Yuqoridagi qragik operatorlardan foydalanib, sodda tasvirlar hosil qiling.
Dastur loyihasi uchun:
Forma oynasiga 1 ta Image, 5 ta Button (Shakl turini tanlash uchun) qo’yiladi. Har bir shakl turining Click hodisasi uchun quyidagi proseduradan foydalanamiz:

void __fastcall TForm1::Button1Click(TObject *Sender)

{
Image1->Canvas->Pen->Color=clBlue; // Uychaning tomi
Image1->Canvas->Pen->Width=5;
Image1->Canvas->MoveTo(100,100);
Image1->Canvas->LineTo(200,20);
Image1->Canvas->LineTo(300,100);
Image1->Canvas->LineTo(100,100);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Image1->Canvas->Pen->Color=clRed; // asosiy tana qismi
Image1->Canvas->Pen->Width=5;
Image1->Canvas->Brush->Color=clYellow;
Image1->Canvas->Rectangle(115,100,285,300);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
Image1->Canvas->Pen->Color=clRed; // Eshiklar
Image1->Canvas->Pen->Width=3;
Image1->Canvas->Brush->Color=clPurple;
Image1->Canvas->Rectangle(170,230,200,300);
Image1->Canvas->Rectangle(200,230,230,300);
Image1->Canvas->Pen->Width=10;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Image1->Canvas->Font->Size=20; // Matn
Image1->Canvas->Font->Color=clGreen;
Image1->Canvas->Brush->Color=clSilver;
Image1->Canvas->TextOut(350,20,"Mening dasturim");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Image1->Canvas->Pen->Color=clPurple; // Gulcha va bargi
Image1->Canvas->Pen->Width=5;
Image1->Canvas->Ellipse(400,200,450,250);
Image1->Canvas->Ellipse(450,200,500,250);
Image1->Canvas->Ellipse(425,160,475,210);
Image1->Canvas->Pen->Color=clGreen;
Image1->Canvas->Pen->Width=5;
Image1->Canvas->MoveTo(450,225);
Image1->Canvas->LineTo(450,300);
Image1->Canvas->Ellipse(420,265,450,275);
Image1->Canvas->Ellipse(450,265,480,275);
}
Natija olish uchun barcha buttonlar ketma-ket tanlanadi.