diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 14:58:32 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 14:58:32 +0000 |
commit | 873f177f08dc7c4fe2d7e50bbe7709df98e238d3 (patch) | |
tree | 78158db79e85a1ac406e81cd6923af4b5a0fd0bc /src/screens0/UScreenLoading.pas | |
parent | 6809e61aef42c36bfebe16414693c82e45bceaff (diff) | |
download | usdx-873f177f08dc7c4fe2d7e50bbe7709df98e238d3.tar.gz usdx-873f177f08dc7c4fe2d7e50bbe7709df98e238d3.tar.xz usdx-873f177f08dc7c4fe2d7e50bbe7709df98e238d3.zip |
rename Screen part2
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1306 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/screens0/UScreenLoading.pas')
-rw-r--r-- | src/screens0/UScreenLoading.pas | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/src/screens0/UScreenLoading.pas b/src/screens0/UScreenLoading.pas deleted file mode 100644 index ee3c6f7f..00000000 --- a/src/screens0/UScreenLoading.pas +++ /dev/null @@ -1,57 +0,0 @@ -unit UScreenLoading; - -interface - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -{$I switches.inc} - -uses - UMenu, - SDL, - SysUtils, - UThemes, - gl; - -type - TScreenLoading = class(TMenu) - public - Fadeout: boolean; - constructor Create; override; - procedure onShow; override; - function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override; - function GetBGTexNum: GLUInt; - end; - -implementation - -uses UGraphic, - UTime; - -function TScreenLoading.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; -begin - Result := true; -end; - -constructor TScreenLoading.Create; -begin - inherited Create; - - LoadFromTheme(Theme.Loading); - - Fadeout := false; -end; - -procedure TScreenLoading.onShow; -begin - inherited; -end; - -function TScreenLoading.GetBGTexNum: GLUInt; -begin - Result := Self.BackImg.TexNum; -end; - -end. |