Forum: Multimedia
by Peter666,
30. Mär 2017
Ich muss zugeben dass ich den Code ais einem Assembler Code umgewandelt habe, aber ich sehe jetzt nicht wo ich den Alpha Code ignoriere. Die im Thread angebotenen Alternativlösungen liefern prinzipiell das selbe Ergebnis.
Forum: Multimedia
by Peter666,
30. Mär 2017
Danke, Alphablending ist etwas anderes.
function Scale32(const scale: Byte; const p: cardinal): cardinal;
var
ag, rb: cardinal;
sag, srb: cardinal;
begin
ag := (p and $FF00FF00) shr 8;
rb := p and $00FF00FF;