40 lines
897 B
ObjectPascal
40 lines
897 B
ObjectPascal
program ChromeWin;
|
|
|
|
uses
|
|
{$IFDEF LCL}
|
|
Interfaces,
|
|
{$IFDEF MSWINDOWS}
|
|
Math,
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
Forms,
|
|
nsXRE,
|
|
BrowserSupports,
|
|
GeckoChromeWindow in 'GeckoChromeWindow.pas' {GeckoChromeForm};
|
|
|
|
//{$IFDEF MSWINDOWS}
|
|
//{$R *.res}
|
|
//{$ENDIF}
|
|
|
|
var
|
|
navigation: nsIWebNavigation;
|
|
begin
|
|
{$IFDEF FPC}
|
|
{$IFDEF MSWINDOWS}
|
|
//For now - disable all floating point exceptions or XULRUNNER will crash.
|
|
SetExceptionMask([exInvalidOp,exDenormalized,exZeroDivide,exOverflow,exUnderflow,exPrecision]);
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
Application.Initialize;
|
|
|
|
XRE_Startup('1.9', True, '2.0', False);
|
|
|
|
// GeckoChromeForm := TGeckoChromeForm.CreateWithChromeFlags(Application, 0);
|
|
Application.CreateForm(TGeckoChromeForm, GeckoChromeForm);
|
|
navigation := GeckoChromeForm.WebBrowser as nsIWebNavigation;
|
|
navigation.LoadURI('http://www.lazarus.freepascal.org', 0, nil, nil, nil);
|
|
|
|
Application.Run;
|
|
end.
|