LineTo (C++)

Description

The following code draws a line from the upper-left corner of a form to the mouse position when the mouse is moved, creating a rubberband effect.

Code

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
  /* first call FillRect to paint the surface of the form.
  this removes any previously drawn lines (and anything else!) */
  Canvas->FillRect(ClientRect);
  Canvas->MoveTo(0, 0);
  Canvas->LineTo(X, Y);
}

Uses

• Vcl.Graphics.TCanvas.MoveTo ( fr | de | ja )
• Vcl.Graphics.TCanvas.LineTo ( fr | de | ja )