Title: calculate a string dependent color?
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Funktion MakeColorFromStr errechnet aus einem String eine Farbe.
Dies kann zum Beispiel benutzt werden um verschiedene Benutzereingaben
farblich Kennzeichnen zu können.
Mit der Konstante 'Helligkeit' wird die Minimale Helligkeit verändert
(z.B. wenn Farbe nicht dunkel sein darf aufgrund von dunkler Schrift
im Vordergrund
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
This function gives a color back, that has been calculated using
a string as algorythm parameter.
The constante "Helligkeit" (brighness) can be used as a threshold to
control the minimal darkness of the calculated color.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
{ .... }
function MakeColorFromStr(str: string): TColor;
{ .... }
function MakeColorFromStr(str: string): TColor;
var
i, x, y: Cardinal;
const
Helligkeit = 0; //Minimale Helligkeit der Farben (0..255) --
begin
y := 1; //initialisieren
for i := 1 to Length(str) do
begin
x := Ord(Str[i]);
RandSeed := X * i;
y := y + Random(99);
end;
RandSeed := y;
Result := rgb(Random(255 - Helligkeit) + Helligkeit,
Random(255 - Helligkeit) + Helligkeit,
Random(255 - Helligkeit) + Helligkeit);
end;