Как использовать координаты в Image
Я не знаю как использовать координаты, когда на Image рисуется функция. Вот она рисуется:
Код:
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
X0 = X;
Y0 = Y;
if (SBPen->Down)
{
Image1->Canvas->MoveTo(X,Y);
Image1->Canvas->Pen->Color = clBlack;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if (! Shift.Contains(ssLeft)) return;
else if (SBPen->Down)
Image1->Canvas->LineTo(X,Y);
}
TMouseButton Button, TShiftState Shift, int X, int Y)
{
X0 = X;
Y0 = Y;
if (SBPen->Down)
{
Image1->Canvas->MoveTo(X,Y);
Image1->Canvas->Pen->Color = clBlack;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if (! Shift.Contains(ssLeft)) return;
else if (SBPen->Down)
Image1->Canvas->LineTo(X,Y);
}
Заведи массивчик и счетчик. При каждом срабатывании MouseMove увеличивай счетчик и запихивай значеньица координат в массивчик по счетчику.