Imágenes como objeto?

[Jaque_Mate]

No se si le doy la denominación correcta, pero necesitaría ayuda para digamos tratar como objetos ciertas imágenes.

Tengo que hacer un ajedrez y con mi compañero pensamos que con objetos sería mucho más fácil.

Tenemos un método un poco arcaico y seguro que incorrecto, pero hemos colocado a mano el tablero a base de Timages y encima las piezas donde tocan.

Lo que queremos es poder usarlas de manera que todos los peones tengan las mismas "opciones" de movimiento sin tener que ir pieza a pieza programandolas...

Pero no sabemos por donde empezar, he estado buscando por google y el foro pero no sale nada, ¿Alguna ayuda?

Gracias.

[[duilioisola]]

Supongo que lo primero es olvidarte de las imágenes y generar el objeto que representa a cada ficha.
Podría ser:

Código Delphi [-]
TTablero:
   {Conjunto de fuchas}
   array [1..8,1..8] of TFicha;
end;

TFicha
   {Posicion en el tablero}
   Fila : byte;
   Columna :byte
   {Tablero al que pertenece}
   Tablero : TTablero;
end

TPeon : TFicha
   {Hereda de ficha la posicion}
   {Este método, devolvería verdadero si la posición a la que quieres mover la ficha es válida}
   funcion MovimientoValido (aFila, aColumna : byte) : boolean;
end

Lo mismo con el resto de fichas...

Una vez que toda la lógica funcione, puedes empezar a hacer que el tablero pida a las fichas que se pinten. Estas tendrán un método que pintará la forma que le corresponda en la posición en la que esté.

[Neftali [Germán.Estévez]]

Al igual que duilioisola, yo creo que es más fácil que primero te olvides de las imágenes y programes la lógica. Finalmente una vez que tengas eso, lo de las imágenes es lo más sencillo.

Seguramente una ficha tendrá un color y posteriormente le puedes añadir laimagen:

Código Delphi [-]

TColorFicha = (cfBlanco, cfNegro);
TFicha = Class(...)
  private
    ...
  public
   {Posicion en el tablero}    
   property Fila:byte ...;    
   property Columna:byte ...;    
   {Tablero al que pertenece}    
   property Tablero:TTablero ...;
   {color de la ficha}
   property Color:TColorFicha ...
   {Imagen para representarla}
   property ImagenFicha:TImage ...
 end