Removed outdated 1.1 branch contents

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.1@1331 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 0 insertions, 247 deletions

diff --git a/Game/Code/Screens/UScreenPopup.pas b/Game/Code/Screens/UScreenPopup.pas
deleted file mode 100644
index 402857a9..00000000
--- a/Game/Code/Screens/UScreenPopup.pas
+++ /dev/null
@@ -1,247 +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; ScanCode: byte; 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; ScanCode: byte; 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; ScanCode: byte; 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

-          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.ActualScreen = @ScreenSing) then

-                   ScreenSing.Finish

-                 else if (Display.ActualScreen = @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

-

-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; ScanCode: byte; 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

-

-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.