Pixelfarben ermitteln

[400kmh]

Hallo,

Ich möchte die Pixel eines TImage abhängig von ihrer bisherigen Farbe ändern. Wenn ich ihnen unabhängig von ihrer bisherigen Farbe, eine Frabe zuweisen wollen würde, könnte ich das einfach mit RGBToColor(r,g,b); Ich möchte aber, dass da etwas mit den bisherigen Rot, Grün und Blauanteilen, verrechnet wird. Mit welchem Befehl ermittelt man die Rot-, Grün- und Blauwerte eines Pixels?

[MmVisual]

Mit ColorToRGB() erhält man ein 32-Bit Farbwert.
Dabei sind die Farben in 3x 8-Bits aufgeteilt.

Farbe1 := iFarbe AND $FF;
Farbe2 := (iFarbe SHR 8 ) AND $FF;
Farbe3 := (iFarbe SHR 16) AND $FF;

Welche der 3 Variablen jetzt R / G / B ist weiß ich jetzt nicht auswendig.

[corpsman]

Code: Alles auswählen

r := iFarbe AND $FF;
g := (iFarbe SHR 8 ) AND $FF;
b := (iFarbe SHR 16) AND $FF;

[400kmh]

Danke