Einzelnen Beitrag anzeigen

Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#1

Zwei Farben "Alphablenden"

  Alt 9. Apr 2006, 17:19
Ich habe mal wieder ein kleines Problem. Ich möchte zwei Farben ineinander überblenden. Ungefähr so:

Delphi-Quellcode:
function Blend(col1,col2:TColor;alpha:byte);
begin
  result := ...
end;
Wenn Alpha 255 ist dann soll result := col1 sein, wenn Alpha 0 ist dann soll result := col2 sein.

Ich habe das vorher immer mit einer Schleife geregelt. Gibt es da nicht noch andere möglichkeiten?

Im Forum habe ich nichts gefunden.
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat