HEY John that is awesome work! May I PLEASE ask two quick questions???:
1) How do you simply adjust transparency? I wanted to make it 0, so I changed all the values, but it is stuck at 50% it seem? How can I make it anything?
Here is my attempt to combine the two scripts together you made, with custom menu + transparency (it seemed logical to combine them), but it seems to knock out the transparency whereever I place the GoSub. I don't know why, but perhaps I am missing something obvious
Code:
#Persistent
#SingleInstance, force
Gosub, ReadPreprocs
Gosub, ReadVars
Gosub, ReadIni
Gosub, ReadLang
Gosub, CreateSettings
Gosub, CorrectSettings
Gosub, CreateTray
Gosub, TransparencyConvert
Gosub, CreateMenu
SetTimer, MakeTransparent, 1
Return
MakeTransparent:
If (ActiveMenus)
WinSet, Trans, %TransparencyValueMenus%, ahk_class #32768 ; Menus, Right-click-menus, ...
If (ActiveMsgBoxes)
WinSet, Trans, %TransparencyValueMsgBoxes%, ahk_class #32770 ; MsgBoxes, Warnings, ...
If (ActiveTrayTips)
WinSet, Trans, %TransparencyValueTrayTips%, ahk_class tooltips_class32 ; TrayTips
If (ActiveStartMenu)
{
WinSet, Trans, %TransparencyValueStartMenu%, ahk_class DV2ControlHost ; Start menu
WinSet, Trans, %TransparencyValueStartMenu%, ahk_class BaseBar ; All prgrams
}
If (ActiveTaskbar)
WinSet, Trans, %TransparencyValueTaskbar%, ahk_class Shell_TrayWnd ; Taskbar
Return
ReadPreprocs:
#Persistent
#SingleInstance, force
DetectHiddenWindows, On
Return
ReadVars:
AppName=InvisMenu
Version=1.0.0.2
Transparency=0
Return
ReadIni:
IniRead, TransparencyMenus , %AppName%.ini, Transparency , Menus , 50
IniRead, TransparencyMsgBoxes , %AppName%.ini, Transparency , MsgBoxes , 50
IniRead, TransparencyTrayTips , %AppName%.ini, Transparency , TrayTips , 50
IniRead, TransparencyStartMenu , %AppName%.ini, Transparency , StartMenu , 50
IniRead, TransparencyTaskbar , %AppName%.ini, Transparency , Taskbar , 50
IniRead, ActiveMenus , %AppName%.ini, Active , Menus , 1
IniRead, ActiveMsgBoxes , %AppName%.ini, Active , MsgBoxes , 0
IniRead, ActiveTrayTips , %AppName%.ini, Active , TrayTips , 0
IniRead, ActiveStartMenu , %AppName%.ini, Active , StartMenu , 0
IniRead, ActiveTaskbar , %AppName%.ini, Active , Taskbar , 0
Return
ReadLang:
If (Language = "EN")
{
LangShowGui=Show
LangSettings=Settings
LangExit=Exit
LangMenus=Menus
LangMsgBoxes=Message, Warnings
LangTrayTips=TrayTips
LangStartMenu=Start menu
LangTaskbar=Task bar
}
Else If (Language = "DE")
{
LangShowGui=?fnen
LangSettings=Einstellungen
LangExit=Beenden
LangMenus=Men?LangMsgBoxes=Nachrichten, Warnungen
LangTrayTips=TrayTips
LangStartMenu=Startmen?angTaskbar=Taskleiste
}
Else
{
IniRead, LangShowGui , %AppName%.lng, %Language%, Show , Show
IniRead, LangSettings , %AppName%.lng, %Language%, Settings , Settings
IniRead, LangExit , %AppName%.lng, %Language%, Exit , Exit
IniRead, LangMenus , %AppName%.lng, %Language%, Menus , Menus
IniRead, LangMsgBoxes , %AppName%.lng, %Language%, MsgBoxes , Message,
Warnings
IniRead, LangTrayTips , %AppName%.lng, %Language%, TrayTips , TrayTips
IniRead, LangStartMenu , %AppName%.lng, %Language%, StartMenu , Start menu
IniRead, LangTaskbar , %AppName%.lng, %Language%, Taskbar , Task bar
}
Return
CreateSettings:
Gui, Add, Checkbox, w150 h20 gActiveChange vActiveMenus, %LangMenus%
Gui, Add, Checkbox, w150 h20 gActiveChange vActiveMsgBoxes, %LangMsgBoxes%
Gui, Add, Checkbox, w150 h20 gActiveChange vActiveTrayTips, %LangTrayTips%
Gui, Add, Checkbox, w150 h20 gActiveChange vActiveStartMenu, %LangStartMenu%
Gui, Add, Checkbox, w150 h20 gActiveChange vActiveTaskbar, %LangTaskbar%
Gui, Add, Button, gOK, OK!
Gui, Add, Edit, ym w50 r1 Number, %TransparencyMenus%
Gui, Add, Edit, w50 r1 Number, %TransparencyMsgBoxes%
Gui, Add, Edit, w50 r1 Number, %TransparencyTrayTips%
Gui, Add, Edit, w50 r1 Number, %TransparencyStartMenu%
Gui, Add, Edit, w50 r1 Number, %TransparencyTaskbar%
Return
CreateTray:
Menu, Tray, NoStandard
Menu, Tray, Add, %LangSettings%, ShowSettings
Menu, Tray, Add,
Menu, Tray, Add, %LangExit%, Exit
Menu, Tray, Tip, %AppName%
Menu, Tray, Default, %LangSettings%
Return
ShowSettings:
Gui, Show, Center, %LangSettings%
Return
OK:
Gui, Submit, Hide
TransparencyConvert:
If (TransparencyMenus > 100||TransparencyMenus < 0)
{
GuiControl,, TransparencyMenus, 50
Gosub, ShowSettings
}
Else
{
TransparencyValueMenus := Round(TransparencyMenus*2.25)
IniWrite, %TransparencyMenus% , %AppName%.ini, Main ,
TransparencyMenus
}
If (TransparencyMsgBoxes > 100||TransparencyMsgBoxes < 0)
{
GuiControl,, TransparencyMsgBoxes, 50
Gosub, ShowSettings
}
Else
{
TransparencyValueMsgBoxes := Round(TransparencyMsgBoxes*2.25)
IniWrite, %TransparencyMsgBoxes% , %AppName%.ini, Main ,
TransparencyMsgBoxes
}
If (TransparencyTrayTips > 100||TransparencyTrayTips < 0)
{
GuiControl,, TransparencyTrayTips, 50
Gosub, ShowSettings
}
Else
{
TransparencyValueTrayTips := Round(TransparencyTrayTips*2.25)
IniWrite, %TransparencyTrayTips% , %AppName%.ini, Main ,
TransparencyTrayTips
}
If (TransparencyStartMenu > 100||TransparencyStartMenu < 0)
{
GuiControl,, TransparencyStartMenu, 50
Gosub, ShowSettings
}
Else
{
TransparencyValueStartMenu := Round(TransparencyStartMenu*2.25)
IniWrite, %TransparencyStartMenu% , %AppName%.ini, Main ,
TransparencyStartMenu
}
If (TransparencyTaskbar > 100||TransparencyTaskbar < 0)
{
GuiControl,, TransparencyTaskbar, 50
Gosub, ShowSettings
}
Else
{
TransparencyValueTaskbar := Round(TransparencyTaskbar*2.25)
IniWrite, %TransparencyTaskbar% , %AppName%.ini, Main ,
TransparencyTaskbar
}
Return
ActiveChange:
If Not (ActiveMenus)
{
WinSet, Trans, 0, ahk_class #32768
IniWrite, %ActiveMenus%, %AppName%.ini, Active, Menus
}
If Not (ActiveMsgBoxes)
{
WinSet, Trans, 0, ahk_class #32770
IniWrite, %ActiveMsgBoxes%, %AppName%.ini, Active, MsgBoxes
}
If Not (ActiveTrayTips)
{
WinSet, Trans, 0, ahk_class tooltips_class32
IniWrite, %ActiveTrayTips%, %AppName%.ini, Active, TrayTips
}
If Not (ActiveStartMenu)
{
WinSet, Trans, 0, ahk_class DV2ControlHost
WinSet, Trans, 0, ahk_class BaseBar
IniWrite, %ActiveStartMenu%, %AppName%.ini, Active, StartMenu
}
If Not (ActiveTaskbar)
{
WinSet, Trans, 0, ahk_class Shell_TrayWnd
IniWrite, %ActiveTaskbar%, %AppName%.ini, Active, Taskbar
}
Return
CorrectSettings:
If (ActiveMenus)
GuiControl, , ActiveMenus, 1
Else
GuiControl, , ActiveMenus, 0
If (ActiveMsgBoxes)
GuiControl, , ActiveMsgBoxes, 1
Else
GuiControl, , ActiveMsgBoxes, 0
If (ActiveTrayTips)
GuiControl, , ActiveTrayTips, 1
Else
GuiControl, , ActiveTrayTips, 0
If (ActiveStartMenu)
GuiControl, , ActiveStartMenu, 1
Else
GuiControl, , ActiveStartMenu, 0
If (ActiveTaskbar)
GuiControl, , ActiveTaskbar, 1
Else
GuiControl, , ActiveTaskbar, 0
Return
CreateMenu:
Menu, RunMenu, Add, Editor, RunEditor
Menu, RunMenu, Add, Explorer, RunExplorer
Menu, Menu1, Add, Run, :RunMenu
Menu, Menu1, Add, Switch between tasks, KeyAltTab
Menu, Menu1, Add, ,
Menu, Menu1, Add, Deactivate, Disable
Menu, Menu1, Add, ,
Menu, Menu1, Add, Exit, Exit
Return
Disable:
Hotkey, RButton, Off
Return
Enable:
Hotkey, RButton, On
Return
Exit:
ExitApp
Return
Hotkey, RButton, On
Return
RButton::
Menu, Menu1, Show
Return
RunEditor:
Run, Notepad.exe
Return
RunExplorer:
Run, Explorer.exe
Return
KeyAltTab:
Send, !{Tab}
Return
Login
Register
FAQ
Search
CALLING ALL GURUS! 