8 Shape cambiando de color en secuencia.

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

[[egostar]]

Yo haría esto:

Código Delphi [-]
var
  Form1: TForm1;
  Arreglo: Array [0..7] of Integer = (1,1,1,1,0,0,0,0);


procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 7 downto 0 do begin
      with TShape(components[i]).Brush do begin
         case Arreglo[i] of
             0: color := clRed;
             1: color := clGreen;
         end;
      end;
  end;
end;

Salud OS

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"