roten Farbwert aus TColor extrahieren ??

[EccoBravo]

Hallo allerseits,

Ihr habt sicherlich meine letzte Frage gelesen?
Weiterführend darauf nun folgendes:
Wie kann ich aus einem TColor-Wert den roten Farbanteil extrahieren (RGB(rt,gn,bl)...)?
Ich will ein Image in das Rotbild, Grünbild und Blaubild zerlegen.

Danke für Hilfe

E. B.

[iGoA]

entweder
rot := (color and $ff0000) shr 16;

oder

rot := (color and $ff);

eines von beiden. ich verwechsel manchmal, in welchem Byte rot und blau gespeichert sind.

[Fussball-Robby]

@iGoA: $ff

Hier ne Prozedur für alle R, G & B..:

Delphi-Quellcode:

procedure TColor2RGB(Const Color: TColor; var R, G, B: Byte);
begin
  R := Color and $FF;
  G := (Color shr 8) and $FF;
  B := (Color shr 16) and $FF;
end;

Mfg

[Kroko1999]

Zitat von iGoA:

entweder
rot := (color and $ff0000) shr 16;

oder

rot := (color and $ff);

eines von beiden. ich verwechsel manchmal, in welchem Byte rot und blau gespeichert sind.

(1) ist Falsch, dass ist Blau
(2) Color and $FF;

oder nimm GetRValue(Color);

[Muetze1]

Und wieso nicht die fertigen Funktionen nutzen? Also GetRValue(), GetGValue() und GetBValue()?

Und ich möchte nochmal darauf hinweisen, das bestimmte Farbkonstanten welche vom aktuellen Farbschema abhängig sind (z.B. clWindow, clWindowText, clCaption, etc) keine RGB Werte enthalten! Diese erhält man definitiv nach der Funktion ColorToRGB(), egal welcher Art von TColor man übergibt. Ausnahme hierbei ist definitiv clNone.

[EccoBravo]

Prima, danke allerseits.
Die fertigen Funktionen sinds

E. B.