Рисование на Canvas

//---------------------------------------------------------------------------
// Проект 31. Рисование мышью на Canvas
// Линия за курсором при зажатой кнопке.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
//---------------------------------------------------------------------------

// Простейший графредактор: запоминаем точку на MouseDown и тянем линию
// за курсором, пока кнопка нажата. Основа работы с Canvas и событиями мыши.
bool FDown=false; int Fx=0, Fy=0;
void __fastcall TForm1::PaintBoxMouseDown(TObject*,TMouseButton,TShiftState,int X,int Y)
{ FDown=true; Fx=X; Fy=Y; }
void __fastcall TForm1::PaintBoxMouseMove(TObject*,TShiftState,int X,int Y)
{
    if (!FDown) return;
    PaintBox1->Canvas->Pen->Color = clLime;
    PaintBox1->Canvas->MoveTo(Fx,Fy);
    PaintBox1->Canvas->LineTo(X,Y);
    Fx=X; Fy=Y;
}
void __fastcall TForm1::PaintBoxMouseUp(TObject*,TMouseButton,TShiftState,int,int){ FDown=false; }
void __fastcall TForm1::ButtonClearClick(TObject *Sender)
{
    PaintBox1->Canvas->Brush->Color=clBlack;
    PaintBox1->Canvas->FillRect(PaintBox1->ClientRect);
}
//---------------------------------------------------------------------------