ich habe mir heute, eine kleine Farbe liste zusammen gestellt von der seite:
http://www.uni-magdeburg.de/counter/rgb.txt.shtml
Habe mir den Soruce Code von der Seite runter geladen und ihn gepasst dabei ist diese unit im Anhang rauß gekommen.
Was haltet ihr davon ?
Habt ihr noch mehr Farben ?
weil ich finde die paar 16 Farben sind zu wenig.
http://de.wikipedia.org/wiki/Webfarben
http://www.uni-magdeburg.de/counter/rgb.txt.shtml
http://chat.internetworx.de/help/Farbtabelle.html
http://www.drweb.de/ressourcen/farbnamen.shtml
Autor : Michael Springwald
Erstellt: unbekannt
Updates : Montag, 16.Juli.2007, Freitag, 20.Juli.2007
Samstag, 21.Juli.2007
-----------------------------------------------------------------
Stellt mehr(649) Farben zu verfügung !
Ich habe die internet seite:
http://www.uni-magdeburg.de/counter/rgb.txt.shtml
runtergeladen un gepasst und damit diese Liste erstellt.
Sie Stellt die Funktionen/Proceduren:
procedure ColorToStringList(var StringList:TStrings);
Füllt die Angebe StringList Komplet mit den Neuen Farben
Dabei werden nur die Farbnamen zurück geben.
Später sollte hierauch noch der Farb Wert zurück geben werden können
bzw. Beide.
Wandelt einen Farbwert in einen String um.
Berücksichtig allerdings die Neuen und die Alten Farben
function Color2ToString(const Color:TColor;const isAltColor:Boolean = True):String;
Wandelt einen String in einem TColor Wert um.
Berücksichtig allerdings die Neuen und die Alten Farben
function String2ToColor(const ColorStr:String; const isAltColor:Boolean = True):TColor;
-----------------------------------------------------------------
Gibt eine Zufallst Farbe aus einer angeben Liste oder aus TColors2
Wenn ColorList Leer ist, wird aus Colors2 gewählt, dabei wird dann
auch der Tolleranz Wert berücksichtig, der Wiederum
wenn ColorList nicht leer ist nicht berücksichtig Wird.
NoColor Gibt ein Farb wert an der nicht ausgewählt werden darf
AutoClear Löscht die Liste die die Häufigkeit der gewählten Farben
minimieren sollte
Tolleranzbereich
ist ein Wert von der die Farbe maximal abweichen darf
function RandomColorList(ColorList:array of TColor; noColor:TColor = clNone; const AutoClear:Integer = 10; const TolleranzBereich:Integer = 10):TColor;
--------------------------------------------------------
[highlight=yellow]Update 2 am Freitag, 21.Juli.2007[/highlight]
- Autor Infos Hinzugefügt.
- Beschreibung der Funktionen/Proceduren
- Eine Neue Funktion: RandomColorList(Siehe Beschreibung Oben)
[highlight=yellow]Update 1 am Montag, 16.Juli.2007[/highlight]
Habe die unit geändert. Es gibt jetzt eine Farbliste Colors2 und
eine neue Procedure:
ColorToStringList
erwartet eine Var von Typ TStrings
und zwei neue Funktionen:
function Color2ToString(const Color:TColor;const isAltColor:Boolean = True):String;
function String2ToColor(const ColorStr:String; const isAltColor:Boolean = True):TColor;
ist der Parameter isAltColor auf True wird ColorToString bzw. StringToColor aufgerufen, sollte der wert in meiner Tabelle nicht gefunden werden.
Ich hätte gerne ein Parameter isAltColor auch bei ColorToStringList hinzugefügt doch leider kann ich nicht auf Colors in der Unit: Graphics drauf zugreifen aus meiner.
Hätte da jemand ein Idee ?
Habt ihr noch Vorschläge/Verbesserungen ? mehr Farben ?
Nur her damit.
Ich finde das Thema Farben Interessant.
die neue Unit ist im Anhang
So Viel Spaß Damit !