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