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

#include <vcl.h>
#include <Windows.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x=20,y=40;
//Лошарик
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
/*void __fastcall TForm1::circle(int x, int y, int r) {
  Canvas->Ellipse(x,y,x+r,y+r);
}*/
void __fastcall TForm1::FormPaint(TObject *Sender)
{
    TRect aRect = Rect(0,0,ClientWidth,236);
    //for(int i=0; i<;i+=
    Canvas->Brush->Color=0xffffce;
    Canvas->FillRect(aRect);
    Canvas->Brush->Color=0x006d9c;
    aRect = Rect(0,236,ClientWidth,ClientHeight);
    Canvas->FillRect(aRect);
    Canvas->MoveTo(0,236);
    Canvas->LineTo(700,236);
    Canvas->Pen->Color=0xaf79af;
    Canvas->Brush->Color=0xaf79af;
    Canvas->Ellipse(135,90,145,100);
    Canvas->Ellipse(345,198,371,224);
    Canvas->Ellipse(245,178,275,204);
    Canvas->Pen->Color=0x78af79;
    Canvas->Brush->Color=0x78af79;
    Canvas->Ellipse(328,178,358,202);
    Canvas->Ellipse(180,105,210,135);
    Canvas->Pen->Color=0xff0fff;
    Canvas->Brush->Color=0xff0fff;
    Canvas->Ellipse(237,198,267,228);
    Canvas->Ellipse(325,180,355,210);
    Canvas->Ellipse(200,120,220,140);
    Canvas->Pen->Color=0xffaf79;
    Canvas->Brush->Color=0xffaf79;
    Canvas->Ellipse(210,110,390,185);
    Canvas->Ellipse(240,180,270,210);
    Canvas->Pen->Color=0x9c9a00;
    Canvas->Brush->Color=0x9c9a00;
    Canvas->Ellipse(380,110,410,140);
    Canvas->Ellipse(140,60,200,120);
    Canvas->Pen->Color=0x00ffff;
    Canvas->Brush->Color=0x00ffff;
    Canvas->Ellipse(150,80,160,90);
    Canvas->Ellipse(340,205,370,235);
    Canvas->Ellipse(225,205,255,235);
    /*Canvas->Pen->Color=0xff0000;
    Canvas->MoveTo(x,y);
    Canvas->LineTo(x,y);
    Canvas->Font->Color=0x00ff00;
    Canvas->TextOutA(23,14,"x= "+IntToStr(x)+" y= "+IntToStr(y));*/
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        /*if(Key==Key_W) {
           y--;
        }
        if(Key==Key_S) {
           y++;
        }
        Canvas->Refresh(); */
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
     /*if(Key==Key_w) {
           y--;
        }
        if(Key==Key_s) {
           y++;
        }
        Canvas->Refresh();  */
}
//---------------------------------------------------------------------------