diff options
Diffstat (limited to '')
| -rw-r--r-- | src/screens/UScreenOpen.pas | 231 |
1 files changed, 0 insertions, 231 deletions
diff --git a/src/screens/UScreenOpen.pas b/src/screens/UScreenOpen.pas deleted file mode 100644 index 70b883c4..00000000 --- a/src/screens/UScreenOpen.pas +++ /dev/null @@ -1,231 +0,0 @@ -{* UltraStar Deluxe - Karaoke Game - * - * UltraStar Deluxe is the legal property of its developers, whose names - * are too numerous to list here. Please refer to the COPYRIGHT - * file distributed with this source distribution. - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, - * Boston, MA 02110-1301, USA. - * - * $URL$ - * $Id$ - *} - -unit UScreenOpen; - -interface - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -{$I switches.inc} - -uses - Math, - SysUtils, - gl, - SDL, - UPath, - UMenu, - UMusic, - UFiles, - UTime, - USongs, - UIni, - ULog, - UTexture, - UMenuText, - ULyrics, - UThemes; - -type - TScreenOpen = class(TMenu) - private - //fTextF: array[0..1] of integer; - fTextN: integer; // text-box ID of filename - fFilename: IPath; - fBackScreen: PMenu; - - procedure AddBox(X, Y, W, H: real); - public - constructor Create; override; - procedure OnShow; override; - function ParseInput(PressedKey: cardinal; CharCode: UCS4Char; PressedDown: boolean): boolean; override; - - {** - * Set by the caller to provide a default filename. - * Set to the selected filename after calling this screen or to PATH_NONE - * if the screen was aborted. - * TODO: maybe pass this value with a callback OnValueChanged() - *} - property Filename: IPath READ fFilename WRITE fFilename; - {** The screen that is shown after this screen is closed (set by the caller) *} - property BackScreen: PMenu READ fBackScreen WRITE fBackScreen; - end; - -implementation - -uses - UGraphic, - UDraw, - UMain, - UScreenEditConvert, - USkins, - UUnicodeUtils; - -function TScreenOpen.ParseInput(PressedKey: cardinal; CharCode: UCS4Char; PressedDown: boolean): boolean; -begin - Result := true; - - if (PressedDown) then // Key Down - begin - // check normal keys - if (IsPrintableChar(CharCode)) then - begin - if (Interaction = 0) then - begin - Text[fTextN].Text := Text[fTextN].Text + UCS4ToUTF8String(CharCode); - Exit; - end; - end; - - // check special keys - case PressedKey of - SDLK_BACKSPACE: // del - begin - if Interaction = 0 then - begin - Text[fTextN].DeleteLastLetter; - end; - end; - - SDLK_ESCAPE: - begin - //Empty Filename and go to last Screen - fFileName := PATH_NONE; - AudioPlayback.PlaySound(SoundLib.Back); - FadeTo(fBackScreen); - end; - - SDLK_RETURN: - begin - if (Interaction = 2) then - begin - //Update Filename and go to last Screen - fFileName := Path(Text[fTextN].Text); - AudioPlayback.PlaySound(SoundLib.Back); - FadeTo(fBackScreen); - end - else if (Interaction = 1) then - begin - //Empty Filename and go to last Screen - fFileName := PATH_NONE; - AudioPlayback.PlaySound(SoundLib.Back); - FadeTo(fBackScreen); - end; - end; - - SDLK_LEFT: - begin - InteractPrev; - end; - - SDLK_RIGHT: - begin - InteractNext; - end; - - SDLK_DOWN: - begin - end; - - SDLK_UP: - begin - end; - end; - end; -end; - -procedure TScreenOpen.AddBox(X, Y, W, H: real); -begin - AddStatic(X, Y, W, H, 0, 0, 0, Skin.GetTextureFileName('MainBar'), TEXTURE_TYPE_COLORIZED); - AddStatic(X+2, Y+2, W-4, H-4, 1, 1, 1, Skin.GetTextureFileName('MainBar'), TEXTURE_TYPE_COLORIZED); -end; - -constructor TScreenOpen.Create; -begin - inherited Create; - - fFilename := PATH_NONE; - - // line - { - AddStatic(20, 10, 80, 30, 0, 0, 0, 'MainBar', 'JPG', TEXTURE_TYPE_COLORIZED); - AddText(35, 17, 1, 18, 1, 1, 1, 'line'); - TextSentence := AddText(120, 14, 1, 24, 0, 0, 0, '0 / 0'); - } - - // file list - //AddBox(400, 100, 350, 450); - - //TextF[0] := AddText(430, 155, 0, 24, 0, 0, 0, 'a'); - //TextF[1] := AddText(430, 180, 0, 24, 0, 0, 0, 'a'); - - // file name - AddBox(20, 540, 500, 40); - fTextN := AddText(50, 548, 0, 24, 0, 0, 0, fFileName.ToUTF8); - AddInteraction(iText, fTextN); - - // buttons - {AddButton(540, 540, 100, 40, Skin.SkinPath + Skin.ButtonF); - AddButtonText(10, 5, 0, 0, 0, 'Cancel'); - - AddButton(670, 540, 100, 40, Skin.SkinPath + Skin.ButtonF); - AddButtonText(30, 5, 0, 0, 0, 'OK');} - // buttons - AddButton(540, 540, 100, 40, Skin.GetTextureFileName('ButtonF')); - AddButtonText(10, 5, 0, 0, 0, 'Cancel'); - - AddButton(670, 540, 100, 40, Skin.GetTextureFileName('ButtonF')); - AddButtonText(30, 5, 0, 0, 0, 'OK'); - -end; - -procedure TScreenOpen.OnShow; -begin - inherited; - - Interaction := 0; - Text[fTextN].Text := fFilename.ToUTF8(); -end; - -(* -function TScreenEditSub.Draw: boolean; -var - Min: integer; - Sec: integer; - AktBeat: integer; -begin - -end; - -procedure TScreenEditSub.Finish; -begin -// -end; -*) - -end. |