RGB -- TColor allgemeine Verständnisfrage

[Medium]

Dann doch gleich so:

Delphi-Quellcode:

Type
  TColorAcc = packed record
  case Boolean of
    true: Color: TColor;
    false:
    begin
      Alpha: Byte;
      Blue: Byte;
      Green: Byte;
      Red: Byte;
    end;
  end;

procedure Beispiel;
var
  C:TColorAcc;
begin
  c.Color := clBlue;
  c.Red := 255;
  // c.Color=clFuchsia
end;