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

1 files changed, 173 insertions, 31 deletions

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.