Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Colores aleatorios (https://www.clubdelphi.com/foros/showthread.php?t=26793)

VRO 03-11-2005 17:54:36

Colores aleatorios
 
Hola, no se si esto existe ó es una tontería, pero ¿Hay alguna función estilo al random que me genere colores de forma aleatoria?Tengo una serái de tipos de habitación a los que tengo que asignar un color diferente para cada uno, pero la cuestión el usuario puede introducir el nº de habitaciones que le apetezca, por eso no puedo tener grabado cierto nº de colores y asignarselo.



Gracias de antemano.

dec 03-11-2005 18:03:13

Hola,

A ver si lo he entendido bien:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Randomize;
   Color := RGB(Random(255), Random(255), Random(255));
 end;

roman 03-11-2005 18:09:42

Creo que no te voy a encargar a tí el decorado de mi casa. ¡Colores aleatorios!

Pero ya en serio, ¿no sería una opción dejar que el usuario escoja de qué color quiere dibujar la habitación?

// Saludos

VRO 03-11-2005 18:15:44

Gracias
 
Jajajaja, sí sería una buena opción pero creo que es una buena idea que el usuario escoja el color que quiere asignar a un tipo de habitación, pero lo que intento es simplificar el trabajo al usuario. Aunque estoy pensando que igual me da problemas ya que necesito que el color sea el mismo simepre que se habra la aplicación.

Si creo que teneis razón. graciasssss

jachguate 03-11-2005 19:07:26

Cita:

Empezado por VRO
Aunque estoy pensando que igual me da problemas ya que necesito que el color sea el mismo simepre que se habra la aplicación.

NO pelea una cosa con la otra. Podes generar un color aleatorio cuando la habitación se crea, luego guardarlo en un ini, en una bd o en el registro y en adelante, cuando se abra la aplicación, leer el color de alli, respetando la regla que siempre será del mismo color.

Hasta luego.

;)


La franja horaria es GMT +2. Ahora son las 17:59:22.

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