cce35768f7
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2308 8e941d3f-bd1b-0410-a28a-d453659cc2b4
40 lines
510 B
ObjectPascal
40 lines
510 B
ObjectPascal
unit browserconfig;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
|
|
{ TFPBrowserConfig }
|
|
|
|
TFPBrowserConfig = class
|
|
public
|
|
UserAgent: string;
|
|
constructor Create; virtual;
|
|
end;
|
|
|
|
var
|
|
FPBrowserConfig: TFPBrowserConfig;
|
|
|
|
implementation
|
|
|
|
{ TFPBrowserConfig }
|
|
|
|
constructor TFPBrowserConfig.Create;
|
|
begin
|
|
inherited Create;
|
|
UserAgent := 'FPBrowser/1.0 (Mobile; U; en-GB)';
|
|
end;
|
|
|
|
initialization
|
|
FPBrowserConfig := TFPBrowserConfig.Create;
|
|
|
|
finalization
|
|
FPBrowserConfig.Free;
|
|
end.
|
|
|