Создание 2D игры.

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
// Описываем области в которые будем помещать картинки.
Graphics::TBitmap*Buf;        // Buffer - Окно в котором будут отображаться все картинки.
                             // В Буфер никаких картинок грузить не нужно.
 
Graphics::TBitmap*BackGround;// BackGround (Фон)  - Загружаем картинку с фоном.
 
Graphics::TBitmap*Cross;     // Cross (Перекрестие) - Загружаем любу
                             // картинку карторая будет перекрестием.
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//ShowCursor (Показать курсор) (False (Лож)) (True (Истина)).
ShowCursor(false); // Скрываем курсор.
 
BackGround = new Graphics::TBitmap(); // Объявляем новую картинку.
BackGround->LoadFromFile(".\\BackGround\\BackGround1.bmp"); // Загружаем картинку в область BackGround.
 
Cross = new Graphics::TBitmap(); // Объявляем новую картинку
Cross->LoadFromFile(".\\Cross\\RedCross.bmp"); // Загрузить картику в область Cross.
Cross->Transparent = 1;
 
//Width (Ширина).
//Height (Высота).
Buf = new Graphics::TBitmap();  // Объявляем новую область.
Buf->Width=Form1->Width;        // Выравниваем окно области картинки по ширине формы.
Buf->Height=Form1->Height;      // Выравниваем окно области картинки по высоте формы
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
// Enabled (Включено) (false или true) - включаем на всякий случай.
// Interval (Интервал в миллисекундах ) - выставляем 10.
Timer1->Enabled = true;
Timer1->Interval = 10;
 
 
// TPoint (Точка) - позиция.
// mp (MapPoint (Точка на карте)) - позиция на форме.
// ScreenToClient (Экран клиента).
// Mouse (Мышка).
// CursorPos (Cursor Position (Позиция курсора)).
 
TPoint mp=Form1->ScreenToClient(Mouse->CursorPos);
 
// int (Integer (Целое число))
// MouseX - Движение мыши по координате X = Позиции на форме координаты X = 0.
// MouseY - Движение мыши по координате Y = Позиции на форме координаты Y = 0.
int MouseX=mp.x;
int MouseY=mp.y;
 
//Теперь переходим к рисованию на форме.
// Canvas (Холст).
// Draw (Рисовать) - Начинает рисовать по координатам X, Y. в данном случае равные 0.
 
Buf->Canvas->Draw(0,0,BackGround);
Buf->Canvas->Draw(MouseX,MouseY,Cross);
Form1->Canvas->Draw(0,0,Buf);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if (Key=='W') Image1->Top=Image1->Top-5;
if (Key=='S') Image1->Top=Image1->Top+5;
}

if (Key == 'W' || Key == 'S') Image1->Top = Image1->Top - 5*(Key-85);

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Graphics::TBitmap *her=new Graphics::TBitmap;
int x=50,y=50; //Координаты нашего Хера.
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    her->Width=50; //Ширина Хера
    her->Height=50; //Высота Хера
    her->Canvas->Rectangle(3,3,47,47); //Ресуем квадрат на Хере
    her->Canvas->Brush->Color=clGreen; //Цвет кисти зеленый
    her->Canvas->FillRect(Rect(4,4,46,46)); //Заливаем Хера зеленым цветом
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 if(Key == 'W') y-=5; // Здесь, думаю, все понятно
 if(Key == 'S') y+=5;
  if(Key == 'A') x-=5;
   if(Key == 'D') x+=5;
   Redraw(); //Отрисовываем Хера по новым координатам
}
//---------------------------------------------------------------------------
void Redraw() //Сама функция перерисовки
{
Form1->PaintBox1->Repaint(); //Перерисовываем PaintBox
Form1->PaintBox1->Canvas->Draw(x,y,her); //Ресуем Хера по координатам
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TPaintBox *PaintBox1;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
        void __fastcall FormShow(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
void Redraw(); //Функия перерисовки
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

hwnd=Application->MainForm->Handle;
hdc=GetDC(hwnd); // hdc hwnd обьявлены ранее
LineTo(hdc,200,200);

hwnd=this->Handle;
hdc=GetDC(hwnd);
LineTo(hdc,200,200);
RoundRect(this->Canvas->Handle, 10, 10,  200, 300, 30, 40);
ReleaseDC(hwnd,hdc);