roten Farbwert aus TColor extrahieren ??

[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