Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-02-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Poder: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
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é.
Responder Con Cita
  #2  
Antiguo 09-02-2011
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 19.449
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Post

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
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como acceder a un objeto si el nombre es pasado como un string marcelinux Varios 4 08-11-2007 00:20:39
Como Acceder a un Objeto de un TreeView!! Velia OOP 2 03-08-2007 17:51:37
Como obtener las variables de un objeto TEO127 OOP 17 08-06-2007 12:43:05
Como guardar un objeto en un archivo ? cmurua71 OOP 7 18-11-2005 21:26:30
¿Cómo libero un objeto Word? Javi2 Servers 1 08-08-2005 12:54:33


La franja horaria es GMT +2. Ahora son las 22:06:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi