8 Shape cambiando de color en secuencia.

[[Caral]]

Hola
Como he tenido la curiosidad me puse a trabajar sobre arrays.
Bueno aquí te dejo el ejemplo, se reduce el código mucho.
Se usa un solo Timer, como necesitas.
En cualquier momento llega algún Maestro y te lo arregla.
Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Crandel]]

Empezado por Caral

Como he tenido la curiosidad me puse a trabajar sobre arrays.

Aca modifique tu programa para que tenga movimiento en ambos sentidos.

[[Caral]]

Hola
M
Gracias Crandel, esta muy bueno, me gusta la sencillez.
Se nota la mano del maestro.
Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Crandel]]

De nada amigos, solo vi en lo que estaban y ayude un poquito.

Feliz dia del padre para uds tambien

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Crandel]]

Se ocurren dos ideas que pueden quedar bien:

1. Seguir con el estilo de manejarlo con vectores haciendo igual como hizo Caral en el ejemplo 2. Y luego le asignas ese color al led seleccionado. Quedaria algo asi:

Código Delphi [-]
if i = posicion then Leds[i].Brush.Color := LedsColor[i]
               else Leds[i].Brush.Color := clGray; // o puedes definir una constante global de tu programa para este color

2. La otra opcion es definir tu propia clase TLed basada en TShape ya con la forma por defecto y le agregas dos propiedades: OnColor y OffColor.
Luego defines dos metodos: TurnOn, TurnOff para prender y apagar el led.

y te quedaria asi:

Código Delphi [-]
if i = posicion then Leds[i].TurnOn
                else Leds[i].TurnOff;

Saludos