When adding FMX.TMSFNCTypes to a simple AdvPDFVIewer app the compiler throws an error after closing the app:
unit CTFormTMSpdf;
interface
uses
System.Classes,
FMX.TMSFNCTypes, // <<----- causes exception
AdvCustomControl,
AdvCustomScrollControl,
AdvPDFViewer,
Vcl.Forms,
Vcl.Controls;
type
TFormTMSpdf = class(TForm)
AdvPDFViewer: TAdvPDFViewer;
procedure FormShow(Sender: TObject);
private
public
end;
var
FormTMSpdf: TFormTMSpdf;
implementation
{$R *.dfm}
procedure TFormTMSpdf.FormShow(Sender: TObject);
begin
AdvPDFViewer.FileName:='c:\temp\pdftest.pdf';
end;
end.