recorrer una linea creada en un canvas

[ecfisa]

Hola Snaked.

Si, es totalmente correcto. Podes ir almacenando las naves en una lista a medida que las creas y luego referirte a cada nave mediante la lista.

Ejemplo sobre el código anterior:

Código PHP:

TList* lst;
Ship* s1;

void __fastcall TForm1::FormCreate( TObject *Sender )
{

  lst = new TList;

  s1 = new Ship( this, Point(10,100), Point( 240,200) );
  s1->Image->Picture->LoadFromFile( "face-smile.jpg" );
  s1->Timer->Interval = 10;
  lst->Add(s1);

  s1 = new Ship( this, Point(  50,  50 ), Point( 150, 300 ) );
  s1->Image->Picture->LoadFromFile( "face-sad.jpg" );
  s1->Timer->Interval = 10;
  lst->Add(s1);

  s1 = new Ship( this, Point(  80, 90 ), Point(  220, 100 ) );
  s1->Image->Picture->LoadFromFile( "face-monkey.jpg" );
  s1->Timer->Interval = 10;
  lst->Add (s1 );

 //... mas naves
}

void __fastcall TForm1::btnStartClick( TObject *Sender )
{
  for  (int i = 0; i < lst->Count; i++ )
     static_cast<Ship*>( lst->Items[i] )->Timer->Enabled = true; // (*)
}

void __fastcall TForm1::FormDestroy( TObject *Sender )
{
  for (int i = 0; i < lst->Count; i++)
    delete lst->Items[i];
  lst->Free();
} 


(*) Te podes referir a cada nave de la lista cambiando el índice de la propiedad vectorial Items.

Saludos

[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.