TMSFNCPopup Paint Issue on Android

FNC TMS FNC UI Pack
1
Hi

I've found that the TMSFNCPopup paints incorrectly on Android 5.1.1 (not sure about others).  Please paste the below into a new Multi Device Project and then deploy to android.

In my test the popup is mostly black with 'noise'

Cheers

Chris




unit popupunit;


interface


uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.TMSFNCTypes, FMX.TMSFNCUtils, FMX.TMSFNCGraphics, FMX.TMSFNCGraphicsTypes,
  FMX.TMSFNCCustomControl, FMX.StdCtrls, FMX.Edit,
  FMX.Controls.Presentation, FMX.TMSFNCCustomComponent, FMX.TMSFNCPopup;


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    popup : TTMSFNCPopup;
    cmd : TSpeedButton;
    pnl: TPanel;
    txt: TEdit;
    lbl: TLabel;
    procedure OnCmdClick(Sender:TObject);
  public
    { Public declarations }
  end;


var
  Form1: TForm1;


implementation


{$R *.fmx}


procedure TForm1.OnCmdClick(Sender:TObject);
begin
  popup.Popup;
end;


procedure TForm1.FormCreate(Sender: TObject);


begin
  cmd := TSpeedButton.Create(Self);
  cmd.Parent := Self;
  cmd.OnClick := OnCmdClick;
  cmd.Position.X :=1;
  cmd.Position.Y := 1;
  cmd.Text := 'Pupup';
  cmd.Width := 40;
  cmd.Height := 40;


  popup := TTMSFNCPopup.Create(Self);
  popup.Parent := Self;
  popup.PlacementControl := cmd;


  pnl:= TPanel.Create(Self);
  pnl.Parent := Self;


  txt:= TEdit.Create(pnl);
  txt.Parent := pnl;
  txt.Align := TAlignLayout.Bottom;


  lbl:= TLabel.Create(pnl);
  lbl.Parent := pnl;
  lbl.Text := 'Test';
  lbl.Align := TAlignLayout.Top;


  popup.ContentControl := pnl;
  popup.Visible := false; //Otherwise the popup icon is displayed,
                          //not setting Parent fixes though?
end;


end.

2

Forgot to set 'Email Notify' to the original post

3

Hi, 


We further investigated this here and see that this is an issue in Android in RAD Studio Tokyo.
Which RAD Studio version are you using?