Color Problem

[QDavid]

Hi

In Delphi 11.2 + Firemonkey , does not support AlphaColors?

Image attached..

Thks.

[QDavid]

Width this change in the original code of the unit Tee.Format , seems to work correctly.

Code: Select all

class function TColorHelper.Swap(const AColor:TColor):TColor;
begin
{  Original Code
  TAlphaColorRec(result).R:=TAlphaColorRec(AColor).B;
  TAlphaColorRec(result).G:=TAlphaColorRec(AColor).G;
  TAlphaColorRec(result).B:=TAlphaColorRec(AColor).R;
  TAlphaColorRec(result).A:=TAlphaColorRec(AColor).A;
 }

  // Changed code
  TAlphaColorRec(result).R:=TAlphaColorRec(AColor).R;
  TAlphaColorRec(result).G:=TAlphaColorRec(AColor).G;
  TAlphaColorRec(result).B:=TAlphaColorRec(AColor).B;
  TAlphaColorRec(result).A:=TAlphaColorRec(AColor).A;

end;

[Marc]

Thanks for the feedback. We'll take a look at the best way to meet TColor and TAlphaColor requirements.

Regards,
Marc Meumann

[TheOtherPrefontaine]

This exact bug was in the aggpas delphi port.