minor changes to PopUp code and to related parts of themes

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

1 files changed, 6 insertions, 8 deletions

diff --git a/Game/Code/Screens/UScreenPopup.pas b/Game/Code/Screens/UScreenPopup.pas
index a6e8ccca..019632ff 100644
--- a/Game/Code/Screens/UScreenPopup.pas
+++ b/Game/Code/Screens/UScreenPopup.pas
@@ -7,8 +7,6 @@ uses
 

 type

   TScreenPopupCheck = class(TMenu)

-    private

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

     public

       Visible: Boolean; //Whether the Menu should be Drawn

 

@@ -30,7 +28,7 @@ type
       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;

       procedure onShow; override;

       procedure onHide; override;

-      procedure ShowPopup(msg: array of String);

+      procedure ShowPopup(msg: String);

       function Draw: boolean; override;

   end;

 

@@ -220,6 +218,7 @@ begin
 

       SDLK_ESCAPE :

         begin

+          Visible:=False;

           Result := false;

         end;

 

@@ -280,17 +279,15 @@ 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);

+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

+{  //dirty hack... Text[0] is invisible for some strange reason

   for i:=1 to high(Text) do

     if i-1 <= high(msg) then

     begin

@@ -300,7 +297,8 @@ begin
     else

     begin

       Text[i].Visible:=False;

-    end;

+    end;}

+  Text[0].Text:=msg;

 

   Button[0].Visible := True;