diff options
| author | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-09-20 10:35:02 +0000 |
|---|---|---|
| committer | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-09-20 10:35:02 +0000 |
| commit | a1c2876fb12cfc860044f00210f69a9bdc2cf687 (patch) | |
| tree | 17e99ea9a199279fd28d57b0be189765a6c9ad55 /Game/Code/Screens/UScreenLoading.pas | |
| parent | 3c41f973b397b718135a7713c7501607812b0192 (diff) | |
| download | usdx-a1c2876fb12cfc860044f00210f69a9bdc2cf687.tar.gz usdx-a1c2876fb12cfc860044f00210f69a9bdc2cf687.tar.xz usdx-a1c2876fb12cfc860044f00210f69a9bdc2cf687.zip | |
minor fixes for lazarus build..
forgot file... oops.. :)
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@416 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Screens/UScreenLoading.pas')
| -rw-r--r-- | Game/Code/Screens/UScreenLoading.pas | 21 |
1 files changed, 16 insertions, 5 deletions
diff --git a/Game/Code/Screens/UScreenLoading.pas b/Game/Code/Screens/UScreenLoading.pas index 438b606e..2ccc5c79 100644 --- a/Game/Code/Screens/UScreenLoading.pas +++ b/Game/Code/Screens/UScreenLoading.pas @@ -2,22 +2,33 @@ unit UScreenLoading; interface
+{$I switches.inc}
+
+{$IFDEF FPC}
+ {$MODE DELPHI}
+{$ENDIF}
+
uses
- UMenu, SDL, SysUtils, UThemes, OpenGL12;
+ UMenu,
+ SDL,
+ SysUtils,
+ UThemes,
+ OpenGL12;
type
TScreenLoading = class(TMenu)
public
Fadeout: boolean;
constructor Create; override;
- function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
- function GetBGTexNum: GLUInt;
- procedure onShow; override;
+ procedure onShow; override;
+ function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
+ function GetBGTexNum: GLUInt;
end;
implementation
-uses UGraphic, UTime;
+uses UGraphic,
+ UTime;
function TScreenLoading.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
begin
|