aboutsummaryrefslogtreecommitdiffstats
path: root/src/menu/UMenuStatic.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/menu/UMenuStatic.pas')
-rw-r--r--src/menu/UMenuStatic.pas20
1 files changed, 19 insertions, 1 deletions
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.