TColor - Zusammenfügen der Farben

[Cirec]

Hallo,

Zitat von Muellermilchtrinker:

... Mit rgb() kann ich ja meine RGB Werte in ein TColorwert umwandeln.
Ich möchte jedoch noch den Alphawert mit einbeziehen ...

das geht einfach so:

Delphi-Quellcode:

function RGBAToColor(r, g, b, a: Byte): TColor;
begin
  Result := (r or (g shl 8) or (b shl 16) or (a shl 24));
end;

mfg
Cirec.