Farbwert zu Dezimal

[Michael II]

In Delphi kannst du den ersten Teil so schreiben:

Delphi-Quellcode:

a,d: DWORD;
imgSpectrumData: Array of Array of DWORD;
…
...

 a := imgSpectrumData[x, y] shr 24; // Alpha bestimmen
 if a >= d then a := a-d else a=0; // Alpha ändern
 c := imgSpectrumData[x,y] and $00ffffff; // nur RGB
 imgSpectrumData[x,y] := (a shl 24) or c; // Neues Alpha und RGB zurückschreiben