Farbwert zu Dezimal

[Klaus01]

.. kein Problem.

Delphi-Quellcode:

            if a > 127 then
              SpectrumData2D[X, Y] := c or ((a - 256) * $1000000) // hier komm ich nicht klar wegen den $1000000
            else
              SpectrumData2D[X, Y] := c or (a * $1000000); // hier komm ich nicht klar wegen den $1000000
          end;

sollte in etwas so aussehen:

Delphi-Quellcode:

            if a > 127 then
              SpectrumData2D[X, Y] := c or ((a - 256) shl 24) // hier wird ein Byte zu einem 32Bit Value
            else
              SpectrumData2D[X, Y] := c or (a shl 24); //dito  * $1000000 verschiebt um 24bit nach links
          end;

Grüße
Klaus