AutoHotkey Community

Gosub, ReadPreprocs
Gosub, ReadVars
Gosub, ReadIni
Gosub, ReadLang
Gosub, CreateSettings
Gosub, CorrectSettings
Gosub, CreateTray
Gosub, TransparencyConvert
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=TransMenu
Version=1.0.0.2
Transparency=50
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"||A_Language = 0407||A_Language = 0807||A_Language = 0c07||A_Language = 1007||A_Language = 1407)
  {
  LangShowGui=Öffnen
  LangSettings=Einstellungen
  LangExit=Beenden
  LangMenus=Menüs
  LangMsgBoxes=Nachrichten, Warnungen
  LangTrayTips=TrayTips
  LangStartMenu=Startmenü
  LangTaskbar=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 vActiveMenus, %LangMenus%
Gui, Add, Checkbox, w150 h20 vActiveMsgBoxes, %LangMsgBoxes%
Gui, Add, Checkbox, w150 h20 vActiveTrayTips, %LangTrayTips%
Gui, Add, Checkbox, w150 h20 vActiveStartMenu, %LangStartMenu%
Gui, Add, Checkbox, w150 h20 vActiveTaskbar, %LangTaskbar%
Gui, Add, Button, gOK, OK!
Gui, Add, Edit, ym w50 r1 Number vTransparencyMenus, %TransparencyMenus%
Gui, Add, Edit, w50 r1 Number vTransparencyMsgBoxes, %TransparencyMsgBoxes%
Gui, Add, Edit, w50 r1 Number vTransparencyTrayTips, %TransparencyTrayTips%
Gui, Add, Edit, w50 r1 Number vTransparencyStartMenu, %TransparencyStartMenu%
Gui, Add, Edit, w50 r1 Number vTransparencyTaskbar, %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
  }
If Not (ActiveMenus)
  {
  WinSet, Trans, 255, ahk_class #32768
  IniWrite, %ActiveMenus%, %AppName%.ini, Active, Menus
  }
If Not (ActiveMsgBoxes)
  {
  WinSet, Trans, 255, ahk_class #32770
  IniWrite, %ActiveMsgBoxes%, %AppName%.ini, Active, MsgBoxes
  }
If Not (ActiveTrayTips)
  {
  WinSet, Trans, 255, ahk_class tooltips_class32
  IniWrite, %ActiveTrayTips%, %AppName%.ini, Active, TrayTips
  }
If Not (ActiveStartMenu)
  {
  WinSet, Trans, 255, ahk_class DV2ControlHost
  WinSet, Trans, 255, ahk_class BaseBar
  IniWrite, %ActiveStartMenu%, %AppName%.ini, Active, StartMenu
  }
If Not (ActiveTaskbar)
  {
  WinSet, Trans, 255, 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

Exit:
ExitApp
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