aboutsummaryrefslogtreecommitdiffstats
path: root/Game
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-05-22 22:24:58 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-05-22 22:24:58 +0000
commit1d27c000f0d35bc34b180725b990c0bd56a6e658 (patch)
treede28c0450adebe92bb754d9b7c1fb4f630622af4 /Game
parentef0ad34c643da7b592b8f9e3b3013e7498994194 (diff)
downloadusdx-1d27c000f0d35bc34b180725b990c0bd56a6e658.tar.gz
usdx-1d27c000f0d35bc34b180725b990c0bd56a6e658.tar.xz
usdx-1d27c000f0d35bc34b180725b990c0bd56a6e658.zip
removal of TMenu.InRegion and InStaticRegion. no actual use, at best speculative for mouse
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1124 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Menu/UMenu.pas22
1 files changed, 0 insertions, 22 deletions
diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index 5fe7d317..9c467e7d 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -113,7 +113,6 @@ type
procedure AddSelectSlideOption(SelectNo: Cardinal; const AddText: string); overload;
procedure UpdateSelectSlideOptions(ThemeSelectSlide: TThemeSelectSlide; SelectNum: integer; Values: array of string; var Data: integer);
-
// function AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;
// procedure ClearWidgets(MinNumber : Int16);
procedure FadeTo(Screen: PMenu); overload;
@@ -128,8 +127,6 @@ type
// FIXME: ParseMouse is not implemented in any subclass and not even used anywhere in the code
// -> do this before activation of this method
//function ParseMouse(Typ: integer; X: integer; Y: integer): Boolean; virtual; abstract;
- function InRegion(X1, Y1, X2, Y2, X, Y: real): Boolean;
- function InStaticRegion(StaticNr: integer; X, Y: integer): Boolean;
procedure onShow; virtual;
procedure onShowFinish; virtual;
procedure onHide; virtual;
@@ -1418,25 +1415,6 @@ begin
SelectsS[SelectNum].SelectedOption := Data;
end;
-function TMenu.InRegion(X1, Y1, X2, Y2, X, Y: real): boolean;
-var
- scaled_x, scaled_y : real;
-begin
- { RenderW and RenderH are defined in Classes/UGraphic.pas }
- scaled_x := x*640.0/RenderW;
- scaled_y := x*480.0/RenderH;
- Result := (X1 <= scaled_x) and (scaled_x <= X2) and (Y1 <= scaled_y) and (scaled_y <= Y2);
-end;
-
-function TMenu.InStaticRegion(StaticNr: integer; X, Y: integer): boolean;
-begin
- Result := InRegion(Static[StaticNr].Texture.X,
- Static[StaticNr].Texture.Y,
- Static[StaticNr].Texture.X + Static[StaticNr].Texture.W - 1,
- Static[StaticNr].Texture.Y + Static[StaticNr].Texture.H - 1,
- X, Y);
-end;
-
procedure TMenu.InteractInc;
var
Num: integer;