moved and renamed DrawVolume to UDraw.DrawVolumeBar

added volume control to score screen, top screen and jumpto menu
fixed a bug with VocalRemover when pausing a song

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2137 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 1 insertions, 20 deletions

diff --git a/Game/Code/Screens/UScreenPopup.pas b/Game/Code/Screens/UScreenPopup.pas
index 5a8bacc7..417f59bb 100644
--- a/Game/Code/Screens/UScreenPopup.pas
+++ b/Game/Code/Screens/UScreenPopup.pas
@@ -56,8 +56,6 @@ type
 

   TScreenPopupHelp = class(TMenu)

     private

-      CurMenu: Byte; //Num of the cur. Shown Menu

-

       TextsGFX:   array of TResLine;

       msg:        TTextResult;

       Rect:       TRect;

@@ -264,27 +262,15 @@ begin
 end;

 

 procedure TScreenPopupError.onHide;

-var i: integer;

 begin

 end;

 

 procedure TScreenPopupError.ShowPopup(msg: 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;}

   Text[0].Text:=msg;

 

   Button[0].Visible := True;

@@ -341,8 +327,6 @@ begin
 end;

 

 constructor TScreenPopupHelp.Create;

-var

-  I:    integer;

 begin

   inherited Create;

 

@@ -355,8 +339,6 @@ end;
 

 function TScreenPopupHelp.Draw: boolean;

 var

-  msg:  TTextResult;

-  I:    integer;

   abs:  real;

 begin

   inherited Draw;

@@ -392,7 +374,6 @@ begin
 end;

 

 procedure TScreenPopupHelp.onHide;

-var i: integer;

 begin

 end;