Farbwert zu Dezimal

[Klaus01]

.. mach aus Deinem alpha: Integer mal ein alpha: Byte

Delphi-Quellcode:

     0: begin
           d := fade * 255;
           // nur für Tests 
           //d := round((random(10) /10)) *255;
           for y:= 0 to h do
             for x := 0 to w do
               begin

                 alpha := ((imgSpectrum[x,y] and $FF000000) shr 24) and $FF;
                 alpha := alpha - d;
                // Byte kann nicht < 0 sein
                // if alpha < 0 then
                //   alpha := 0;
                 c := imgSpectrum[x,y] and $FFFFFF;
                 if alpha > 127 then
                   imgSpectrum[x,y] := c or ((alpha -256) shl 24)
                 else
                   imgSpectrum[x,y] := c or (alpha shl 24);
               end;

rot, grün und blau können auch vom Type Byte sein.

Grüße
Klaus