From c4eae67bc403eb26af8a1c91f9eb67dc92a8b4b6 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 5 Feb 2008 11:40:45 +0000
Subject: 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
---
 Game/Code/lib/JEDI-SDL/SDL/Pas/sdlgameinterface.pas | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

(limited to 'Game/Code/lib/JEDI-SDL/SDL/Pas/sdlgameinterface.pas')

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;
 
-- 
cgit v1.2.3