Cambiar colores aleatoriamente

[donchuma]

Hola la consulta es la siguiente estamos generando una secuencia de colores aleatoria en una shape de la siguiente forma:

shape1.brush.color:=RGB(random(255),Random(255),Random(255))


Y lo que queremos lograr es un nro mas acotado de colores posibles 6 o 8 maximo. La idea era que en el comando RGB seleccionara aleatoriamente el valor 0 o 255 solamente porque con esto lograriamos 8 colores pero no sabemos como programarlo

[[seoane]]

Si quieres un numero pequeño de colores, prueba con esto:

Código Delphi [-]
  case Random(6) of
    0: shape1.brush.Color:= clMaroon;
    1: shape1.brush.Color:= clGreen;
    2: shape1.brush.Color:= clOlive;
    3: shape1.brush.Color:= clNavy;
    4: shape1.brush.Color:= clBlue;
    5: shape1.brush.Color:= clTeal;
    6: shape1.brush.Color:= clRed;
    7: shape1.brush.Color:= clLime;
    8: shape1.brush.Color:= clYellow;
  end;

[[basti]]

Si quieres los valores 0 o 255:

Código Delphi [-]
shape1.brush.color = RGB(255 * Random(1), 255 * Random(1), 255 * Random(1));

[[seoane]]

Muy ingenioso basti