From 769e3fc3de23b38adeece09b6ab7edb3f0d096b0 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 3 Jan 2016 20:10:11 +0000
Subject: add menus

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3181 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/menu/UMenuStatic.pas | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

(limited to 'src/menu/UMenuStatic.pas')

diff --git a/src/menu/UMenuStatic.pas b/src/menu/UMenuStatic.pas
index 72f4eb36..e8324c84 100644
--- a/src/menu/UMenuStatic.pas
+++ b/src/menu/UMenuStatic.pas
@@ -35,6 +35,7 @@ interface
 
 uses
   UTexture,
+  UMenuInteract,
   gl;
 
 type
@@ -43,17 +44,23 @@ type
       Texture:           TTexture; // Button Screen position and size
       Visible:           boolean;
 
+      // for list item
+      TextureSelect:     TTexture;
+      TextureDeselect:   TTexture; // Button Screen position and size
+
       //Reflection Mod
       Reflection:        boolean;
       Reflectionspacing: real;
 
       procedure Draw;
       constructor Create(Textura: TTexture); overload;
+      function GetMouseOverArea: TMouseOverRect;
   end;
 
 implementation
 uses
-  UDrawTexture;
+  UDrawTexture,
+  UDisplay;
 
 procedure TStatic.Draw;
 begin
@@ -114,4 +121,15 @@ begin
   Texture := Textura;
 end;
 
+function TStatic.GetMouseOverArea: TMouseOverRect;
+begin
+  if not(Display.Cursor_HiddenByScreen) then
+  begin
+    Result.X := Texture.X;
+    Result.Y := Texture.Y;
+    Result.W := Texture.W;
+    Result.H := Texture.H;
+  end;
+end;
+
 end.
-- 
cgit v1.2.3