Forum: Multimedia
Delphi
by DGL-luke,
3. Mai 2007
Das ist genau die, die ich auch verwende, nur dass ich das Alpha (nach außen) auf ein byte, also auf 0..255 anstatt auf 0..1 abbilde.
Forum: Multimedia
Delphi
by DGL-luke,
3. Mai 2007
Hallo, da gibt es die beiden Verfahren "Blending" und noch was anderes, wo mir jetzt der name nicht einfällt. Aber du kannst es natürlich wiederum linear machen:
function LinearBlendedColor(CBack, CFront: TColor; alpha: Byte): TColor;
var
r1,r2,g1,g2,b1,b2,rr,gr,br: Byte; //1,2,result
begin
r1 := GetRValue(CBack);
g1 := GetGValue(CBack);
b1 := GetBValue(CBack);
Forum: Multimedia
Delphi
by DGL-luke,
3. Mai 2007
Hallo,
das geht natürlich:
function LinearGradientStep(ColStart, ColEnd: TColor; Length, Step: Integer): TColor;
var
r1,r2,g1,g2,b1,b2,rr,gr,br,rd,bd,gd: Byte; //1,2,result,delta
begin