OnSupportsWebFont

Top Previous Next

The OnSupportsWebfont event is fired when a browser connects to the application. Inside this event you can describe how Thinfinity® VirtualUI™ for FireMonkey® should handle the fonts mapping.

Delphi Syntax

Object.OnSupportsWebfont := MySupportsWebFont;

procedure MySupportsWebFont(Sender: TObject; var ASupports: Boolean);

begin

ASupports := True;

// Your code here

end;

Arguments

Sender	The Sender object.	TObject
ASupports	Indicates whether the browser should support WebFonts or not. If set to false, the FontMode will be set to fmBitmap.	Boolean

Remarks

In order to find out the kind of browser that is connecting to the application, you should read the RemoteInfo.UserAgent property.

The code below is used as a default behavior that allows Thinfinity® VirtualUI™ for FireMonkey® to disable WebFonts for versions under 6 of iPad, iPod and iPhone.

iOS := (Pos('iPad',RemoteInfo.UserAgent)>0) or (Pos('iPod',RemoteInfo.UserAgent)>0) or (Pos('iPhone',RemoteInfo.UserAgent)>0);

if iOS then

begin

MajorVersion := StrToInt(Copy(RemoteInfo.UserAgent,Pos('Version/',RemoteInfo.UserAgent)+8,1));

FSupportsWebFont := (MajorVersion>=6);

end;