recorrer una linea creada en un canvas

[ecfisa]

Hola.

Según entiendo deseas mover un píxel sobre una línea previamente creada con la función LineTo.

Una opción es:

Código PHP:

void movepixel( TCanvas* cv, const TPoint& p1, const TPoint& p2, 
  const int& delay )
{
  int dx = p2.x - p1.x;
  int dy = p2.y - p1.y;

  for( int x = p1.x; x < p2.x; x ++) {
    int y = p1.y + dy * (x - p1.x) / dx;
    TColor pix = cv->Pixels[x][y];
    cv->Pixels[x][y] = clBlack;
    Sleep(delay);
    cv->Pixels[x][y] = pix;
  }
}


TPoint p1 = Point( 10, 100);
TPoint p2 = Point(300, 200);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Canvas->Pen->Style = psSolid;
  Canvas->Pen->Color = clLime;

  Canvas->MoveTo(p1.x, p1.y);
  Canvas->LineTo(p2.x, p2.y);

  movepixel(Form1->Canvas, p1, p2, 5);
} 


Como verás es un concepto muy básico, a modo de boceto.

Saludos