92 lines
2.8 KiB
C++
92 lines
2.8 KiB
C++
|
//---------------------------------------------------------------------------
|
|||
|
|
|||
|
#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;
|
|||
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
//---------------------------------------------------------------------------
|
|||
|
__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(); */
|
|||
|
}
|
|||
|
//---------------------------------------------------------------------------
|