Tugas grafkom (membuat persegi panjang, bulatan, dan segitiga) dengan pemrograman C++

#include
#pragma hdrstop

#include "varhan.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormPaint(TObject *Sender)
{
Canvas->Pen->Color=clRed;
Canvas->Brush->Color=clGreen;
Canvas->Ellipse(200,100,100,200);
//membuat bulatan

Canvas->Pen->Color=clYellow;
Canvas->Brush->Color=clBlue;
Canvas->Rectangle(300,200,400,300);
//membuat persegi panjang

Canvas->Pen->Color=clBlack;
Canvas->MoveTo(350,50);
Canvas->LineTo(180,100);
Canvas->MoveTo(350,50);
Canvas->LineTo(420,100);
Canvas->MoveTo(180,100);
Canvas->LineTo(420,100);
//membuat segitiga

setelah diRun akan muncul seperti gambar dibawah ini: