Problem mit Farbkonstanten beim Auslesen von Pixels

[JVALeipzig]

Hallo, ich hab folgendes Problem

Ich lese aus einem normalen TImage über Image.Canvas.Pixels[x,y] einen TColor-wert aus und daraus berechne ich dann einen Gamma wert und gebe diesen dann als pixel in graustufen wieder im Image aus, so dass dann ein Bild mit grautönen (gammawerten) entsteht, was ich weiter bearbeiten möchte, ... aber jetzt sind mir unzählige "verunreinigungen" im Bild aufgefallen, irgendwelche fehlerpixels, die da nicht hingehören und ich hab herraus gefunden, dass das damit zusammenhängt, dass bei TColor die Farbe manchmal nicht nach dem Schema $00FFFFFF sondern als Konstante clWhite ausgegeben wird,

Wenn ich die TColor-werte in strings umwandele um sie dann über ihre Hex werte in R,G,B-Integer Zahlen zu konvertieren dann klappt das natürlich nicht, wenn da clIrgendwas steht und meine funktion versucht da Hexadezimale Ziffern zu erkennen .

lange rede kurzer sinn, wie bekomme ich es hin, dass mir ausschließlich hexadezimale Farbwerte ausgegeben werden, wenn ich canvas.pixels[x,y] aufrufe. Habe keine lust eine Case Of abfrage für alle hunderttausend Farbkonstanten zu machen.

vielleicht könnt ihr mir ja helfen

vielen dank

[Muetze1]

ColorToRGB()

[himitsu]

Aber nicht auf Pixels anwenden, denn dieses wird ja schon im RGB-Format zurückgegeben ... nur einige Farbkonstanten sind Spezialwerte, welche z.B. "nur" die Nummer der Farbe und nicht die Farbe selber enthalten.

Delphi-Quellcode:

Image.Canvas.Pixels[x,y] := ColorToRGB(cl...);

[Muetze1]

Zitat:

Zitat von himitsu

Aber nicht auf Pixels anwenden, denn dieses wird ja schon im RGB-Format zurückgegeben ... nur einige Farbkonstanten sind Spezialwerte, welche z.B. "nur" die Nummer der Farbe und nicht die Farbe selber enthalten.

Delphi-Quellcode:

Image.Canvas.Pixels[x,y] := ColorToRGB(cl...);

Hä? Gerade darauf soll er es anwenden. Und ausserdem würde es keinen Unterschied machen: Wenn man ColorToRGB() auf einen RGB Wert anwendet, passiert gar nix. Wo sollte dort ein Problem liegen? Ich versteh den Einwand nicht so ganz...

[himitsu]

Das es kein Problem gibt, wenn es auf Pixels angewendet würde ist klar, es wäre nur ein "unnötiger" Funktionsaufruf,
aber wenn er es NUR auf Pixels anwendet, dann schon :zwinker:



Dieses wäre ja schließtlich das Selbe, wie wenn man ColorToRGB wegließe:

Delphi-Quellcode:

ColorToRGB(Image.Canvas.Pixels[x,y]) := cl...;