Forum: Multimedia
Delphi
by Blup,
26. Jun 2009
Aber du hast doch selbst den Link mit einem Beispiel gepostet?
TColor32 ist ein Longword, steht gleich in der ersten Zeile.
Man kann also wie in dem Beispiel direkt auf TColor32Entry casten.
var
AColor32: Longword;
TColor32Entry(AColor32).A
Forum: Multimedia
Delphi
by Blup,
25. Jun 2009
Im Prinzip etwa so:
Faktor1 := VORN.A / 255;
Faktor2 := 1 - Faktor1;
Ziel.R := (VORN.R * Faktor1) + (HINTEN.R * Faktor2);
Ziel.G := (VORN.G * Faktor1) + (HINTEN.G * Faktor2);
Ziel.B := (VORN.B * Faktor1) + (HINTEN.B * Faktor2);
Ziel.A := HINTEN.A;