Aero color

[WojTec]

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

[Namenloser]

Why are you adding the original value?

Try this:

Delphi-Quellcode:

if A <> 0 then
begin
  R := Clamp(255*R div A, 0, 255);
  G := Clamp(255*G div A, 0, 255);
  B := Clamp(255*B div A, 0, 255);
end;

[edit]
Btw @Medium: The order used by this function is in fact ARGB: MSDN: “The color format of the value is 0xAARRGGBB”
[/edit]

[Medium]

How odd, especially because it's used in context with D3D. I stand corrected though

[WojTec]

Hm, color also is not valid.