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