From 5bf0ebf274fef28811ab952338bd261bd1dd0fa8 Mon Sep 17 00:00:00 2001
From: b1indy <b1indy@b956fd51-792f-4845-bead-9b4dfca2ff2c>
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/Menu/UMenu.pas | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

(limited to 'Game/Code/Menu/UMenu.pas')

diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index 4ad8270a..c9d3c726 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -12,7 +12,7 @@ type
   TMenu = class
     protected
       ButtonPos:      Integer;
-      
+
       Interactions:   array of TInteract;
       SelInteraction: integer;
       Button:         array of TButton;
@@ -29,7 +29,7 @@ type
       mY:         integer; // mouse Y
 
       Fade:       integer; // fade type
-      ShowFinish: boolean; // true if there is no fade 
+      ShowFinish: boolean; // true if there is no fade
 
 
       destructor Destroy; override;
@@ -47,7 +47,7 @@ type
 
       procedure PrepareButtonCollections(const Collections: AThemeButtonCollection);
       procedure AddButtonCollection(const ThemeCollection: TThemeButtonCollection; Const Num: Byte);
-      
+
       // background
       procedure AddBackground(Name: string);
 
@@ -68,7 +68,7 @@ type
       function AddText(X, Y, W: real; Style: integer; Size, ColR, ColG, ColB: real; Align: integer; Tekst: string): integer; overload;
 
       // button
-      Procedure SetButtonLength(Length: Cardinal); //Function that Set Length of Button Array in one Step instead of register new Memory for every Button 
+      Procedure SetButtonLength(Length: Cardinal); //Function that Set Length of Button Array in one Step instead of register new Memory for every Button
       function AddButton(ThemeButton: TThemeButton): integer; overload;
       function AddButton(X, Y, W, H: real; Name: String): integer; overload;
       function AddButton(X, Y, W, H: real; Name, Format, Typ: String; Reflection: Boolean): integer; overload;
@@ -107,6 +107,8 @@ type
 //      function AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;
 //      procedure ClearWidgets(MinNumber : Int16);
       procedure FadeTo(Screen: PMenu);
+      //popup hack
+      procedure CheckFadeTo(Screen: PMenu; msg: String);
 
       function DrawBG: boolean; virtual;
       function DrawFG: boolean; virtual;
@@ -873,6 +875,15 @@ begin
   Display.NextScreen := Screen;
 end;
 
+//popup hack
+procedure TMenu.CheckFadeTo(Screen: PMenu; msg: String);
+begin
+  Display.Fade := 0;
+  Display.NextScreenWithCheck := Screen;
+  Display.CheckOK:=False;
+  ScreenPopupCheck.ShowPopup(msg);
+end;
+
 procedure TMenu.AddButtonText(AddX, AddY: real; AddText: string);
 begin
   AddButtonText(AddX, AddY, 1, 1, 1, AddText);
-- 
cgit v1.2.3