Thema: Delphi Farbwert zu Dezimal

Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#25

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 08:09
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
  Mit Zitat antworten Zitat