... calculate a string dependent color?

Author: Martin Dörig
Homepage: http://www.oberaffig.ch

Category: Graphic

{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base