Hallo,
ich habe mir eine kleine
Unit erstellt die mehr Farben hat als die Standard 16 Farben.
Die
Unit wurde mit Lazarus Erstellt sollte aber auch bei Delphi Problemlos laufen.
Ich habe mir die Farben Tabelle hier runter geladen:
http://www.uni-magdeburg.de/counter/rgb.txt.shtml
und die nutzte ich !
Hier ist ein Auszug aus der Beschreibung:
Zitat:
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;
--------------------------------------------------------
Wenn noch jemand Ideen, für Verbesserungen/Vorschläge hat,
oder wenn Farben fehlen sollten, immer her damit !
Bin für alles Offen - Evlt. kann diese
Unit ja jemand gebrauchen.
Ich würde sehr gerne die Farben von OpenOffice verwenden, hat da jemand von euch eine Idee, wie sie gespeichert werden bzw. wo ?
Ich würde zusätzlich gerne Reale Farb Namen verweden z.b. nicht clRed sondern Rot, Rot 1, Rot2.
hat da jemand von euch eine Idee ? am besten natürlich sollte das mit Mehren Sprachen gehen also jetzt nicht nur Deutsch.
Ich hoffe die zwei Fragen zu meiner
Unit stören euch nicht, ich dachte die würden hier gut rein passen.
Viel Spaß damit.
Ach ja die
Unit darf frei verwendet werden. Sie steht jetzt nicht unter eine Bestimmten Lizenz !