Hilfe bei Farbverlauf procedure

[mimi]

ich habe mal eine Klasse gebastelt dort habe ich Fertige Farbverläufe rein kopiert. Verschiedene. Allerdings war jeder Farbverlauf anders...

[Medium]

@Kalfany: Herzlichen Glückwunsch! Sie haben 95% des Threads entweder nicht gelesen, oder nicht verstanden!

[Kalfany]

Zitat von Medium:

@Kalfany: Herzlichen Glückwunsch! Sie haben 95% des Threads entweder nicht gelesen, oder nicht verstanden!

Sagen wirs so ... ich hab von den 5% die ich gelesen hab 95% nicht verstanden (Ich schieb das ganze jetzt mal auf meine akt. Medikamente ) Aber evtl. kann jemand anders das Bsp. ja mal brauchen.

[mimi]

Deine Funktion ist ja ganz nett, aber dort kann ich ja nur zwei Farben angeben, aber es ging darum glaube ich mehrere Farben in einem Array anzugeben. Außerdem hast du das Zeichnen und das Berechnen nicht voneinander getrennt.

[Medium]

Zitat von Kalfany:

meine akt. Medikamente

Scheint ne gut Kombi zu sein! Evtl. wäre die Zusammenstellung mal was für unsere Code-Lib

[DeddyH]

[OT]

Zitat von german-bash:

Neun von zehn Stimmen in meinen Kopf sagen ich bin nicht verrückt.
Die andere summt die Melodie von Tetris...

[/OT]

[Maik81ftl]

Moin Moin,

Darf ich Dieses Thema einmal für meinen Farbverlauf aufgreifen, da es schon dieses angeht.

Bei mir, steht das Problem jedoch etwas anders.

Ich habe eine Grundfarbe (z.B. clred oder clLime).

der Aktuelle stand ist wie folgt.

• procedure ColorToHLS(const AColor: TColor; out H, L, S: Byte);
• procedure RGBtoHLS(const R, G, B: Byte; out H, L, S: Byte);
• function HLStoColor(const H, L, S: Byte): TColor;
• procedure HLStoRGB(const H, L, S: Byte; out R, G, B: Byte);

Dank dieser habe ich die die werte beommen, welche ich nun nur noch sinnvoll auswerten muß.

• {Rot
• // $9191FF; H:0; L:200; S:255 | R:137; G:128; B:255
• // $4D4DFF; H:0; L:166; S:255 | R:143; G:128; B:255
• // clRed; H:0; L:128; S:255 | R:149; G:128; B:255 <--- Grundfarbe
• // $0000B3; H:0; L: 90; S:255 | R:155; G:128; B:255
• // $000066; H:0; L: 51; S:255 | R:162; G:128; B:255}
• {Lime
• // $99FF99; H: 85; L:204; S:255 | R:140; G:170; B:255
• // $4DFF4D; H: 85; L:166; S:255 | R:150; G:170; B:255
• // clLime; H: 85; L:128; S:255 | R:160; G:170; B:255 <--- Grundfarbe
• // $00B300; H: 85; L: 90; S:255 | R:169; G:170; B:255
• // $006600; H: 85; L: 51; S:255 | R:177; G:153; B:255}

Generelle Idee bei mir ist, das ich einen "Grundwert" habe, und von da an 2 werte mir je einer Stufe heller und 2 Werte mit je einer Stufe Dunkler zurückerhalte.

Analog steht da auch schon ein thema in diesem Forum Farbverlauf bei Canvas. Bitte nicht wundern, Urspünglich wollte ich dies auf einem TLabel anwenden.

Kleine aber Wichtige Info zusätzlich an Rande:

Ich Programmiere mir Lazarus auf einem Ubuntu 64bit system.

Bin für jede Hilfe dankbar.

[shmia]

Zitat von Maik81ftl:

Generelle Idee bei mir ist, das ich einen "Grundwert" habe, und von da an 2 werte mir je einer Stufe heller und 2 Werte mit je einer Stufe Dunkler zurückerhalte.

Dann hast du also insgesamt 5 Farben.
Diese Farben müssen im RGB-Farbsystem vorliegen.
Mit den folgenden Funktionen aus der Code-Library: Farbverlauf berechnen
ist es dann ein Leichtes einen Farbverlauf zu erzeugen, der diese 5 Farben benützt.

[Maik81ftl]

Zitat von shmia:

Zitat von Maik81ftl:

Generelle Idee bei mir ist, das ich einen "Grundwert" habe, und von da an 2 werte mir je einer Stufe heller und 2 Werte mit je einer Stufe Dunkler zurückerhalte.

Dann hast du also insgesamt 5 Farben.
Diese Farben müssen im RGB-Farbsystem vorliegen.
Mit den folgenden Funktionen aus der Code-Library: Farbverlauf berechnen
ist es dann ein Leichtes einen Farbverlauf zu erzeugen, der diese 5 Farben benützt.

der gedanke kam mir auch schon und danke für die Link aber da Stört mich eine kleine sache.

function ColorBetween(C1, C2 : TColor; blend:Real):TColor; da muß ich mind, 2 werte eingeben. bei dem Ausgang steht allerdings nur ein Wert zur verfühgung.

und wie auch zuerkennen ist liegen die Farben im RGB und HLS vor. Aber wird mir schon was einfallen...

[Blup]

Zitat von Maik81ftl:

function ColorBetween(C1, C2 : TColor; blend:Real):TColor; da muß ich mind, 2 werte eingeben. bei dem Ausgang steht allerdings nur ein Wert zur verfühgung.

Eventuell könnte man diese Funktion in einer Schleife aufrufen, dabei ändert sich "blend" abhängig von der Position zwischen den beiden Farben.

Zitat von Maik81ftl:

und wie auch zuerkennen ist liegen die Farben im RGB und HLS vor. Aber wird mir schon was einfallen...

Wie auch zu erkennen ist, sind dir die Funktionen zur Umwandlung zwischen den Farbräumen schon aufgefallen...