Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#5

Re: "Farbverlauf" von clBtnFace zu clBlack

  Alt 10. Mär 2008, 22:47
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
Angehängte Grafiken
 
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat