ALPHABET-UP-LOW.ahk

; <COMPILER: v1.1.34.04>
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
;#NoTrayIcon
SetWorkingDir %A_ScriptDir%
FileInstall , F:\APPS\ALPHABET-UP-LOW\ALPHABET-LEETER.ahk,ALPHABET-LEETER.ahk
FileSetAttrib +H, %A_ScriptDir%\ALPHABET-LEETER.ahk, 2
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
;CTL+L - convert to lowercase
;CTL+U - convert to uppercase
;CTL+K - invert the case (e.g. "The Big Dog" becomes "tHE bIG dOG")
;SHIFT+CTL+K - convert to capitalized (e.g. "the big dog" becomes "The Big Dog")
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
^u::             ; Convert text to upper
 StringUpper Clipboard, Clipboard
 Send %Clipboard%
RETURN

^l::                ; Convert text to lower
 StringLower Clipboard, Clipboard
 Send %Clipboard%
RETURN

+^k::               ; Convert text to capitalized
 StringUpper Clipboard, Clipboard, T
 Send %Clipboard%
RETURN

^k::                                                                 ; Convert text to inverted
 Lab_Invert_Char_Out:= ""
 Loop % Strlen(Clipboard) {
    Lab_Invert_Char:= Substr(Clipboard, A_Index, 1)
    if Lab_Invert_Char is upper
       Lab_Invert_Char_Out:= Lab_Invert_Char_Out Chr(Asc(Lab_Invert_Char) + 32)
    else if Lab_Invert_Char is lower
       Lab_Invert_Char_Out:= Lab_Invert_Char_Out Chr(Asc(Lab_Invert_Char) - 32)
    else
       Lab_Invert_Char_Out:= Lab_Invert_Char_Out Lab_Invert_Char
 }
 Send %Lab_Invert_Char_Out%
RETURN
;-=-=-=-=-=-=-=-=-=-=-=-=-=-HELP-=-=-=-=-=-=-=-=-=-=-=-=-=-
^H::
    MsgBox, , About ALPHABET Lowercase Uppercase,
    (
        This program will ALPHABET Lowercase Uppercase, via hotkey.

        The defined hotkeys are:
        CTL+L     - convert to lowercase
        CTL+U    - convert to uppercase
        CTL+K - invert the case (e.g. "The Big Dog" becomes "tHE bIG dOG")
        SHIFT+CTL+K - convert to capitalized (e.g. "the big dog" becomes "The Big             Dog")

        Works on both Windows XP and Windows 7
        By Najeeb Shah Khan 2022
    )
Return
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#R::Reload  ;<--  ~ Reload Script ~
#S::Suspend ;<--  ~ Suspend Script ~
#P::Pause   ;<--  ~ Pause Script ~
#M::WinMinimize, ;<--  ~ Minimize Script ~
ESC::ExitApp     ;<--  ~ Exit Script ~
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-END=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-