Buenas.
Amigo Caral, si la memoria no me falla, existe una función que dice algo así: StrToColor o StringToColor... no recuerdo bien, pero recuerdo haberla visto
.
Me encantaría probar pero no dispongo de Delphi en esta PC, mi equipo está en service hasta el martes o miercoles
Considero que el problema de ingresar un número en un edit y asociarlo a un color para shape es una alternativa un tanto rebuscada.
Espero que no te hayas sentido ofendido JoseFco.
Si los números son fijos y no se necesita agregar más, podríamos emplear un ComboBox con el nombre del color y dejar al usuario que elija el más adecuado.
Considero que es un buen control, con esto en mente y basandome en el codigo de caral se puede tener algo como:
Código Delphi
[-]const
ARRAY_COLOR: array [0..MAX_COLOR - 1] of TColor = (...);
De modo que podemos asociar al índice del combo con cada color. Por ejemplo en el OnChange();
Código Delphi
[-]procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Shae1.Brush.Color := ARRAY_COLOR[ComboBox1.ItemIndex];
end;
La idea está, habría que pulirla pero creo se entiende.
Saludos,