i wonder if there are differences how to do that in w10 vs win7? i would like it to work in bolt
below my code it is about the gMove_Window label (images not included)
Edit i have come to the conclusion it works just fine but the user did not understand it.......
Code: Select all
#SingleInstance, Force
SetDefaultMouseSpeed, 0
SetWorkingDir %A_ScriptDir%
AppsKey::
mouseGetPos,mx,my
mx-=160
my-=45
keylasttouchedgui++
if keylasttouchedgui= 1
{
Gui,LT: +AlwaysOnTop
Gui,LT: Color, 2D3A43
Gui,LT: -Caption
Gui,LT: Margin, 0, 0
Gui,LT: Add,Picture, xs+0 ys+0 w253 h27 ,Images/black.png
Gui,LT: Add,Picture, xs+1 ys+1 w75 h25 vButton_LT_Link gLT_Link ,Images/link_off.png
Gui,LT: Add,Picture, xs+79 ys+1 w75 h25 vButton_LT_Automate gLT_Automate ,Images/auto_off.png
Gui,LT: Add,Picture, xs+157 ys+1 w30 h25 vButton_LT_Copy gLT_Copy ,Images/Copy_off.png
Gui,LT: Add,Picture, xs+190 ys+1 w30 h25 vButton_LT_Paste gLT_Paste ,Images/Paste_off.png
Gui,LT: Add,Picture, xs+223 ys+1 w30 h25 vButton_Exit gExit ,Images/Exit_off.png
Gui,LT: Add,Text, xs+253 ys+0 w30 h25 BackgroundTrans gMove_Window,
Gui,LT: Show ,x%mx% y%my% , Last Touched GUI
Gui,LT: +LastFound
WinSet, Transcolor, 2D3A43
Gui,LT: Submit, NoHide
return
}
else if keylasttouchedgui= 2
{
Gui,LT: Destroy
keylasttouchedgui = 0
return
}
return
^Esc::
ExitApp
return
Exit:
GuiControl,LT:,Button_Exit ,Images/Exit_on.png
While(GetKeyState("LButton"))
Sleep,10
GuiControl,LT:,Button_Exit ,Images/Exit_off.png
Gui,LT: Destroy
keylasttouchedgui = 0
return
LT_Paste:
GuiControl,LT:,Button_LT_Paste ,Images/Paste_on.png
While(GetKeyState("LButton"))
Sleep,10
GuiControl,LT:,Button_LT_Paste ,Images/Paste_off.png
IfWinExist, ahk_class TFruityLoopsMainForm
WinActivate
ControlClick,TNewMenu1
Send, {Right 2}lp
return
LT_Copy:
GuiControl,LT:,Button_LT_Copy,Images/Copy_on.png
While(GetKeyState("LButton"))
Sleep,10
GuiControl,LT:,Button_LT_Copy,Images/Copy_off.png
IfWinExist, ahk_class TFruityLoopsMainForm
WinActivate
ControlClick,TNewMenu1
Send, {Right 2}lc
return
LT_Automate:
GuiControl,LT:,Button_LT_Automate ,Images/auto_on.png
While(GetKeyState("LButton"))
Sleep,10
GuiControl,LT:,Button_LT_Automate ,Images/auto_off.png
IfWinExist, ahk_class TFruityLoopsMainForm
WinActivate
ControlClick,TNewMenu1
Send, {Right 2}la
return
LT_Link:
GuiControl,LT:,Button_LT_Link ,Images/link_on.png
While(GetKeyState("LButton"))
Sleep,10
GuiControl,LT:,Button_LT_Link ,Images/link_off.png
IfWinExist, ahk_class TFruityLoopsMainForm
WinActivate
ControlClick,TNewMenu1
Send, {Right 2}ll
return
Move_Window:
PostMessage,0xA1,2
return