updated to latest version of JEDI SDL

    JEDI-SDL v1.0 Final RC ( 2008-01-29 05:46 )

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@811 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 13 insertions, 6 deletions

diff --git a/Game/Code/lib/JEDI-SDL/SDL/Pas/sdlgameinterface.pas b/Game/Code/lib/JEDI-SDL/SDL/Pas/sdlgameinterface.pas
index f8bf902c..cc95751d 100644
--- a/Game/Code/lib/JEDI-SDL/SDL/Pas/sdlgameinterface.pas
+++ b/Game/Code/lib/JEDI-SDL/SDL/Pas/sdlgameinterface.pas
@@ -1,6 +1,6 @@
 unit sdlgameinterface;

 {

-  $Id: sdlgameinterface.pas,v 1.3 2004/10/17 18:41:49 savage Exp $

+  $Id: sdlgameinterface.pas,v 1.4 2005/08/03 18:57:31 savage Exp $

   

 }

 {******************************************************************************}

@@ -62,6 +62,9 @@ unit sdlgameinterface;
 {   September   23 2004 - DL : Initial Creation                                }

 {

   $Log: sdlgameinterface.pas,v $

+  Revision 1.4  2005/08/03 18:57:31  savage

+  Various updates and additions. Mainly to handle OpenGL 3D Window support and better cursor support for the mouse class

+

   Revision 1.3  2004/10/17 18:41:49  savage

   Slight Change to allow Reseting of Input Event handlers

 

@@ -97,11 +100,11 @@ type
     procedure MouseWheelScroll( WheelDelta : Integer; Shift: TSDLMod; MousePos : TPoint ); virtual;

     procedure KeyDown( var Key: TSDLKey; Shift: TSDLMod; unicode : UInt16 ); virtual;

   public

-    MainWindow : TSDL2DWindow;

+    MainWindow : TSDLCustomWindow;

     procedure ResetInputManager;

     procedure LoadSurfaces; virtual;

     function PointIsInRect( Point : TPoint; x, y, x1, y1 : integer ) : Boolean;

-    constructor Create( const aMainWindow : TSDL2DWindow );

+    constructor Create( const aMainWindow : TSDLCustomWindow );

     destructor Destroy; override;

     property NextGameInterface : TGameInterfaceClass read FNextGameInterface write FNextGameInterface;

   end;

@@ -114,7 +117,7 @@ begin
   FNextGameInterface := nil;

 end;

 

-constructor TGameInterface.Create( const aMainWindow : TSDL2DWindow );

+constructor TGameInterface.Create( const aMainWindow : TSDLCustomWindow );

 begin

   inherited Create;

   MainWindow := aMainWindow;

@@ -176,14 +179,18 @@ begin
 end;

 

 procedure TGameInterface.ResetInputManager;

+var

+  temp : TSDLNotifyEvent;

 begin

   MainWindow.InputManager.Mouse.OnMouseDown := MouseDown;

   MainWindow.InputManager.Mouse.OnMouseMove := MouseMove;

   MainWindow.InputManager.Mouse.OnMouseUp := MouseUp;

   MainWindow.InputManager.Mouse.OnMouseWheel := MouseWheelScroll;

   MainWindow.InputManager.KeyBoard.OnKeyDown := KeyDown;

-  MainWindow.OnRender := Render;

-  MainWindow.OnClose := Close;

+  temp := Render;

+  MainWindow.OnRender := temp;

+  temp := Close;

+  MainWindow.OnClose := temp;

   MainWindow.OnUpdate := Update;

 end;