AltTabAlternative/Help.ahk at master · lokeshgovindu/AltTabAlternative · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
/*
o-----------------------------------------------------------------------------o
|   Author : Lokesh Govindu                                                   |
|    Email : lokeshgovindu@gmail.com                                          |
| HomePage : http://lokeshgovindu.blogspot.in/                                |
(-----------------------------------------------------------------------------)
| Help                                 / A Script file for AutoHotkey 1.1.23+ |
|                                     ----------------------------------------|
|                                                                             |
o-----------------------------------------------------------------------------o
*/

; This is for my testing
;~ if (true) {
	;~ HelpFileName := "Help.mht"
	;~ HelpFilePath := A_ScriptDir . "\" . HelpFileName
	;~ #Include %A_ScriptDir%\CommonUtils.ahk

	;~ ShowHelp()
	;~ Return

	;~ Esc::
		;~ ExitApp
;~ }

ShowHelp()
{
	Global
    HelpWindowMinWidth  := 800
    HelpWindowMinHeight := 600
    HelpWindowWidth     := 1024
    HelpWindowHeight    := 768
    HelpFilePath        := A_ScriptDir . "\" . HelpFileName

	FileRead, FileContents, %HelpFilePath%
    if (ErrorLevel) {
        MsgBox, , Error, File not found: %HelpFilePath%
        Return
    }

    Gui, Help: New, +Resize +hwndhHelpWindow MinSize%HelpWindowMinWidth%x%HelpWindowMinHeight%, %HelpFilePath%
    Gui, Help: Font, s11, Lucida Console
    Gui, Help: Default
    Gui, Help: Margin, 0, 0
	Gui, Help: Add, ActiveX, w%HelpWindowWidth% h%HelpWindowHeight% vShellExpolorer Multi +Border, Shell.Explorer
	ShellExpolorer.Navigate(HelpFilePath)
	ShellExpolorer.silent := true

    Gui, Help: Show, AutoSize Center
	ControlSend, , ^{Home}, ahk_id %hHelpWindow%
	Return

	HelpGuiEscape:
	HelpGuiClose:
		Gui, Help: Destroy
	Return

	HelpGuiSize:
		If (A_EventInfo = 1) ; The window has been minimized.
			Return
		AutoXYWH("wh", "ShellExpolorer")
	Return
} ; ShowHelp ends here!