Farbwert zu Dezimal

[EWeiss]

Zitat von 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

Super Danke ein Problem weniger.

gruss