recorrer una linea creada en un canvas

[Snaked]

hola de nuevo Ecfisa.... he implementado el codigo del mensaje IDEA ENCAPSULADA y UN POCO MEJOR ORGANIZADA y la verdad es que compilar compila, incluso dibuja las naves bien y tal recorriendo la ruta, el caso es que si le pongo las coordeenadas que utilizo para dibujar las RUTAS (rayitas verdes) que tienen este formato

Código PHP:

      if(muestra_rutas)
   {
     Form1->tablero->Canvas->MoveTo(40 + Form2->Image2->Picture->Graphic->Width/2,40 + Form2->Image2->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->Pen->Color = clLime;
     Form1->tablero->Canvas->LineTo(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->LineTo(480 + Form2->Image4->Picture->Graphic->Width/2, 100 + Form2->Image4->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->MoveTo(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->LineTo(600 + Form2->Image11->Picture->Graphic->Width/2, 350 + Form2->Image11->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->MoveTo(600 + Form2->Image6->Picture->Graphic->Width/2, 240 + Form2->Image6->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->LineTo(920 + Form2->Image5->Picture->Graphic->Width/2, 220 + Form2->Image5->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->MoveTo(600 + Form2->Image11->Picture->Graphic->Width/2, 350 + Form2->Image11->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->LineTo(600 + Form2->Image6->Picture->Graphic->Width/2, 240 + Form2->Image6->Picture->Graphic->Height/2);
   } 


el caso es que las naves salen como con un desplazamiento horizontal en la coordenada X (quiero decir que recorren bien las rutas pero en vez de ir por las lineas van como mas a la derecha un cacho)

porque puede producirse ese desplazamiento de coordenadas???

he probado a quitarle el Width/2 y el Height/2 que le aplico para que halle el centro ya que estas coordeenadas que te acabo de poner en el codigo php corresponden a los sprites de los planetas

bueno, te adjunto un video para que veas la salida

https://youtu.be/j362Dr9l7zg

[aguml]

Son creados tanto las líneas como las naves en el mismo lugar?
Me refiero a que si por ejemplo creas las líneas en el form y las naves en un panel habrá desplazamiento y tendrías que calcularlo restandole la posición Left que ocupa el panel en el form y su borde.

[Snaked]

ecfisa: has visto porque las naves salen desplazadas??? será cuestion del PARENT este?

Código PHP:

void Ship::setParent( TWinControl* parent )
{
  _image->Parent = parent;
} 


[ecfisa]

Hola Snaked.

Lo siento no pude verlo, el enlace de tu mensaje dice: "El video que has solicitado no está disponible.", pero voy a revisar el código a ver si me hace lo mismo.

Saludos

[ecfisa]

Hola.

Acabo de hacer una prueba,

Código PHP:

...
void __fastcall TForm1::btnStartClick( TObject *Sender )
{
  // trayectoria (linea)
  Canvas->MoveTo(  10, 100 ); Canvas->LineTo( 240, 200 );

  // nave (por la misma trayectoria )
  Ship* s1 = new Ship( this, Point(10, 100 ), Point( 240, 200 ) );
  s1->LoadImage = "face-smile.jpg";
  s1->Timer->Interval = 10;
  s1->Timer->Enabled  = true;
}
... 


Y pareciera que la imágen sigue la línea mas o menos por el medio...


Saludos

[aguml]

Yo creo que si puede ser el parent porque supongo que tiene un tpanel o algo y dependiendo de si el parent es el form o el panel puede variar su Top y su Left.

[ecfisa]

Hola aguml.

Siempre que dibuje sobre el lienzo del mismo padre no se altera el resultado, por ejemplo le aquí asigno un TPanel como parent:



Ahora si, como mencionaste antes, esta dibujando la trayectoria en un componente y la nave en otro, si que podría haber diferencia en las posiciones debido a la relatividad de las coordenadas...

Saludos