diff options
| -rw-r--r-- | src/menu/UMenuInteract.pas | 4 | ||||
| -rw-r--r-- | src/menu/UMenuStatic.pas | 20 |
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. |