aboutsummaryrefslogtreecommitdiffstats
path: root/src/menu
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--src/menu/UMenuInteract.pas4
-rw-r--r--src/menu/UMenuStatic.pas20
2 files changed, 21 insertions, 3 deletions
diff --git a/src/menu/UMenuInteract.pas b/src/menu/UMenuInteract.pas
index 7cb92025..10259940 100644
--- a/src/menu/UMenuInteract.pas
+++ b/src/menu/UMenuInteract.pas
@@ -35,8 +35,8 @@ interface
type
TInteract = record // for moving thru menu
- Typ: integer; // 0 - button, 1 - select, 2 - Text, 3 - Select SLide, 5 - ButtonCollection Child
- Num: integer; // number of this item in proper list like buttons, selects
+ Typ: integer; // 0 - button, 1 - select, 2 - Text, 3 - Select SLide, 5 - ButtonCollection Child
+ Num: integer; // number of this item in proper list like buttons, selects
end;
{ to handle the area where the mouse is over a control }
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.