AutoHotkey Community

*...*
;===General===
[b]IniRead, distance, %A_ScriptDir%\RM settings.ini, General, DistanceFromBorder[/b]

*...*

[b]if(mx2<distance)
   mx2 = %distance%
else if(A_ScreenWidth-mx2<distance)
   mx2 := A_ScreenWidth - distance
if(my2<distance)
   my2 = %distance%
else if(A_ScreenHeight-my2<distance)
   my2 := A_ScreenHeight - distance[/b]
;===Prepare background postiton===

*...*

;===Subroutines=========================================================================
CalcPos:    ; extracted from TomXIII's work (Thank you)
deg := deg ? deg+(360/CurRingTotalButtons): (360/CurRingTotalButtons)+90
rad := deg*PiDiv180
xOffset := WheelRadius*(-1*Cos(rad))-picRadius, yOffset := WheelRadius*(-1*Sin(rad))-picRadius
if IsSubmenuShown = 1
itemX := smx1 + xOffset, itemY := smy1 + yOffset
Else
itemX := [b]mx2[/b] + xOffset, itemY := [b]my2[/b] + yOffset
Return

DistanceFromBorder = 80

*...*
;===General===
[b]IniRead, distance, %A_ScriptDir%\RM settings.ini, General, DistanceFromBorder[/b]

*...*

[b]if(smx1<distance)
   smx1 = %distance%
else if(A_ScreenWidth-smx1<distance)
   smx1 := A_ScreenWidth - distance
if(my1<distance)
   smy1 = %distance%
else if(A_ScreenHeight-smy1<distance)
   smy1 := A_ScreenHeight - distance
MouseMove, %smx1%, %smy1%[/b]
;===Prepare submenu background postiton===

;Hotkey add by Alaskatu, it works with Mousegesture (Edit MyMouseGestures.ahk, add functions for MG_RWheelUp, MG_RWheelDown, MG_RMButton, MG_LWheelUp, MG_LWheelDown, MG_LMButton, MG_UWheelUp, MG_UWheelDown)

mbutton::
wheelup::
wheeldown::
      if (GetKeyState(RMShowHotkey, "p"))
         {
            Wheel:=a_thishotkey
            ;Gesture .= Gesture . Wheel
            ;LastGesture := Gesture . Wheel            
            Gesture .= Wheel               
            LastGesture := Wheel   
            MG_%Gesture%()
            ;msgbox %Gesture%
            EmptyGestureVars()
            
         }
      else
            sendinput {%a_thishotkey%}
return

;===Recognize gesture===
Loop
{
   if (A_ThisHotKey <> RMShowHotkey) ; Houndx changes here to remove gesture support
      Return ; Houndx changes here to remove gesture support
    
   break
   
   Sleep, 20    ; prevents high CPU load
}

SetTimer, ItemTooltip, 20
if SoundOnHover
SetTimer, SoundOnHover, 20

SetTimer, TouchTest, 15 ; Houndx changes here to enable touch support

KeyWait, LButton, d ; Houndx changes here to close/launch after the touchscreen is touched and then released
KeyWait, LButton, u ; Houndx changes here to close/launch after the touchscreen is touched and then released

LastRMItemNum =

;===When user releases RMShowHotkey===

;===Submenu show hotkey==========================================================
TouchTest:              ; toggle open/close submenu ; Houndx changes here to get RButton working properly with the touchscreen
if IsSubmenuShown = 1       ; if submenu is shown, close submenu
{
   MouseGetPos, Xend, Yend
   IsInCircle := IsInCircle(smx1, smy1, Xend, Yend, (ThirdRingRadius+85)/2) ; Houndx change to allow touches to work properly with submenus
   if IsInCircle
   {
;      if SoundOnSubHide  ; Houndx change to allow touches to work properly with submenus
;     PostMessage("RMSoundOnSubHide",1)  ; Houndx change to allow touches to work properly with submenus
;      Gosub, CloseSubmenu  ; Houndx change to allow touches to work properly with submenus
   Return
   }

AboutRadialMenu =
(
Radial menu v3.18 Touch_Mod
Author:%A_Tab%Boris Mudrinic (Learning one on AHK forum)
Contact:%A_Tab%boris-mudrinic@net.hr
Thanks:%A_Tab%Chris Mallett, Tic (Tariq Porter), TomXIII, Patchen, SpeedY, Preston, and others...
Modified by Houndx. Permission to upload this modification granted from author.

Licence:
Expression "Radial menu" here means Radial menu code and program itself, and any part of whole Radial menu package except files not created
by me; Gdip.ahk and some files mentioned in Image sources.txt and Sound sources.txt. As the author of Radial menu, I'm reserving all my rights,
but I'm temporary allowing that Radial menu can use any person that agrees on all terms in this licence.

Radial menu is free for non-commercial, personal use under some conditions.
You are not allowed to (re)distribute, sell or rent Radial menu, or use it on any commercial way, or have any profit from it in general, without my
written permission! You are also not allowed to have any profit from giving information where Radial menu can be obtained. I'm not responsible for
any damages arising from the use of Radial menu. Everyone is encouraged to improve Radial menu, but no matter how much anyone improve it,
my share in authorship will always be minimum 81`%. Everyone can create another program based on Radial menu (derived program) under
following conditions: 1) my share in authorship in derived program will always be minimum 51`%, 2) author of derived program has to mention my
name and contact in it and mark me as the major author, 3) he has to inform me about his program, 4) he can not (re)distribute, sell or rent it
without my written permission! This licence is only temporary, I can change it whenever I want, on any way I want. Licence change will be published
on AutoHotkey community forum. On issues not mentioned in this licence Croatian laws apply. In the case of litigation, Croatian laws and language
apply and Municipal court in Zagreb has jurisdiction. If you don't agree on all terms in this licence, you must exit Radial menu and delete it from
computer and any other device that can store electronic data immediately! (You are even not allowed just to take a look at Radial menu, especially
the codes). If you are unsure what you are allowed or not allowed to do, contact me. 
)

MsgBox,324, Welcome to Radial menu, %AboutRadialMenu%`n`nDo you agree on all terms mentioned above?`n(If you agree, this message will never show again.)