was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

41 Visitors Online


 
... einen Farbwert aus einem String berechnen?
Autor: Martin Dörig
Homepage: http://www.oberaffig.ch
[ Tip ausdrucken ]  

Tip Bewertung (13):  
     


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


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners