Стартовый пул

gecko/.svn/pristine/a0/a0c303a1e2fbed12697551d6e81df29de25c3e49.svn-base

@@ -0,0 +1,39 @@
+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.