ООП / C++ / Lab3C / ex3 / Unit2

//---------------------------------------------------------------------------
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.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)