pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Moved current geckoport version to version1 branch

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2347 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2012-03-16 11:27:43 +00:00
parent efa62983f8
commit 35a067e943
83 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
components/geckoport/version1/SampleApps/GBrowser.dpr Normal file
View File

@ -0,0 +1,28 @@
program GBrowser;
uses
{$IFDEF LCL}
Interfaces,
{$IFDEF MSWINDOWS}
Math,
{$ENDIF}
{$ENDIF}
Forms,
gec10 in 'gec10.pas' {Form1};
{$IFDEF MSWINDOWS}
{$R *.res}
{$ENDIF}
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;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.