ООП / Lab 3 Betta / CBall

//---------------------------------------------------------------------------


#pragma hdrstop

#include "CBall.h"
#include <stdio.h>
#include "lab3.h"

//---------------------------------------------------------------------------

CBall::CBall(int xn,int yn)
{
x=xn; y=yn; r=10;
};

//---------------------------------------------------------------------------

void CBall::Draw()
{
   Form1->Image1->Canvas->Pen->Color = clBlue;
   Form1->Image1->Canvas->Brush->Color = clBlue;
   Form1->Image1->Canvas->Ellipse(x-r, y-r, x+r, y+r);

   Form1->Image1->Canvas->Pen->Color = clWhite;
   Form1->Image1->Canvas->Brush->Color = clWhite;
   Form1->Image1->Canvas->Ellipse(x-r/5-r/3, y-r/5-r/3, x+r/5-r/3, y+r/5-r/3);
}

#pragma package(smart_init)