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/screens/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/screens/UScreenLoading.pas')
-rw-r--r-- | src/screens/UScreenLoading.pas | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/src/screens/UScreenLoading.pas b/src/screens/UScreenLoading.pas new file mode 100644 index 00000000..ee3c6f7f --- /dev/null +++ b/src/screens/UScreenLoading.pas @@ -0,0 +1,57 @@ +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. |