From 873f177f08dc7c4fe2d7e50bbe7709df98e238d3 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Wed, 27 Aug 2008 14:58:32 +0000 Subject: rename Screen part2 git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1306 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/screens0/UScreenPopup.pas | 252 ------------------------------------------ 1 file changed, 252 deletions(-) delete mode 100644 src/screens0/UScreenPopup.pas (limited to 'src/screens0/UScreenPopup.pas') diff --git a/src/screens0/UScreenPopup.pas b/src/screens0/UScreenPopup.pas deleted file mode 100644 index b51fac98..00000000 --- a/src/screens0/UScreenPopup.pas +++ /dev/null @@ -1,252 +0,0 @@ -unit UScreenPopup; - -interface - -{$I switches.inc} - -uses - UMenu, SDL, UMusic, UFiles, SysUtils, UThemes; - -type - TScreenPopupCheck = class(TMenu) - public - Visible: Boolean; //Whether the Menu should be Drawn - - constructor Create; override; - function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override; - procedure onShow; override; - procedure ShowPopup(msg: String); - function Draw: boolean; override; - end; - -type - TScreenPopupError = class(TMenu) -{ private - CurMenu: Byte; //Num of the cur. Shown Menu} - public - Visible: Boolean; //Whether the Menu should be Drawn - - constructor Create; override; - function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override; - procedure onShow; override; - procedure onHide; override; - procedure ShowPopup(msg: String); - function Draw: boolean; override; - end; - -var -// ISelections: Array of String; - SelectValue: Integer; - - -implementation - -uses UGraphic, UMain, UIni, UTexture, ULanguage, UParty, UPlaylist, UDisplay; - -function TScreenPopupCheck.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; -begin - Result := true; - If (PressedDown) Then - begin // Key Down - // check normal keys - case WideCharUpperCase(CharCode)[1] of - 'Q': - begin - Result := false; - Exit; - end; - end; - - // check special keys - case PressedKey of - SDLK_ESCAPE, - SDLK_BACKSPACE : - begin - Display.CheckOK:=False; - Display.NextScreenWithCheck:=NIL; - Visible:=False; - Result := false; - end; - - SDLK_RETURN: - begin - case Interaction of - 0: begin - //Hack to Finish Singscreen correct on Exit with Q Shortcut - if (Display.NextScreenWithCheck = NIL) then - begin - if (Display.CurrentScreen = @ScreenSing) then - ScreenSing.Finish - else if (Display.CurrentScreen = @ScreenSingModi) then - ScreenSingModi.Finish; - end; - - Display.CheckOK:=True; - end; - 1: begin - Display.CheckOK:=False; - Display.NextScreenWithCheck:=NIL; - end; - end; - Visible:=False; - Result := false; - end; - - SDLK_DOWN: InteractNext; - SDLK_UP: InteractPrev; - - SDLK_RIGHT: InteractNext; - SDLK_LEFT: InteractPrev; - end; - end; -end; - -constructor TScreenPopupCheck.Create; -var - I: integer; -begin - inherited Create; - - AddBackground(Theme.CheckPopup.Background.Tex); - - AddButton(Theme.CheckPopup.Button1); - if (Length(Button[0].Text) = 0) then - AddButtonText(14, 20, 'Button 1'); - - AddButton(Theme.CheckPopup.Button2); - if (Length(Button[1].Text) = 0) then - AddButtonText(14, 20, 'Button 2'); - - AddText(Theme.CheckPopup.TextCheck); - - for I := 0 to High(Theme.CheckPopup.Static) do - AddStatic(Theme.CheckPopup.Static[I]); - - for I := 0 to High(Theme.CheckPopup.Text) do - AddText(Theme.CheckPopup.Text[I]); - - Interaction := 0; -end; - -function TScreenPopupCheck.Draw: boolean; -begin - Draw:=inherited Draw; -end; - -procedure TScreenPopupCheck.onShow; -begin - inherited; -end; - -procedure TScreenPopupCheck.ShowPopup(msg: String); -begin - Interaction := 0; //Reset Interaction - Visible := True; //Set Visible - - Text[0].Text := Language.Translate(msg); - - Button[0].Visible := True; - Button[1].Visible := True; - - Button[0].Text[0].Text := Language.Translate('SONG_MENU_YES'); - Button[1].Text[0].Text := Language.Translate('SONG_MENU_NO'); -end; - -// error popup - -function TScreenPopupError.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; -begin - Result := true; - If (PressedDown) Then - begin // Key Down - - case PressedKey of - SDLK_Q: - begin - Result := false; - end; - - SDLK_ESCAPE, - SDLK_BACKSPACE : - begin - Visible:=False; - Result := false; - end; - - SDLK_RETURN: - begin - Visible:=False; - Result := false; - end; - - SDLK_DOWN: InteractNext; - SDLK_UP: InteractPrev; - - SDLK_RIGHT: InteractNext; - SDLK_LEFT: InteractPrev; - end; - end; -end; - -constructor TScreenPopupError.Create; -var - I: integer; -begin - inherited Create; - - AddBackground(Theme.CheckPopup.Background.Tex); - - AddButton(Theme.ErrorPopup.Button1); - if (Length(Button[0].Text) = 0) then - AddButtonText(14, 20, 'Button 1'); - - AddText(Theme.ErrorPopup.TextError); - - for I := 0 to High(Theme.ErrorPopup.Static) do - AddStatic(Theme.ErrorPopup.Static[I]); - - for I := 0 to High(Theme.ErrorPopup.Text) do - AddText(Theme.ErrorPopup.Text[I]); - - Interaction := 0; -end; - -function TScreenPopupError.Draw: boolean; -begin - Draw:=inherited Draw; -end; - -procedure TScreenPopupError.onShow; -begin - inherited; - -end; - -procedure TScreenPopupError.onHide; -begin -end; - -procedure TScreenPopupError.ShowPopup(msg: String); -begin - Interaction := 0; //Reset Interaction - Visible := True; //Set Visible - -{ //dirty hack... Text[0] is invisible for some strange reason - for i:=1 to high(Text) do - if i-1 <= high(msg) then - begin - Text[i].Visible:=True; - Text[i].Text := msg[i-1]; - end - else - begin - Text[i].Visible:=False; - end;} - Text[0].Text:=msg; - - Button[0].Visible := True; - - Button[0].Text[0].Text := 'OK'; -end; - -end. -- cgit v1.2.3