diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-11-27 21:50:41 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-11-27 21:50:41 +0000 |
commit | d826e9135078f7fa719046069ce10da1e382bfc3 (patch) | |
tree | ba5c50ab25a631f388a6fb5fb1a1b7710d78b047 /src/screens/UScreenEdit.pas | |
parent | cb11733f11fd82d80b0bdae558444c5c78ac586f (diff) | |
download | usdx-d826e9135078f7fa719046069ce10da1e382bfc3.tar.gz usdx-d826e9135078f7fa719046069ce10da1e382bfc3.tar.xz usdx-d826e9135078f7fa719046069ce10da1e382bfc3.zip |
some more formatting
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1530 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | src/screens/UScreenEdit.pas | 26 |
1 files changed, 17 insertions, 9 deletions
diff --git a/src/screens/UScreenEdit.pas b/src/screens/UScreenEdit.pas index caeaac11..1fc2fcdc 100644 --- a/src/screens/UScreenEdit.pas +++ b/src/screens/UScreenEdit.pas @@ -33,7 +33,10 @@ interface {$I switches.inc} -uses UMenu, SDL, UThemes; +uses + UMenu, + SDL, + UThemes; type TScreenEdit = class(TMenu) @@ -44,19 +47,23 @@ type FileName: string;} constructor Create; override; procedure onShow; override; - function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override; + function ParseInput(PressedKey: cardinal; CharCode: WideChar; PressedDown: boolean): boolean; override; { function Draw: boolean; override; procedure Finish;} end; implementation -uses UGraphic, UMusic, USkins, SysUtils; +uses + UGraphic, + UMusic, + USkins, + SysUtils; -function TScreenEdit.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; +function TScreenEdit.ParseInput(PressedKey: cardinal; CharCode: WideChar; PressedDown: boolean): boolean; begin Result := true; - If (PressedDown) Then + if (PressedDown) then begin // Key Down // check normal keys case WideCharUpperCase(CharCode)[1] of @@ -83,7 +90,8 @@ begin AudioPlayback.PlaySound(SoundLib.Start); FadeTo(@ScreenEditConvert); end; -// if Interaction = 1 then begin +// if Interaction = 1 then +// begin // Music.PlayStart; // FadeTo(@ScreenEditHeader); // end; @@ -134,9 +142,9 @@ end; (*function TScreenEdit.Draw: boolean; var - Min: integer; - Sec: integer; - AktBeat: integer; + Min: integer; + Sec: integer; + AktBeat: integer; begin end; |