Farbpaltte erstellen mit 255 farben

[Muetze1]

Zitat:

Zitat von mare_crisium

farbe:=rot+256*gruen+256*256*blau

*schüttel*
Vorschlag:

Delphi-Quellcode:

farbe := RGB(rot, gruen, blau);

[mare_crisium]

Mimi,

um das hinzukriegen, was Du willst, muss man zwei Fragen beantworten:
1. Wie suche ich unter den 16 Millionen Farbtönen, die man mit 8 bit pro Farbe darstellen kann, die aus, die Du haben willst.
2. Wie zeige ich sie so an, dass man jede beliebige davon mit der Maus auswählen kann.

Die zweite Frage ist am Einfachsten zu lösen: Am Besten mit einem Tdrawgrid.

Die erste ist echt knifflig, weil es
1. keine einfache Möglichkeit gibt, alle Farbtöne in einer Ebene darzustellen
2. nichts so stark von der Persönlichkeit geprägt ist, die die Vorliebe oder Abneigung gegen bestimmte Farben. Farben ohne Emotionen anzugucken ist fast unmöglich.
3. das Auge ist nicht so unfehlbar, wie es uns immer weismachen will. Wenn Du die angehängte Unit zum Laufen bringst, wirst Du 255 Quadrate sehen, die jedes mit einem einheitlichen Farbton ausgefüllt sind. Es sieht aber so aus, als hätten sie einen anders gefärbten Rand. Stimmt nicht: Das Auge verstärkt Kontraste und lässt uns einen Farbsaum erscheinen wo gar keiner ist.

Guck' Dir doch mal diese unit hier an. Die fertige .exe-Datei habe ich auch angehängt. Wenn alles hinhaut, kannst Du auf jedes Quadrat des TdrawGrid klicken und siehst dann die ausgewählte Farbe in einem Panel darunter.

Für Muetze1 ist auch was dabei.

mare_crisium

[mimi]

Vielen Dank für eure Hilfe. Ich bin gerade am überlegen ob ich nicht die eine Farbpallete nemhen soll oder ob ich es nicht selbst versuche dieses ziel zu erreichen.

Kennst du/ihr eine deutsche Hompage die sich mit Farberechnungen ausskennt ?

[mare_crisium]

Mimi,

ich finde, Du bist wirklich mutig und zäh, weil Du Dich nicht einfach zufrieden gibst, sondern das verfolgst, was Du wirklich willst.

Die beste deutsche Website, die ich bisher zu diesem Thema finden konnte, ist Wikipedia mit dem Suchwort "Farbraum". Von da aus kannst Du dann weiterschürfen. Aber scheu' Dich nicht im Forum weiter zu fragen, wenn Du nicht so weit kommst, wie Du willst.

mare_crisium

[mimi]

Zitat:

ich finde, Du bist wirklich mutig und zäh, weil Du Dich nicht einfach zufrieden gibst, sondern das verfolgst, was Du wirklich willst.

danke, mal schauen ob es was hilft.

[mimi]

nach langen suchen habe ich mich entschieden die farben aus einer Liste zu laden:
http://www.webmastermarkt.de/farbtabelle.html
dort findes du die englischen und deutschen farbnamen und den farbwert in einer tabbele aufgelistet.

[himitsu]

Das mit dem Array (Farbpalette) wäre natürlich noch 'ne Möglichkeit - statt die Farben zu berechnen diese einfach aus dem Array verwenden. (bei so "wenigen" Farben wäre dieses noch vertretbar ... 256 * 4 = 1 KB)

Und der Vorteil dabi wäre auch noch, daß du die Farbwrte dann völlig frei positionieren kannst. (ohne eine passende Formel zu finden)
[add] also passend zu deiner Liste
[add2] dort hast du auch noch einige (Browser)Farbpaletten und sogar sortierter

Delphi-Quellcode:

Const ColorArray: Array[0..255] of TColor = ($000000, ... , $FFFFFF);

Oder du muß es denn unbedingt eine Farbpalette mit festen Werten sein? (siehe Anhänge)

[mimi]

danke für den link. die beispiele waren für mich nicht
allerdink habe ich ein problem mit dem umwanden von #00FFFF nach einen intereger.
habe schon gesucht und bin dabei auf folgende funktion gestoßen:

Delphi-Quellcode:

function HexToColor(St: String): TColor;
begin
  Result := TColor(StrToInt(St));
end;

aber irgenwie es kommt eine fehlermeldung das der hex colorer wert kein gültiger interger sei :(

ich werde mal dein link testen.

[turboPASCAL]

Ersetze das # durch $. (#00FFFFFF zu $00FFFFFF)

zB.:

Delphi-Quellcode:

function HexToColor(St: String): TColor;
begin
  if St[1] = '#' then St[1] := '$';
  Result := TColor(StrToInt(St));
end;

[mimi]

Besten Dank an alle: hat geklaptt ich werde die datei noch auf den neuen link umstellten und dann ist diese funktion fertig *G*