章
章慧
Unregistered / Unconfirmed
GUEST, unregistred user!
Function AlphaPlus(BackAlpha, ForeAlpha: Byte): Byte;
Var
c: Cardinal;
Begin
c := ForeAlpha + BackAlpha - (ForeAlpha * BackAlpha Div 255);
Result := Byte(c);
End;
Var
c: Cardinal;
Begin
c := ForeAlpha + BackAlpha - (ForeAlpha * BackAlpha Div 255);
Result := Byte(c);
End;
