Steema Central

Posted: **Fri Apr 07, 2023 11:28 am**

Hi

In Delphi 11.2 + Firemonkey , does not support AlphaColors?

Image attached..

Thks.

Posted: **Sat Apr 08, 2023 9:30 pm**

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

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;

Posted: **Tue Apr 18, 2023 9:34 am**

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

Regards,
Marc Meumann

Posted: **Fri Sep 22, 2023 2:32 am**

This exact bug was in the aggpas delphi port.

Steema Central

Color Problem

Color Problem

Re: Color Problem

Re: Color Problem

Re: Color Problem