diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 14:57:53 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 14:57:53 +0000 |
| commit | 6809e61aef42c36bfebe16414693c82e45bceaff (patch) | |
| tree | b55e9ee69bff0cbf7c5b691fd6ccf6bd7261e13a /src/Screens/UScreenLoading.pas | |
| parent | 18693746df2a0a585507f666c832a5c44516c407 (diff) | |
| download | usdx-6809e61aef42c36bfebe16414693c82e45bceaff.tar.gz usdx-6809e61aef42c36bfebe16414693c82e45bceaff.tar.xz usdx-6809e61aef42c36bfebe16414693c82e45bceaff.zip | |
rename Screen part1
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1305 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/Screens/UScreenLoading.pas')
| -rw-r--r-- | src/Screens/UScreenLoading.pas | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/src/Screens/UScreenLoading.pas b/src/Screens/UScreenLoading.pas deleted file mode 100644 index ee3c6f7f..00000000 --- a/src/Screens/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. |