18 replies to this topic

[KWest]

I'm looking for a way to turn On/Off caps lock depending if a program is active or not. All my text is UPPERCASE in autocad, so I would like to have capslock turn on as soon as it's active, and when any other window is activated it would turn off.

; AutoCad Not Active Reset Capslock
#IfWinNotActive AutoCAD
	SetTitleMatchMode 2
	SetCapsLockState,Off ; Doesn't work
        Send {SetCapsLockState,Off} ; Doesn't work
        Send {CapsLock} ; Doesn't work
; Autocad Setup
#IfWinActive AutoCAD
	SetTitleMatchMode 2
	MButton::MButton	
	XButton1::^+c
	^LButton::^v

Thanks in advance

[MasterFocus]

SetTitleMatchMode, 2

SetTimer, CheckBecameActive, 100

Return



CheckBecameActive:

  IfNotWinActive, AutoCAD

    Return

  SetTimer, CheckBecameActive, Off

  SetTimer, CheckBecameInactive, 100

  SetCapsLockState, On

Return



CheckBecameInactive:

  IfWinActive, AutoCAD

    Return

  SetTimer, CheckBecameInactive, Off

  SetTimer, CheckBecameActive, 100

  SetCapsLockState, OFF

Return



#IfWinActive AutoCAD

   XButton1::^+c

   ^LButton:: Send, ^v

[Crash&Burn]

I believe you would need to set a Timer to check what the active window was every 100/200 ms or so.

The other option, if you always switch applications with ALT+TAB would be to trigger on that.

SetCapsLockState, Off

SetTimer, ToggleCapsLock, 200

ToggleCapsLock: 
{
	if( WinActive( "ahk_class AutoCAD" ) && !GetKeyState("CapsLock", "T") )
	{
		SetCapsLockState, On
		gCapsLock := 1
	}
	else
	if( !WinActive( "ahk_class AutoCAD" ) && gCapsLock )
	{
		SetCapsLockState, Off
		gCapsLock := 0
	}
return
}

This will automatically turn CapsLock off when you switch to another program, but will also allow you to manually turn CapsLock ON if so desired.

[Crash&Burn]

Mine works. It's been tested with something I know the ahk_class for (i.e. an Editor). I have no idea what AutoCAD's ahk_class is: that would need to be changed if it isn't "AutoCAD".

[MasterFocus]

@GuestToo!: Copy the code I provided, remove the #IfWinActive part
and change from AutoCAD to the name of the desired window.

[Eedis]

Shouldn't there be a space in this code?

SetCapsLockState,Off ; Doesn't work 
        Send {SetCapsLockState,Off} ; Doesn't work 
        Send {CapsLock} ; Doesn't work

...

SetCapsLockState, Off ; Doesn't work 
        Send {SetCapsLockState, Off} ; Doesn't work 
        Send {CapsLock} ; Doesn't work

[Crash&Burn]

The Send's don't work, but these do:
SetCapsLockState, On
SetCapsLockState, Off

I've used similiar for my own purposes:

CAPSLOCK::Send, *
+CAPSLOCK::Send, `%
!CAPSLOCK::SetCapslockState, % ( Toggle( capsLockState ) ? "On" : "Off" )

Capslock, sends: *
Shift + Capslock, sends %
and ALT + Capslock, does a normal Capslock.

Requires, Toggle.ahk

Toggle(byRef onOff, displayVar="")
{
	onOff := ( onOff == 0 ) ? 1 : 0
	if( displayVar <> "" )
		MsgBox, ,, %displayVar%: %onOff%, 1
return onOff
}

[Crash&Burn]

AH, Well yes it is just 3 lines of my main Hotkey script (1920 lines)... that's
forced to be persistent and single instance only :-)

Interesting that a capslock hotkey doesn't make a script be persistent though. According to the DOCS any hotkey should make a script be persistent.

I do put these lines into almost every single script I have:

#SingleInstance, Force 
	#Persistent
	#NoEnv
SetBatchLInes, -1

Unless a script just does a task and ends, then I wouldn't use "#Persistent"

[Crash&Burn]

Thanks a ton this works great. Is it possible to modify it to work in multiple programs?

for example something like

WinGet ProcessName,ProcessName, ahk_id %WinID%
If (ProcessName = "acad.exe" or "msaccess.exe")


I just started using autohotkey and am still reading tutorials.

Yes,
if( ProcessName == "acad.exe" or ProcessName == "msaccess.exe" )

The double equal's "==" isn't required, but I find it easier to distinguish between a comparison, and assignment: "=" or ":="
As opposed to determining context (every time) when you look at the code to figure out if "=" is an assignment or comparison.