diff options
Diffstat (limited to '')
-rw-r--r-- | src/menu/UMenuStatic.pas | 20 |
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. |