"Farbverlauf" von clBtnFace zu clBlack

[xZise]

Zitat von SirThornberry:

du musst die Farbe in ihre Bestandteile zerlegen (rot, grün, blau). Anschließend kannst du den Mittelwert der Farben gewichtet berechnen.

So:

Delphi-Quellcode:

FColorStep := clBtnFace;
RGB(GetRValue(FColorStep) div 8, GetGValue(FColorStep) div 8, GetBValue(FColorStep) div 8);

Da wir ja zum Schwarz gehen, müssen wir jede Farbe mit 0 subtrahieren
Deshalb habe ich es gelassen.
Ergebnis: "1"

@ Borg: Ich habe mal ein Beispiel angehangen
Schau mir den Code aber mal an!
Und muss das nicht shl 1 sein? Einfach ein Byte weiter schieben. Aber das nützt auch nichts.

CL: Noch nicht getestet.

Zur Farbe: Die ist negativ! (Das ist wahrscheinlich auch das Problem)

MfG
xZise