In
System.UIConsts.pas gibt es eine
function RGBtoBGR
, die ist aber nicht typsicher.
Alternativ schreibst du dir selber was:
Delphi-Quellcode:
function ColorToAlphaColor(Value: TColor): TAlphaColor;
var
CRec: TColorRec;
ARec: TAlphaColorRec;
begin
CRec.Color := Value;
ARec.A := CRec.A;
ARec.B := CRec.B;
ARec.G := CRec.G;
ARec.R := CRec.R;
Result := ARec.Color;
end;