Farbwert zu Dezimal

[EWeiss]

Zitat von Klaus01:

Zitat von EWeiss:

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.

PS:
Danke für euer Interesse denke muss es aufgeben komme auf keinen grünen zweig.
Man kann es drehen wie man will aber die Berechnung von VB lässt sich scheinbar auf Delphi auch in geänderter Form nicht umlegen.
Er wendet da ein paar Tricks an die so einfach nicht nachvollziehbar sind.

gruss