RGB -- TColor allgemeine Verständnisfrage

[stahli]

Hier hatte ich auch einmal ein paar Infos zusammengetragen.

[Bummi]

Recht angenehm geht der Zugriff so

Delphi-Quellcode:

Type
  TColorAcc = packed record
    Red: Byte;
    Green: Byte;
    Blue: Byte;
    Alpha: Byte;
  end;

procedure Beispiel;
var
  C:TColor;
begin
  TColorAcc(c).Blue := $ff;
end;

[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;

[Bummi]