Forum: Multimedia
Delphi
by Michael II,
29. Mär 2019
Was soll nicht stimmen ? Ist schon gut so.
Du musst Release von der Zeichenroutine komplett trennen.
es befindet sich dazwischen und manipuliert die Pixel mit denen die aus den Effekten errechneten werden.
So etwas wie ein Plugin innerhalb Draw!
Das Zeichnen der "Spektrum Daten" funktioniert.
Was in der mir vorliegenden Version nicht funktioniert sind die Effekte. Dieser Teil macht...
Forum: Multimedia
Delphi
by Michael II,
29. Mär 2019
Und noch ein mal und zum letzten Mal ;-): Die Unterscheidung a > 127 ist im Delphi Code nicht notwendig, da wir im Gegensatz zum VB Code ohne Vorzeichen arbeiten.
Forum: Multimedia
Delphi
by Michael II,
29. Mär 2019
Hallo EWeiss
in welcher Procedure befindet sich der hier diskutierte Code? In procedure TSpectrum.Release;? Falls Ja: Früher hast du dort SpectrumData2D verwendet und jetzt imgSpectrum?
Oder ist es eine andere Procedure - und wenn Ja, wo findet man diese in deinem Code?
Wenn es TSpectrum.Release; ist: SpectrumData2D bzw. jetzt imgSpectrum muss natürlich am Eingang zu deiner Procedure...
Forum: Multimedia
Delphi
by Michael II,
29. Mär 2019
In Delphi kannst du den ersten Teil so schreiben:
a,d: DWORD;
imgSpectrumData: Array of Array of DWORD;
…
...
a := imgSpectrumData shr 24; // Alpha bestimmen
if a >= d then a := a-d else a=0; // Alpha ändern
Forum: Multimedia
Delphi
by Michael II,
28. Mär 2019
Longword gibt's ja bei Delphi auch: Bei 4 Bytes (A,R,G,B) könntest du doch auch DWORD als Datentyp nutzen?