Delphi Zwei Farben "Alphablenden"

Thema durchsuchen

Ansicht

Themen-Optionen

Zwei Farben "Alphablenden"

Ein Thema von igel457 · begonnen am 9. Apr 2006 · letzter Beitrag vom 9. Apr 2006

Vorheriger Beitrag

Nächster Beitrag

igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge

FreePascal / Lazarus

Zwei Farben "Alphablenden"

9. Apr 2006, 17:19

Ich habe mal wieder ein kleines Problem. Ich möchte zwei Farben ineinander überblenden. Ungefähr so:

markieren

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