Delphi-Quellcode:
A := (pcrColorization shr 24) and $FF;
R := (pcrColorization shr 16) and $FF;
G := (pcrColorization shr 8) and $FF;
B := pcrColorization and $FF;
if A <> 0 then
begin
R := Clamp(R + (R div A), 0, 255);
G := Clamp(G + (G div A), 0, 255);
B := Clamp(B + (B div A), 0, 255);
end;
Similar, but a bit too dark
