farbverlauf in %

[lbccaleb]

Danke, aber mein Problem wurde bereits gelöst!

Ich habe genau das, was ich wollte, es soll genauso sein, bin also super zufrieden^^

PS ja, habe mir den Eintrag in der CodeLib angesehen, ist aber nicht das was ich wollte, denn daß wollte ich:

Zitat von lbccaleb:

Joa danke, genau das wars was ich brauchte...
Danke..

Umgewandelt noch in eine Funktion (Math in Uses aufnehmen):

Delphi-Quellcode:

function GetColor(Prozent: integer): COLORREF;
  begin
    Result := RGB(255 * Min(100 - Prozent, 50) div 50, 255 * Min(Prozent, 50) div 50, 0);
  end;

[shmia]

Zitat von lbccaleb:

... habe genau das, was ich wollte, es soll genauso sein, bin also super zufrieden^^

Nun die Funktion GetColor() macht doch nichts anderes als:
farbe := ColorsBetween([clRed, clYellow, TColor($00FF00)], prozent / 100.0); Wenn du irgendwann mal die Farben Rot, Gelb und Grün ändern möchtest, dann bist du doch mit der ColorsBetween()-Funktion viel besser bedient.
Ausserdem liefert GetColor() stufige Farben, weil der Farbraum nicht komplett abgedeckt wird.
Mit ColorsBetween() bekommt man einen völlig gleichmässigen Farbverlauf.
Siehe Anhang - der untere Farbverlauf hat Stufen, der obere nicht.

[himitsu]

@shmia: clLime = (Hell)Grün

[lbccaleb]

Zitat von shmia:

Wenn du irgendwann mal die Farben Rot, Gelb und Grün ändern möchtest, dann bist du doch mit der ColorsBetween()-Funktion viel besser bedient.

Ja, nur will ich diese nicht ändern, da die Festgelegt sein sollen!

Zitat von shmia:

Ausserdem liefert GetColor() stufige Farben, weil der Farbraum nicht komplett abgedeckt wird.
Mit ColorsBetween() bekommt man einen völlig gleichmässigen Farbverlauf.
Siehe Anhang - der untere Farbverlauf hat Stufen, der obere nicht.

Ist richtig, aber für mein vorhaben total egal...

Ich hab das ganze in diesem Programm gebraucht:

Passwort Generator


Wirf mal ein blick rein, dann weißt warum die Funktion super i.O. für mich ist^^

mfg