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.