From 5bf0ebf274fef28811ab952338bd261bd1dd0fa8 Mon Sep 17 00:00:00 2001 From: b1indy Date: Thu, 3 May 2007 00:19:52 +0000 Subject: added "popups" to ask for confirmation when leaving party mode or game or to display messages (like minor errors) still ugly, needs some theme work git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@157 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenPopup.pas | 204 +++++++++++++++++++++++++++++++------ 1 file changed, 173 insertions(+), 31 deletions(-) (limited to 'Game/Code/Screens/UScreenPopup.pas') diff --git a/Game/Code/Screens/UScreenPopup.pas b/Game/Code/Screens/UScreenPopup.pas index 41279197..25f647a2 100644 --- a/Game/Code/Screens/UScreenPopup.pas +++ b/Game/Code/Screens/UScreenPopup.pas @@ -3,10 +3,10 @@ unit UScreenPopup; interface uses - UMenu, SDL, UMusic, UPliki, SysUtils, UThemes, dialogs, Messages; + UMenu, SDL, UMusic, UPliki, SysUtils, UThemes; type - TScreenPopup = class(TMenu) + TScreenPopupCheck = class(TMenu) private CurMenu: Byte; //Num of the cur. Shown Menu public @@ -15,24 +15,35 @@ type constructor Create; override; function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override; procedure onShow; override; - procedure ShowPopup(sPopup: Byte); + procedure ShowPopup(msg: String); function Draw: boolean; override; end; -const - PU_Error = 1; +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; ScanCode: byte; PressedDown: Boolean): Boolean; override; + procedure onShow; override; + procedure onHide; override; + procedure ShowPopup(msg: array of String); + function Draw: boolean; override; + end; var - ISelections: Array of String; +// ISelections: Array of String; SelectValue: Integer; implementation -uses UGraphic, UMain, UIni, UTexture, ULanguage, UParty, UPlaylist; +uses UGraphic, UMain, UIni, UTexture, ULanguage, UParty, UPlaylist, UDisplay; -function TScreenPopup.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; +function TScreenPopupCheck.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; function IsVisible: Boolean; begin Result := True; @@ -81,6 +92,15 @@ begin SDLK_RETURN: begin + case Interaction of + 0: begin + Display.CheckOK:=True; + end; + 1: begin + Display.CheckOK:=False; + Display.NextScreenWithCheck:=NIL; + end; + end; Visible:=False; Result := false; end; @@ -100,13 +120,11 @@ begin end; end; -constructor TScreenPopup.Create; +constructor TScreenPopupCheck.Create; var I: integer; begin inherited Create; - SetLength(ISelections, 1); - ISelections[0] := 'Dummy'; AddBackground(Theme.CheckPopup.Background.Tex); @@ -129,37 +147,161 @@ begin Interaction := 0; end; -function TScreenPopup.Draw: boolean; +function TScreenPopupCheck.Draw: boolean; begin inherited Draw; end; -procedure TScreenPopup.onShow; +procedure TScreenPopupCheck.onShow; begin end; -procedure TScreenPopup.ShowPopup(sPopup: Byte); +procedure TScreenPopupCheck.ShowPopup(msg: String); begin Interaction := 0; //Reset Interaction Visible := True; //Set Visible - Case sPopup of - PU_Error: - begin - Text[0].Text := 'Wirklich beenden?';{Language.Translate('SONG_MENU_NAME_MAIN');} - - Button[0].Visible := True; - Button[1].Visible := True; -// Button[2].Visible := True; -// Button[3].Visible := True; -// SelectsS[0].Visible := False; - - Button[0].Text[0].Text := 'JA'; - Button[1].Text[0].Text := 'NEIN'; -// Button[2].Text[0].Text := Language.Translate('SONG_MENU_PLAYLIST_ADD'); -// Button[3].Text[0].Text := Language.Translate('SONG_MENU_EDIT'); - end; + + 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; ScanCode: byte; PressedDown: Boolean): Boolean; + function IsVisible: Boolean; + begin + Result := True; + if (Interactions[Interaction].Typ = 0) then + begin + Result := Button[Interactions[Interaction].Num].Visible; + end + else if (Interactions[Interaction].Typ = 1) then + begin + //Result := Selects[Interactions[Interaction].Num].Visible; + end + else if (Interactions[Interaction].Typ = 3) then + begin + Result := SelectsS[Interactions[Interaction].Num].Visible; + end; + end; + + Procedure SelectNext; + begin + repeat + InteractNext; + until IsVisible; + end; + + Procedure SelectPrev; + begin + repeat + InteractPrev; + until IsVisible; end; +begin + Result := true; + If (PressedDown) Then + begin // Key Down + + case PressedKey of + SDLK_Q: + begin + Result := false; + end; + + SDLK_ESCAPE : + begin + Result := false; + end; + + SDLK_RETURN: + begin + Visible:=False; + Result := false; + end; + + SDLK_DOWN: SelectNext; + SDLK_UP: SelectPrev; + + SDLK_RIGHT: SelectNext; + SDLK_LEFT: SelectPrev; + end; + end + else // Key Up + case PressedKey of + SDLK_RETURN : + begin + 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 + inherited Draw; +end; + +procedure TScreenPopupError.onShow; +begin + +end; + +procedure TScreenPopupError.onHide; +var i: integer; +begin + for i:=0 to high(Text) do + Text[i].Text:=''; +end; + +procedure TScreenPopupError.ShowPopup(msg: array of String); +var i: integer; +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; + + Button[0].Visible := True; + + Button[0].Text[0].Text := 'OK'; end; -end. \ No newline at end of file +end. -- cgit v1.2.3