|
Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
Delphi 10.4 Sydney
|
AW: Farbwert zu Dezimal
29. Mär 2019, 10:37
Danke für deine Mühe es gibt einen AV direkt in der ersten zeile
alpha := ((imgSpectrum[y,y] and $FF000000) shr 24) and $FF;
gruss ein Schreibfehler meinerseits: sollte imgSpectrum[x,y] heißen nit [y,y]
Grüße
Klaus Kein Problem 
Aber nein funktioniert nicht komme niemals über 127 hinweg. es hat noch eine Zeile gefehlt:
alpha := (alpha div 9) - d
Habe es oben ergänzt.
Grüße
Klaus
Klaus
|