[System]
Gambas=3.11.4
OperatingSystem=Linux
Kernel=3.10.0-957.27.2.el7.x86_64
Architecture=x86_64
Distribution=redhat CentOS Linux release 7.6.1810 (Core)
Desktop=MATE
Theme=Windows
Language=es_ES.UTF-8
Memory=7803M

[Libraries]
Cairo=libcairo.so.2.11512.0
DBus=libdbus-1.so.3.14.14
GTK+2=libgtk-x11-2.0.so.0.2400.31
OpenGL=libGL.so.1.7.0

[Environment]
B_LKPATH=<home>/pgr:.
B_MACAD=00:19:5B:6F:59:FE
B_MACLO=15
B_MACNA=1
B_MACNU=8
B_MACPC=118
B_MACPW=DFHLLH
B_MACSN=2130
B_PATH=<home>/files:.
B_TERMTYPE=COHERENT
B_YR2000=50
DBUS_SESSION_BUS_ADDRESS=unix:abstract=/tmp/dbus-QzvpQP3gX2,guid=d6a35df8f49987b239af415b5e6f1c63
DESKTOP_SESSION=mate
DISPLAY=:0
EDITOR=vi
GB_GUI=gb.qt4
GDMSESSION=mate
GDM_LANG=es_ES.UTF-8
GIO_LAUNCHED_DESKTOP_FILE=<home>/Escritorio/GAMBAS.desktop
GIO_LAUNCHED_DESKTOP_FILE_PID=6965
GTK_IM_MODULE=gtk-im-context-simple
GTK_OVERLAY_SCROLLING=0
HISTCONTROL=ignoredups
HISTSIZE=1000
HOME=<home>
HOSTNAME=<hostname>
IMSETTINGS_INTEGRATE_DESKTOP=yes
IMSETTINGS_MODULE=none
LANG=es_ES.UTF-8
LESSOPEN=||/usr/bin/lesspipe.sh %s
LOGNAME=<user>
MAIL=/var/spool/mail/<user>
MATE_DESKTOP_SESSION_ID=this-is-deprecated
OLDPWD=<home>
PATH=<home>/bin:/usr/local/bin:/usr/local/sbin:/usr/bin:/usr/sbin:/bin:/sbin:<home>/pgr:<home>/bin
PWD=<home>/files
QT_GRAPHICSSYSTEM_CHECKED=1
QT_IM_MODULE=xim
SESSION_MANAGER=local/unix:@/tmp/.ICE-unix/4808,unix/unix:/tmp/.ICE-unix/4808
SHELL=/bin/bash
SHLVL=1
SSH_AGENT_PID=4971
SSH_AUTH_SOCK=/run/user/1001/keyring/ssh
TERM=dumb
TTY=
TZ=:/etc/localtime
USER=<user>
USERNAME=<user>
WINDOWPATH=1
XAUTHORITY=/run/gdm/auth-for-<user>-UMYZf4/database
XDG_CURRENT_DESKTOP=MATE
XDG_DATA_DIRS=<home>/.local/share/flatpak/exports/share/:/var/lib/flatpak/exports/share/:/usr/local/share/:/usr/share/
XDG_RUNTIME_DIR=/run/user/1001
XDG_SEAT=seat0
XDG_SESSION_DESKTOP=mate
XDG_SESSION_ID=1
XDG_SESSION_TYPE=x11
XDG_VTNR=1
XMODIFIERS=@im=none
_=/usr/bin/mate-session

Public Sub tmrMouse_Timer()
  
  Dim c As Menu
  Dim cc As Menu
  Dim rects As New Rect[]
  Dim rt As Rect
  Dim idxs As New Integer[]
  Dim idxs2 As New Integer[]
  Dim idx As Integer = 0
  Dim iRt As Integer
  Dim longStr As String
  
  If Not IsNull(selMenu)
      If Not selMenu.Closed Then
      
        For Each c In selMenu.Children
          rt = New Rect(scrnX, (scrnY + (25 * rects.Count)), rectW, rectH)
          rects.Add(rt)
          idxs.Add(rects.Count)
          idxs2.Add(0)
        Next
        
        For Each c In selMenu.Children
          If c.Children.Count > 0 Then
            
            If Not c.Closed Then
            
              'prima cercare la stringa piç lunga
              For iRt = 0 To (c.Children.count - 1)
                 If Len(c.Children[iRt].Caption) > Len(longStr) Then
                   longStr = c.Children[iRt].Caption
                 Endif
              Next
              
              rectW = Me.Font.TextWidth(longStr) + 50
            
              For iRt = 0 To (c.Children.count - 1)
              
                rt = New Rect((scrnX + rectW), (rects[idx].Y + (25 * iRt)), rectW, rectH)
              
                rects.Add(rt)
                idxs.Add(idx)
                idxs2.Add(iRt)
              
              Next
            Endif
          Endif
          
          idx = idx + 1   
        
        Next
        
        lblMessage.Text = Null
        
        For iRt = 0 To (rects.count - 1)
          
          If rects[iRt].Contains(Mouse.ScreenX, Mouse.ScreenY) Then 
              
              If iRt < selMenu.Children.Count Then
                lblMessage.text = selMenu.Children[iRt].Tag
              Else 
                lblMessage.text = selMenu.Children[idxs[iRt]].Children[idxs2[iRt]].Tag
              Endif
              
              Break
          Endif
          
        Next
    Endif
  Endif
End

Public Sub btnMenu_Enter() 
  
  Dim c As Menu
  Dim cc As Menu
  
  
  Dim longStr As String
  
  scrnX = Last.ScreenX + 10
  scrnY = (Last.ScreenY + Last.Height + 10)
  
  For Each c In Me.Menus
    If c.name = Last.Menu Then
       
       selMenu = c
       
       If c.Children.Count > 0 Then
          For Each cc In c.Children
            If Len(cc.Caption) > Len(longStr) Then
                longStr = cc.Caption
            Endif
          Next
       Endif      
    Endif
  Next
  
  rectH = Last.Font.TextHeight(longStr)
  rectW = Last.Font.TextWidth(longStr) + 30 

End