/Source/AHK_Window_Info/AHK_Window_Info_v1.7.ahk

http://autohotkey-cn.googlecode.com/ · AutoHotKey · 1915 lines · 1452 code · 247 blank · 216 comment · 14 complexity · 9a6fc7e71cfae84680da5b2dd1711558 MD5 · raw file

Large files are truncated click here to view the full file

    

  1. ;Reveal information on windows, controls, etc. 

    2. 

  2. ;by toralf

    3. 

  3. ;requires AHK 1.0.44.04

    4. 

  4. ;www.autohotkey.com/forum/topic8976.html

    5. 

  5. 

    6. 

  6. ScriptName = AHK Window Info 1.7

    7. 

  7. 

    8. 

  8. ; License: Attribution-NonCommercial-ShareAlike 2.5 licence from Creative Commons 

    9. 

  9. ; for details see: http://creativecommons.org/licenses/by-nc-sa/2.5/legalcode

    10. 

  10. ;

    11. 

  11. ; export code by sosaited www.autohotkey.com/forum/viewtopic.php?t=8732&p=53372#53372

    12. 

  12. ; idea and lot of code of frame drawing by shimanov

    13. 

  13. ; several ideas from Chris and other users of the AHK forum

    14. 

  14. 

    15. 

  15. ; initial ideas taken from these scripts: 

    16. 

  16. ; Ahk Window Spy 1.3.3 by Decarlo www.autohotkey.com/forum/viewtopic.php?t=4679 

    17. 

  17. ; WinInfo Menu by Jon www.autohotkey.com/forum/viewtopic.php?t=8617

    18. 

  18. 

    19. 

  19. ;changes since 1.6

    20. 

  20. ; - added a small gap in the mouse picker grid to identify the center (thanks fade2gray)

    21. 

  21. ; - adjusted groupbox size and tab size

    22. 

  22. ; - added reset of picker to default color on dimensional change

    23. 

  23. 

    24. 

  24. ;changes since 1.5

    25. 

  25. ; - Groupboxes with bold text have been set -wrap, to fix line breaks on some windows themes

    26. 

  26. ; - BGR is made default for color picker

    27. 

  27. ; - update is stopped when mouse moves over its own gui, allowing easier graping of data, since no Pause key needs to be pressed. 

    28. 

  28. 

    29. 

  29. ;changes since 1.4

    30. 

  30. ; - "H" replaced with Hwnd; "P" and "S" with "Pos" and "Size" on advanced tab for Control

    31. 

  31. ; - GroupBox names have bold font

    32. 

  32. ; - Mouse color picker is only updated when mouse tab is visible. Otherwise set to gray

    33. 

  33. ; - set default for color picker to 15x15, since it only influences CPU load when the mouse tab is visible

    34. 

  34. ; - controls list items are only updated when advanced tab is visible. Otherwise set to ">>>not updated<<<""

    35. 

  35. ; - windows statusbar text is only updated when advanced tab is visible. Otherwise set to ">>>not updated<<<""

    36. 

  36. ; - fast/slow visible/hidden window text are only updated when advanced tab is visible. Otherwise set to ">>>not updated<<<""

    37. 

  37. ;todo

    38. 

  38. ; - Window Info should be tested on Windows 9x

    39. 

  39. 

    40. 

  40. ;changes since 1.3

    41. 

  41. ; - last tab gets remembered between starts

    42. 

  42. ; - large list hides automatically when tab is not "Advanced"

    43. 

  43. ; - by default not rectangle is drawn around controls

    44. 

  44. ; - gui starts NoActivate

    45. 

  45. ; - fixed a problem with hidden gui and pause key

    46. 

  46. ; - reduced impact in hidden mode on CPU load to nearly 0

    47. 

  47. ; - to support 800x600 screen resolutions the advanced tab initial height is 600 

    48. 

  48. ; - instead of auto-update, update of data can be done on mouse click (button can be L/M/R, default M)

    49. 

  49. ; - when started with "HideGui" turned on: GUI starts hidden, after 500 ms data is collected and GUI shown 

    50. 

  50. ; - changed licence to Attribution-NonCommercial-ShareAlike 2.5 licence from Creative Commons

    51. 

  51. 

    52. 

  52. ;changes since 1.2

    53. 

  53. ; - added: Control handle to advanced and list view

    54. 

  54. ; - improved: fixed some spelling mistakes

    55. 

  55. ; - fixed: option "Show tooltip at cursor" had no effect

    56. 

  56. ; - fixed: option "Show tooltip at cursor" wasn't remembered between sessions

    57. 

  57. ; - improved: For all DllCall's the types are put in quotes  

    58. 

  58. ; - changed: coordinates and sizes will have a space after the comma when put on clipboard 

    59. 

  59. ; - changed: the number of characters in the GUI for the list items is limited to 200. Clipboard will receive all 

    60. 

  60. ; - changed: "Introduction - Please Read" button moved to new info tab

    61. 

  61. ; - changed: Renamed "active control in window" to "focused control in window".

    62. 

  62. ; - fixed: Window Info refused to minimize while the right-side list was displayed.

    63. 

  63. ; - changed: While Window Info is minimized, updating of data is turned off

    64. 

  64. ; - fixed: Coordinates of GUI got stored when GUI got closed minimized

    65. 

  65. 

    66. 

  66. ;changes since 1.1

    67. 

  67. ; - added: OnExit routine that cleans up frame gui if script exits unexpectedly

    68. 

  68. ; - changed: Tooltip of control frame disappears when mouse gets moved onto it.

    69. 

  69. ; - changed: font size of GUI is now 6pt

    70. 

  70. 

    71. 

  71. ;changes since 1.0

    72. 

  72. ; - improved: specified the font for the GUI, MS Sans Serif, 8 point

    73. 

  73. ; - changed: for some OS (WIN_2000,WIN_NT4,WIN_95,WIN_98,WIN_ME) the icon is changed to ID 57

    74. 

  74. ; - improved: small features that simplify maintenance

    75. 

  75. ;        + combine update routines

    76. 

  76. ;        + simplify options actions

    77. 

  77. ;        + simplify Pause Key actions

    78. 

  78. ;        + reorder code

    79. 

  79. ; - improved: new method to capture fast/slow visible/hidden window text (Thanks Chris)

    80. 

  80. ; - changed: Gui (advanced) now holds fields for fast/slow visible/hidden window text

    81. 

  81. ; - added: option to switch color picker between RGB and BGR

    82. 

  82. ; - improved: color picker only updates when mouse moves or color below mouse changes. This reduces jittery update.

    83. 

  83. ; - changed: Color picker now has a 15x15 color matrix

    84. 

  84. ; - changed: checkbox "Show right List" changed to button that alternates between "More Info >>" and "<< Less Info".

    85. 

  85. ; - added: check for minium required AHK version 

    86. 

  86. ; - added: new option to turn auto-update automatically ON when Gui gets inactive (if it had been turned off (by pause or by the large list))

    87. 

  87. 

    88. 

  88. /*

    89. 

  89. Requests:

    90. 

  90. [quote="Chris"]Sometimes pressing Window Info's minimize button fails to work.[/quote]I still can't reproduce it. I tried it 20 times any each time the window minimized 

    91. 

  91. 

    92. 

  92. [quote="Chris"]I've made a note to test it on Win9x prior to distribution.[/quote]Please do. Or is there someone else out there to do the testing. Would be very much appreaciated. 

    93. 

  93. 

    94. 

  94. [quote="Chris"]Minor typos in source code comments: "or less or" should be "or else" in 2 places.[/quote]The two cases where "or less or" is written are actually correct. 

    95. 

  95. */

    96. 

  96. 

    97. 

  97. AHK_version = 1.0.44.04 

    98. 

  98. If not A_IsCompiled      ;if it is a script

    99. 

  99.     CheckAHKVersion(AHK_version)   ;check if minimum AHK Version is installed 

    100. 

  100. 

    101. 

  101. InformationText =

    102. 

  102.   (LTrim

    103. 

  103.     This Gui will reveal information on windows, controls, etc.

    104. 

  104.     This software is under the GNU General Public License for details see: www.autohotkey.com/docs/license.htm

    105. 

  105.     

    106. 

  106.     Move your mouse over the area of interest and see the data in this GUI changing accordingly (auto-update). The auto-update stops when this GUI becomes the active one. To achieve this without moving the mouse you can use Alt+Tab to change to %ScriptName%. Or you can use a hotkey to turn the auto-update off. The default hotkey is the Pause key.

    107. 

  107.     

    108. 

  108.     When the data for the large list is collected (advanced tab), the auto-update of the data is stopped automatically to allow you to work with the data. Use the toggle hotkey (see below) to create a new snapshot of data. Or turn on the option, to start updating again when the GUI gets deactivated. 

    109. 

  109.     

    110. 

  110.     These shortcuts exist:

    111. 

  111.     =================

    112. 

  112.     

    113. 

  113.     => Toggle Auto-Update Hotkey (default: Pause):

    114. 

  114.     ---------------------------------------------------------------------------

    115. 

  115.     Toggles (start/stop) auto-updating data in GUI OR creates a new snapshot of data when auto-update has been stopped automatically. 

    116. 

  116.     

    117. 

  117.     => Left-Mouse Button:

    118. 

  118.     ---------------------------------------

    119. 

  119.     Copies the content of a control to the clipboard. This is achieved in the code with OnMessage(), thus it should not interfere with any of your own hotkeys.

    120. 

  120.     

    121. 

  121.     => Middle-Mouse Button:

    122. 

  122.     ---------------------------------------

    123. 

  123.     Toggles AlwaysOnTop status of this window. Click inside the window, it will not work on the titlebar. This is achieved in the code with OnMessage(), thus it should not interfere with any of your own hotkeys.

    124. 

  124.     

    125. 

  125.     => Win+s hotkey combination:

    126. 

  126.     ------------------------------------------------

    127. 

  127.     Exports data to file. It will only work, when auto-update has been stopped. 

    128. 

  128.     

    129. 

  129.     Remarks:

    130. 

  130.     =======

    131. 

  131.     - You can change the toggle auto-update hotkey in the advanced options (you will not see keys that do not produces visible characters, e.g. the default Pause key). A key has to be specified. A single Ctrl, Shift, Alt, Win key or their combinations are not allowed.

    132. 

  132.     - The advanced option "Hide/Show Gui" allows you to create snapshots of data while the GUI is hidden. The toggle auto-update hotkey will toggle the visibility of the GUI. Just before the GUI is shown again the data gets collected and the GUI updated.

    133. 

  133.     - Log to file only works when auto-update has been stopped.

    134. 

  134.     - Specify a file name you want to save the data too. Insert #'s into the filename, if you want %ScriptName% to number the files automatically. 

    135. 

  135.   )  

    136. 

  136. 

    137. 

  137. #SingleInstance force

    138. 

  138. ;set working dir, in case this script is called from some other script in a different dir 

    139. 

  139. SetWorkingDir, %A_ScriptDir%

    140. 

  140. 

    141. 

  141. GoSub, ReadIni

    142. 

  142. GoSub, CreateTrayMenu

    143. 

  143. GoSub, BuildGui

    144. 

  144. 

    145. 

  145. WindowControlTextSize = 32767  ; Must be 32767 or less or it won't work on Windows 95.

    146. 

  146. VarSetCapacity(WindowControlText, WindowControlTextSize)

    147. 

  147. ControlTextSize = 512          ; Must be 32767 or less or it won't work on Windows 95.

    148. 

  148. VarSetCapacity(ControlText, ControlTextSize)

    149. 

  149. 

    150. 

  150. ;activate auto-update toggle hotkey

    151. 

  151. HotKey, %HtkPauseAction%, PauseAction, On

    152. 

  152. 

    153. 

  153. ;toggle AOT attribute of GUI with middle mouse click

    154. 

  154. WM_MBUTTONDOWN = 0x207

    155. 

  155. OnMessage(WM_MBUTTONDOWN, "ToggleOnTopGui1")

    156. 

  156. 

    157. 

  157. ;initialize Save hotkey, so it can be easily turned on/off 

    158. 

  158. HotKey, #s, BtnSaveExport, Off

    159. 

  159. ;initialize update on click hotkey, so it can be easily turned on/off 

    160. 

  160. Hotkey, IfWinNotActive, ahk_id %Gui1UniqueID%

    161. 

  161. Hotkey, ~%CbbHtkUpdate%, UpdateOnClick, Off

    162. 

  162. Hotkey, IfWinNotActive

    163. 

  163. 

    164. 

  164. ;activate update on click

    165. 

  165. If RadUpdateOnClick {

    166. 

  166.       Hotkey, IfWinNotActive, ahk_id %Gui1UniqueID%

    167. 

  167.       Hotkey, ~%CbbHtkUpdate%, On

    168. 

  168.       Hotkey, IfWinNotActive

    169. 

  169. }Else{

    170. 

  170.     ;activate auto-start updating at Gui inactivity

    171. 

  171.     WM_ACTIVATE = 0x6

    172. 

  172.     If ChkAutoStartUpdate

    173. 

  173.         OnMessage(WM_ACTIVATE, "WM_ACTIVATE")

    174. 

  174. 

    175. 

  175.     ;set timer once, so that it knows its interval and can be easily turned on/off

    176. 

  176.     UpdateIsStopped := True

    177. 

  177.     SetTimer, UpdateInfo, %CbbUpdateInterval%

    178. 

  178.     If ChkHideGui {

    179. 

  179.         Sleep, 500

    180. 

  180.         Gosub, PauseAction

    181. 

  181.         ToolTip("Press Pause to hide GUI again", 2000)

    182. 

  182.     }Else

    183. 

  183.         UpdateIsStopped := False

    184. 

  184.   }

    185. 

  185.     

    186. 

  186. ;activate copy-on-click for left mouse click

    187. 

  187. WM_LBUTTONDOWN = 0x201

    188. 

  188. If ChkCopyToCB

    189. 

  189.     OnMessage(WM_LBUTTONDOWN, "WM_LBUTTONDOWN")

    190. 

  190. 

    191. 

  191. ;set static parameters to draw frames around control and window

    192. 

  192. Sysget, ScreenWidth, 78   ; get screen size from virtual screen 

    193. 

  193. Sysget, ScreenHeight, 79 

    194. 

  194. frame_cc = 0x0000FF       ;set color for frame, 0x00BBGGRR

    195. 

  195. frame_cw = 0x00FF00       ;set color for frame, 0x00BBGGRR

    196. 

  196. frame_t  = 2              ;set line thickness for frame, 1-10

    197. 

  197. 

    198. 

  198. GoSub, ToogleExportActions

    199. 

  199. GoSub, PrepareFrameDraw  ;create or destroy frame drawing objects

    200. 

  200. 

    201. 

  201. OnExit, ExitSub

    202. 

  202. Return

    203. 

  203. ;######## End of Auto-Exec-Section

    204. 

  204. 

    205. 

  205. ExitSub:

    206. 

  206.   GoSub, CleanUpFrameGui

    207. 

  207.   Sleep,50

    208. 

  208.   ExitApp

    209. 

  209. Return

    210. 

  210. 

    211. 

  211. ReadIni:

    212. 

  212.   SplitPath, A_ScriptName, , , , OutNameNoExt

    213. 

  213.   IniFile = %OutNameNoExt%.ini

    214. 

  214.   

    215. 

  215.   IniRead, Gui1Pos                 , %IniFile%, Settings, Gui1Pos                , x0 y0

    216. 

  216.   IniRead, Gui1AOTState            , %IniFile%, Settings, Gui1AOTState           , 1

    217. 

  217.   IniRead, Tab1                    , %IniFile%, Settings, Tab1                   , 1

    218. 

  218.   IniRead, RadWindow               , %IniFile%, Settings, RadWindow              , 2

    219. 

  219.   IniRead, RadControl              , %IniFile%, Settings, RadControl             , 2

    220. 

  220.   IniRead, SelectedRadList         , %IniFile%, Settings, SelectedRadList        , 1

    221. 

  221.   IniRead, ChkShowList             , %IniFile%, Settings, ChkShowList            , 0

    222. 

  222.   IniRead, HtkPauseAction          , %IniFile%, Settings, HtkPauseAction         , Pause

    223. 

  223.   IniRead, ChkCopyToCB             , %IniFile%, Settings, ChkCopyToCB            , 1

    224. 

  224.   IniRead, ChkHideGui              , %IniFile%, Settings, ChkHideGui             , 0

    225. 

  225.   IniRead, ChkUseSaveHotkey        , %IniFile%, Settings, ChkUseSaveHotkey       , 0

    226. 

  226.   IniRead, ChkExportMousePosScreen , %IniFile%, Export  , ChkExportMousePosScreen, 1

    227. 

  227.   IniRead, ChkExportMousePosAWin   , %IniFile%, Export  , ChkExportMousePosAWin  , 0

    228. 

  228.   IniRead, ChkExportMousePosWin    , %IniFile%, Export  , ChkExportMousePosWin   , 1

    229. 

  229.   IniRead, ChkExportMousePointer   , %IniFile%, Export  , ChkExportMousePointer  , 0

    230. 

  230.   IniRead, ChkExportMouseColorRGB  , %IniFile%, Export  , ChkExportMouseColorRGB , 0

    231. 

  231.   IniRead, ChkExportMouseColorHex  , %IniFile%, Export  , ChkExportMouseColorHex , 0

    232. 

  232.   IniRead, ChkExportCtrlText       , %IniFile%, Export  , ChkExportCtrlText      , 1

    233. 

  233.   IniRead, ChkExportCtrlClass      , %IniFile%, Export  , ChkExportCtrlClass     , 1

    234. 

  234.   IniRead, ChkExportCtrlPos        , %IniFile%, Export  , ChkExportCtrlPos       , 0

    235. 

  235.   IniRead, ChkExportCtrlSize       , %IniFile%, Export  , ChkExportCtrlSize      , 0

    236. 

  236.   IniRead, ChkExportCtrlListItems  , %IniFile%, Export  , ChkExportCtrlListItems , 0

    237. 

  237.   IniRead, ChkExportWinTitle       , %IniFile%, Export  , ChkExportWinTitle      , 1

    238. 

  238.   IniRead, ChkExportWinPos         , %IniFile%, Export  , ChkExportWinPos        , 0

    239. 

  239.   IniRead, ChkExportWinSize        , %IniFile%, Export  , ChkExportWinSize       , 0

    240. 

  240.   IniRead, ChkExportWinClass       , %IniFile%, Export  , ChkExportWinClass      , 1

    241. 

  241.   IniRead, ChkExportWinProcess     , %IniFile%, Export  , ChkExportWinProcess    , 1

    242. 

  242.   IniRead, ChkExportWinUID         , %IniFile%, Export  , ChkExportWinUID        , 0

    243. 

  243.   IniRead, ChkExportWinPID         , %IniFile%, Export  , ChkExportWinPID        , 0

    244. 

  244.   IniRead, ChkExportWinStatusText  , %IniFile%, Export  , ChkExportWinStatusText , 1

    245. 

  245.   IniRead, ChkExportWinText        , %IniFile%, Export  , ChkExportWinText       , 1

    246. 

  246.   IniRead, ChkExportLargeList      , %IniFile%, Export  , ChkExportLargeList     , 1

    247. 

  247.   IniRead, EdtExportFile           , %IniFile%, Export  , EdtExportFile          , AHK_Window_Info_Data_###.txt

    248. 

  248.   IniRead, ChkExportAutoNumber     , %IniFile%, Export  , ChkExportAutoNumber    , 1

    249. 

  249.   IniRead, ChkExportAppend         , %IniFile%, Export  , ChkExportAppend        , 0

    250. 

  250.   IniRead, ChkShowInfoToolTip      , %IniFile%, Advanced, ChkShowInfoToolTip     , 1

    251. 

  251.   IniRead, ChkDrawRectCtrl         , %IniFile%, Advanced, ChkDrawRectCtrl        , 0

    252. 

  252.   IniRead, ChkDrawRectWin          , %IniFile%, Advanced, ChkDrawRectWin         , 0

    253. 

  253.   IniRead, ChkTtpMaster            , %IniFile%, Advanced, ChkTtpMaster           , 0

    254. 

  254.   IniRead, ChkTtpMSPos             , %IniFile%, Advanced, ChkTtpMSPos            , 0

    255. 

  255.   IniRead, ChkTtpMWPos             , %IniFile%, Advanced, ChkTtpMWPos            , 1

    256. 

  256.   IniRead, ChkTtpMColor            , %IniFile%, Advanced, ChkTtpMColor           , 1

    257. 

  257.   IniRead, ChkTtpCClass            , %IniFile%, Advanced, ChkTtpCClass           , 1

    258. 

  258.   IniRead, ChkTtpCPos              , %IniFile%, Advanced, ChkTtpCPos             , 0

    259. 

  259.   IniRead, ChkTtpCSize             , %IniFile%, Advanced, ChkTtpCSize            , 0

    260. 

  260.   IniRead, ChkTtpWClass            , %IniFile%, Advanced, ChkTtpWClass           , 1

    261. 

  261.   IniRead, ChkTtpWTitle            , %IniFile%, Advanced, ChkTtpWTitle           , 1

    262. 

  262.   IniRead, CbbUpdateInterval       , %IniFile%, Advanced, CbbUpdateInterval      , 100

    263. 

  263.   IniRead, CbbColorPickDim         , %IniFile%, Advanced, CbbColorPickDim        , 15x15

    264. 

  264.   IniRead, RadColorPick            , %IniFile%, Advanced, RadColorPick           , 2

    265. 

  265.   IniRead, ChkAutoStartUpdate      , %IniFile%, Advanced, ChkAutoStartUpdate     , 1

    266. 

  266.   IniRead, CbbHtkUpdate            , %IniFile%, Advanced, CbbHtkUpdate           , MButton

    267. 

  267.   IniRead, RadUpdateOnClick        , %IniFile%, Advanced, RadUpdateOnClick       , 0

    268. 

  268.   IniRead, RadUpdateAuto           , %IniFile%, Advanced, RadUpdateAuto          , 1

    269. 

  269. Return

    270. 

  270. 

    271. 

  271. CreateTrayMenu:

    272. 

  272.   ;location of icon file

    273. 

  273.   IconFile := A_WinDir "\system" iif(A_OSType = "WIN32_WINDOWS","","32") "\shell32.dll"

    274. 

  274.   ;create traybar menu

    275. 

  275.   ;icon for taskbar and for proces in task manager

    276. 

  276.   If A_OSVersion in WIN_2000,WIN_NT4,WIN_95,WIN_98,WIN_ME

    277. 

  277.       Menu, Tray, Icon, %IconFile%, 57    

    278. 

  278.   Else

    279. 

  279.       Menu, Tray, Icon, %IconFile%, 172

    280. 

  280.   Menu, Tray, NoStandard

    281. 

  281.   Menu, Tray, Tip, %ScriptName%

    282. 

  282.   Menu, Tray, Add, Show, GuiShow

    283. 

  283.   Menu, Tray, Default, Show 

    284. 

  284.   Menu, Tray, Add, Exit, GuiClose

    285. 

  285.   Menu, Tray, Click, 1

    286. 

  286. Return

    287. 

  287. 

    288. 

  288. GuiShow:

    289. 

  289.   Gui, 1:Show                   ;show window again if it has been hidden

    290. 

  290. Return

    291. 

  291. 

    292. 

  292. BuildGui:

    293. 

  293.   GuiIsVisible := False

    294. 

  294.   Gui, 1: +Resize +LastFound

    295. 

  295.   Gui1UniqueID := WinExist() 

    296. 

  296.   Gui, 1:Font, s6, MS Sans Serif

    297. 

  297.   Gui, 1:Margin, 0, 0

    298. 

  298.   Gui, 1:Add, Tab, w287 h145 vTab1 gTab1 AltSubmit -Wrap , Simple|Advanced|Mouse|Options|Info

    299. 

  299.     Gui, 1:Tab, Simple

    300. 

  300.       Gui, 1:Add, Text, x5 y28 , Window Title

    301. 

  301.       Gui, 1:Add, Edit, x+2 yp-3 w211 vEdtEasyWindowTitle, 

    302. 

  302.     

    303. 

  303.       Gui, 1:Add, Text, x5 y+5, Window Class

    304. 

  304.       Gui, 1:Add, Edit, x+2 yp-3 w206 vEdtEasyWindowClass, 

    305. 

  305. 

    306. 

  306.       Gui, 1:Add, Text, x5 y+5, Control ClassNN

    307. 

  307.       Gui, 1:Add, Edit, x+2 yp-3 w196 vEdtEasyControlClass, 

    308. 

  308. 

    309. 

  309.       Gui, 1:Add, Text, x5 y+5, Control Text

    310. 

  310.       Gui, 1:Add, Edit, x+2 yp-3 w216 vEdtEasyControlText, 

    311. 

  311. 

    312. 

  312.       Gui, 1:Add, Text, x5 y+5, Mouse Position relative to Window

    313. 

  313.       Gui, 1:Add, Edit, x+2 yp-3 w110 vEdtEasyMousePosWin,

    314. 

  314. 

    315. 

  315.     Gui, 1:Tab, Advanced

    316. 

  316.       Gui, 1:Add, Text, x5 y28 Section, Pos. rel. to Window

    317. 

  317.       Gui, 1:Add, Edit, x+2 yp-3 w80 vEdtDataMousePosWin,

    318. 

  318. 

    319. 

  319.       Gui, 1:Add, Button, x+28 yp-1 vBtnShowList gBtnShowList -Wrap, % iif(ChkShowList,"<< Less Info","More Info >>")

    320. 

  320.       

    321. 

  321.       Gui, 1:Font, bold 

    322. 

  322.       Gui, 1:Add, GroupBox, xs w274 h114 -wrap, Control      

    323. 

  323.       Gui, 1:Font, normal 

    324. 

  324.         Gui, 1:Add, Text, xs+4 yp+18, Text

    325. 

  325.         Gui, 1:Add, Edit, x+2 yp-3 w104 vEdtControlText, 

    326. 

  326.       

    327. 

  327.         Gui, 1:Add, Text, x+5 yp+3, ClassNN

    328. 

  328.         Gui, 1:Add, Edit, x+2 yp-3 w91 vEdtControlClass, 

    329. 

  329.       

    330. 

  330.         Gui, 1:Add, Text, xs+4 y+5, Pos

    331. 

  331.         Gui, 1:Add, Edit, x+2 yp-3 w60 vEdtControlPos, 

    332. 

  332.       

    333. 

  333.         Gui, 1:Add, Text, x+5 yp+3, Size

    334. 

  334.         Gui, 1:Add, Edit, x+2 yp-3 w65 vEdtControlSize, 

    335. 

  335. 

    336. 

  336.         Gui, 1:Add, Text, x+5 yp+3, Hwnd

    337. 

  337.         Gui, 1:Add, Edit, x+2 yp-3 w59 vEdtControlHwnd, 

    338. 

  338.     

    339. 

  339.         Gui, 1:Add, Text, xs+4 y+3, List`nItems  

    340. 

  340.         Gui, 1:Add, Edit, x+4 r3 w237 vEdtListItems, 

    341. 

  341.         

    342. 

  342.       Gui, 1:Font, bold 

    343. 

  343.       Gui, 1:Add, GroupBox, xs w274 h492 -wrap vGrbAdvancedWindow, Window

    344. 

  344.       Gui, 1:Font, normal 

    345. 

  345.         Gui, 1:Add, Text, xs+4 yp+18 , Title

    346. 

  346.         Gui, 1:Add, Edit, x+2 yp-3 w244 vEdtWindowTitle, 

    347. 

  347.       

    348. 

  348.         Gui, 1:Add, Text, xs+4 y+5, Position

    349. 

  349.         Gui, 1:Add, Edit, x+2 yp-3 w88 vEdtWindowPos, 

    350. 

  350.       

    351. 

  351.         Gui, 1:Add, Text, x+5 yp+3, Size

    352. 

  352.         Gui, 1:Add, Edit, x+2 yp-3 w112 vEdtWindowSize,

    353. 

  353.       

    354. 

  354.         Gui, 1:Add, Text, xs+4 y+5, Class

    355. 

  355.         Gui, 1:Add, Edit, x+2 yp-3 w100 vEdtWindowClass, 

    356. 

  356.       

    357. 

  357.         Gui, 1:Add, Text, x+5 yp+3, Process

    358. 

  358.         Gui, 1:Add, Edit, x+2 yp-3 w94 vEdtWindowProcess, 

    359. 

  359.       

    360. 

  360.         Gui, 1:Add, Text, xs+4 y+5, Unique ID

    361. 

  361.         Gui, 1:Add, Edit, x+2 yp-3 w77 vEdtWindowUID, 

    362. 

  362.       

    363. 

  363.         Gui, 1:Add, Text, x+5 yp+3, Process ID

    364. 

  364.         Gui, 1:Add, Edit, x+2 yp-3 w80 vEdtWindowPID, 

    365. 

  365.     

    366. 

  366.         Gui, 1:Add, Text, xs+4 y+3, StatusbarText (Part# - Text)  

    367. 

  367.         Gui, 1:Add, ListBox, xs+4 y+2 r4 w266 vLsbStatusbarText, 

    368. 

  368.         

    369. 

  369.         Gui, 1:Add, Text, xs+4 y+3 Section, Fast Visible Text  

    370. 

  370.         Gui, 1:Add, Edit, y+2 r10 w132 vEdtWindowTextFastVisible, 

    371. 

  371. 

    372. 

  372.         Gui, 1:Add, Text, x+2 ys, Fast Hidden Text  

    373. 

  373.         Gui, 1:Add, Edit, y+2 r10 w132 vEdtWindowTextFastHidden, 

    374. 

  374. 

    375. 

  375.         Gui, 1:Add, Text, xs Section vTxtWindowTextSlowVisible, Slow Visible Text  

    376. 

  376.         Gui, 1:Add, Edit, y+2 r10 w132 vEdtWindowTextSlowVisible, 

    377. 

  377. 

    378. 

  378.         Gui, 1:Add, Text, x+2 ys vTxtWindowTextSlowHidden, Slow Hidden Text  

    379. 

  379.         Gui, 1:Add, Edit, y+2 r10 w132 vEdtWindowTextSlowHidden, 

    380. 

  380.       

    381. 

  381.     Gui, 1:Tab, Mouse

    382. 

  382.       Gui, 1:Add, Text, x5 y28, Data of/under mouse cursor and Positions relative to

    383. 

  383.       Gui, 1:Add, Text, x5 y+5, Window

    384. 

  384.       Gui, 1:Add, Edit, x+2 yp-3 w106 vEdtMousePosWin,

    385. 

  385.       

    386. 

  386.       Gui, 1:Add, Text, x+5 yp+3, Screen

    387. 

  387.       Gui, 1:Add, Edit, x+2 yp-3 w88 vEdtMousePosScreen,

    388. 

  388.     

    389. 

  389.       Gui, 1:Add, Text, x5 y+5, Active Window

    390. 

  390.       Gui, 1:Add, Edit, x+2 yp-3 w73 vEdtMousePosAWin,

    391. 

  391.     

    392. 

  392.       Gui, 1:Add, Text, x+5 yp+3, Cursor

    393. 

  393.       Gui, 1:Add, Edit, x+2 yp-3 w92 vEdtMousePointer,

    394. 

  394.     

    395. 

  395.       Gui, 1:Add, Text, x5 y+5, RGB Color

    396. 

  396.       Gui, 1:Add, Edit, x+2 yp-3 w95 vEdtMouseColorRGB,

    397. 

  397.     

    398. 

  398.       Gui, 1:Add, Text, x+5 yp+3, RGB Color

    399. 

  399.       Gui, 1:Add, Edit, x+2 yp-3 w72 vEdtMouseColorHex,

    400. 

  400.         

    401. 

  401.       Gui, 1:Font, bold 

    402. 

  402.       Gui, 1:Add, GroupBox, x5 y+10 Section w274 h305 -wrap, Color Picker

    403. 

  403.       Gui, 1:Font, normal 

    404. 

  404.         Gui, 1:Add, Text, xs+4 yp+18, Dimension:

    405. 

  405.         Gui, 1:Add, ComboBox, x+5 yp-3 w55 vCbbColorPickDim gRefreshControlStates, 1x1|3x3||5x5|7x7|9x9|15x15

    406. 

  406.         Gui, 1:Add, Radio, x+5 yp+3 vRadColorPick gRefreshControlStates, RGB

    407. 

  407.         Gui, 1:Add, Radio, x+5 Checked gRefreshControlStates, BGR

    408. 

  408. 

    409. 

  409.         Gui, 1:Add, Text, xs+4 y+5 w10 h5 Section,        ;only to create a gap to the color matix

    410. 

  410.         

    411. 

  411.         Loop, 15 {

    412. 

  412.             Row = %A_Index%

    413. 

  413.             dy := (Row = 8 OR Row = 9) ? "y+2" : ""

    414. 

  414.             Gui, 1:Add, Progress, xs+5 %dy% w17 h17 vPgbColorPicker%Row%_1,

    415. 

  415.             Loop, 14 {

    416. 

  416.                 Column := A_Index + 1

    417. 

  417.                 dx := (A_Index = 7 OR A_Index = 8) ? 2 : 0

    418. 

  418.                 Gui, 1:Add, Progress, x+%dx% w17 h17 vPgbColorPicker%Row%_%Column%,

    419. 

  419.               }

    420. 

  420.           }

    421. 

  421. 

    422. 

  422.     Gui, 1:Tab, Options

    423. 

  423. 

    424. 

  424.       Gui, 1:Add, Text, x5 y25 Section , Show window and control data for

    425. 

  425.       Gui, 1:Add, Radio, xs y+5 vRadWindow gRefreshControlStates, Active Window

    426. 

  426.       Gui, 1:Add, Radio, xs y+5 Checked gRefreshControlStates, Window under Mouse Cursor

    427. 

  427. 

    428. 

  428.       Gui, 1:Add, Button, x+55 y25 gBtnShowOptions1, Advanced`nOptions

    429. 

  429. 

    430. 

  430.       Gui, 1:Add, Text, xs y+25, Show control data for

    431. 

  431.       Gui, 1:Add, Radio, xs y+5 vRadControl gRefreshControlStates, Focused Control in Window

    432. 

  432.       Gui, 1:Add, Radio, xs y+5 Checked gRefreshControlStates, Control under Mouse Cursor

    433. 

  433. 

    434. 

  434.       Gui, 1:Add, Checkbox, xs y+15 vChkTtpMaster gRefreshControlStates Checked%ChkTtpMaster%, Show tooltip at cursor

    435. 

  435.       Gui, 1:Add, Button, x+3 yp-5 gBtnShowOptions2, Data Filter Options

    436. 

  436. 

    437. 

  437.       Gui, 1:Add, Text, xs y+12 , Draw a rectangle around

    438. 

  438.       Gui, 1:Add, Checkbox, x+5 vChkDrawRectCtrl gChkDrawRectCtrl Checked%ChkDrawRectCtrl%, control (red)

    439. 

  439.       Gui, 1:Add, Checkbox, y+5 vChkDrawRectWin gChkDrawRectWin Checked%ChkDrawRectWin%, window (green)

    440. 

  440.       

    441. 

  441.       ExportOptions =           ;collect all checkboxes, so they can be parsed in a loop

    442. 

  442.         (LTrim Join,

    443. 

  443.           ChkExportMousePosScreen,ChkExportMousePosAWin,ChkExportMousePosWin

    444. 

  444.           ChkExportMousePointer,ChkExportMouseColorRGB,ChkExportMouseColorHex

    445. 

  445.           ChkExportCtrlText,ChkExportCtrlClass,ChkExportCtrlPos

    446. 

  446.           ChkExportCtrlSize,ChkExportCtrlListItems,ChkExportWinTitle,ChkExportWinPos

    447. 

  447.           ChkExportWinSize,ChkExportWinClass,ChkExportWinProcess

    448. 

  448.           ChkExportWinUID,ChkExportWinPID,ChkExportWinStatusText

    449. 

  449.           ChkExportWinText,ChkExportLargeList

    450. 

  450.         )

    451. 

  451.        

    452. 

  452.       Gui, 1:Add, Text, xs y+17 ,Log Data to File  

    453. 

  453.       Gui, 1:Add, Button, x+5 yp-5 gBtnShowOptions3, Log Options

    454. 

  454.       Gui, 1:Add, Button, x+5 vBtnSaveExport gBtnSaveExport, Save to file 

    455. 

  455.       Gui, 1:Add, Edit, xs w255 vEdtExportFile, %EdtExportFile%

    456. 

  456.       Gui, 1:Add, Button, x+2 yp-1 gBtnBrowseExportFile,... 

    457. 

  457.     Gui, 1:Tab, Info

    458. 

  458.       Gui, 1:Add, Text, x5 y25 Section ,

    459. 

  459.         (

    460. 

  460. This GUI will reveal information on windows, controls, etc.,

    461. 

  461. but only when this GUI is not the active window.

    462. 

  462. 

    463. 

  463. - To start/stop updating data press the Auto-Update

    464. 

  464.   toggle Hotkey (default: Pause).

    465. 

  465. - To put the content of a field on the clipboard click with

    466. 

  466.   the left mouse button into the field.

    467. 

  467. - To toggle the always-on-top state of this GUI use the

    468. 

  468.   middle mouse button.

    469. 

  469.         )  

    470. 

  470.       Gui, 1:Add, Button, x70 y+5 vBtnShowInfo gBtnShowInfo, More Information - Please read

    471. 

  471.       

    472. 

  472.   Gui, 1:Tab

    473. 

  473.   GuiControl, Choose, Tab1, %Tab1%   

    474. 

  474. 

    475. 

  475.   Gui, 1:Add, Radio, x290 y2 Section vRadList1 gRadList, Info on all Controls of one window

    476. 

  476.   Gui, 1:Add, Radio, x+5 vRadList2 gRadList, Info on all Windows    (Click radio buttons again to refresh list)

    477. 

  477.   Gui, 1:Add, ListView, xs y+5 w370 h339 vLV1 Count200

    478. 

  478.     , Z or Stack Order|Unique ID or Handle|Window PID|Class(NN)|Process Name|Hidden|Title or Text|X|Y|Width|Height|Style|ExStyle|Selected|CurrentCol|CurrentLine|LineCount|Choice|Tab|Enabled|Checked

    479. 

  479. 

    480. 

  480.   ;Apply settings

    481. 

  481.   If RadWindow = 1

    482. 

  482.       GuiControl, 1:, RadWindow, 1

    483. 

  483.   If RadControl = 1

    484. 

  484.       GuiControl, 1:, RadControl, 1

    485. 

  485.   If RadColorPick = 1

    486. 

  486.       GuiControl, 1:, RadColorPick, 1

    487. 

  487.   GuiControl, 1:, RadList%SelectedRadList%, 1

    488. 

  488.   GuiControl, 1:ChooseString, CbbColorPickDim, %CbbColorPickDim%

    489. 

  489.   StringSplit, Dim, CbbColorPickDim, x    ;prepare color picker dimensions

    490. 

  490.   Dim = %Dim1%

    491. 

  491.   HalfDim := Dim // 2 + 1

    492. 

  492. 

    493. 

  493.   GoSub, ShowHideList 

    494. 

  494. 

    495. 

  495.   If Gui1AOTState {

    496. 

  496.       Gui, 1:+AlwaysOnTop

    497. 

  497.       TitleExtension = - *AOT*

    498. 

  498.     }

    499. 

  499.   

    500. 

  500.   If ChkHideGui

    501. 

  501.       ShowOption = Hide

    502. 

  502.   Else        

    503. 

  503.       ShowOption = NoActivate

    504. 

  504.   Gui, 1:Show, %Gui1Pos% %ShowOption% AutoSize , %ScriptName% %TitleExtension%

    505. 

  505.   If !ChkHideGui

    506. 

  506.       GuiIsVisible := True

    507. 

  507. Return

    508. 

  508. 

    509. 

  509. ;###############################################################################

    510. 

  510. ;###   prepare hotkey or mouse interaction with GUI   ##########################

    511. 

  511. ;###############################################################################

    512. 

  512. 

    513. 

  513. WM_LBUTTONDOWN(wParam, lParam, msg, hwnd){       ;Copy-On-Click for controls

    514. 

  514.     global 

    515. 

  515.     local Content 

    516. 

  516. 

    517. 

  517.     If A_GuiControl is space                     ;Control is not known

    518. 

  518.         Return

    519. 

  519.     If A_GuiControl not contains Edt,Lsb,Pgb     ;Control is something else then edit, listbox or progressbar control

    520. 

  520.         Return

    521. 

  521.     

    522. 

  522.     ;Check for full text vars

    523. 

  523.     Fulltext = %A_GuiControl%Full

    524. 

  524.     If (%Fulltext% <> "")

    525. 

  525.         Content := %Fulltext%

    526. 

  526.     Else {

    527. 

  527.         If A_GuiControl contains Pgb                 ;get value from color pickers (progressbar)

    528. 

  528.             Content := %A_GuiControl%

    529. 

  529.         Else

    530. 

  530.             GuiControlGet, Content, , %A_GuiControl% ;get controls content

    531. 

  531.       }

    532. 

  532.     

    533. 

  533.     If Content is space                          ;content is empty or couldn't be retrieved

    534. 

  534.         Return

    535. 

  535.   

    536. 

  536.     If A_GuiControl contains Class               ;change data for specific fields

    537. 

  537.         Content = ahk_class %Content%

    538. 

  538.     Else If A_GuiControl contains UID

    539. 

  539.         Content = ahk_id %Content%

    540. 

  540.     Else If A_GuiControl contains PID

    541. 

  541.         Content = ahk_pid %Content%

    542. 

  542.     Else If A_GuiControl contains Process

    543. 

  543.         Content = ahk_pname %Content%

    544. 

  544.     Else If A_GuiControl contains Pos,Size

    545. 

  545.       {

    546. 

  546.         StringReplace, Content, Content, x

    547. 

  547.         StringReplace, Content, Content, y

    548. 

  548.         StringReplace, Content, Content, w

    549. 

  549.         StringReplace, Content, Content, h

    550. 

  550.         StringReplace, Content, Content, %A_Space%, `,%A_Space%

    551. 

  551.       }

    552. 

  552.     Else If A_GuiControl contains Pgb

    553. 

  553.         Content = 0x%Content%

    554. 

  554.     ClipBoard = %Content%                   ;put content in clipboard 

    555. 

  555.   

    556. 

  556.     If ChkShowInfoToolTip {

    557. 

  557.         If (StrLen(Content) > 200){             ;give feedback (limit size to 200 characters)

    558. 

  558.             StringLeft, Content, Content, 200 

    559. 

  559.             Content = %Content% ...

    560. 

  560.           }

    561. 

  561.           ToolTip("ClipBoard = " Content)

    562. 

  562.       }

    563. 

  563.   }

    564. 

  564. 

    565. 

  565. WM_ACTIVATE(wParam, lParam, msg, hwnd){

    566. 

  566.     Global UpdateIsStopped, ChkHideGui

    567. 

  567.     If (wParam  AND !ChkHideGui) 

    568. 

  568.         UpdateIsStopped := False 

    569. 

  569.   }

    570. 

  570. 

    571. 

  571. UpdateOnClick:

    572. 

  572.   UpdateIsStopped := False    ;needs to be set if large list had set it to true

    573. 

  573.   GoSub, UpdateInfo           ;collect data

    574. 

  574. Return

    575. 

  575. 

    576. 

  576. PauseAction:                      ;user has pressed toogle auto-update hotkey

    577. 

  577.   If ChkHideGui {                 ;user wants hide/show toggle

    578. 

  578.       UpdateIsStopped := False    ;needs to be set if large list had set it to true

    579. 

  579.       If GuiIsVisible {

    580. 

  580.           Gui, 1:Hide 

    581. 

  581.       }Else{

    582. 

  582.           SetTimer, UpdateInfo, Off ;turn timer off, to collect only once data

    583. 

  583.           UpdateIsStopped := False  ;turn update on

    584. 

  584.           UpdateAfterPause := True  ;set flag to update all

    585. 

  585.           GoSub, UpdateInfo         ;collect data

    586. 

  586.           UpdateAfterPause := False ;turn off flag to update all

    587. 

  587.           UpdateIsStopped := True   ;turn update off

    588. 

  588.           SetTimer, UpdateInfo, %CbbUpdateInterval% ;turn timer back on

    589. 

  589.           GoSub, GuiShow            ;bring GUI to front

    590. 

  590.         }

    591. 

  591.       GuiIsVisible := not GuiIsVisible

    592. 

  592.       If ChkShowInfoToolTip

    593. 

  593.           ToolTip(iif(UpdateIsStopped,"Press " HtkPauseAction " to hide GUI","Wait for " HtkPauseAction " key to`nupdate data and show GUI"),2000)

    594. 

  594.   }Else {

    595. 

  595.       UpdateIsStopped := not UpdateIsStopped  ;toggle update status and show feedback

    596. 

  596.       If UpdateIsStopped                      ;when stopped, bring GUI to front

    597. 

  597.           GoSub, GuiShow

    598. 

  598.       If ChkShowInfoToolTip                   ;give feedback

    599. 

  599.           ToolTip(Scriptname "`n----------------------------`nUpdate data : " iif(UpdateIsStopped,"Off","On"))

    600. 

  600.     }

    601. 

  601. 

    602. 

  602.   GoSub, ToogleExportActions

    603. 

  603.   GoSub, PrepareFrameDraw  ;create or destroy frame drawing objects

    604. 

  604. Return

    605. 

  605. 

    606. 

  606. ToogleExportActions:

    607. 

  607.   ;Disable Export Save button during update 

    608. 

  608.   GuiControl, 1:Enable%UpdateIsStopped%, BtnSaveExport

    609. 

  609. 

    610. 

  610.   ;Enable Export Save hotkey when update is stopped and hotkey wanted 

    611. 

  611.   If (ChkUseSaveHotkey AND UpdateIsStopped)

    612. 

  612.       HotKey, #s, , On

    613. 

  613.   Else                 ; ... otherwise de-activate Export Save hotkey

    614. 

  614.       HotKey, #s, , Off UseErrorLevel

    615. 

  615. Return

    616. 

  616. 

    617. 

  617. PrepareFrameDraw:           ;create or destroy frame drawing objects

    618. 

  618.   If (UpdateIsStopped OR (ChkDrawRectCtrl = 0 AND ChkDrawRectWin = 0)){

    619. 

  619.       GoSub, CleanUpFrameGui

    620. 

  620.   ;create GUI Only if Gui doesn't exist yet and is needed.

    621. 

  621.   }Else If ( (ChkDrawRectCtrl OR ChkDrawRectWin) And not FrameGUIExists ){

    622. 

  622.       FrameGUIExists := True

    623. 

  623.       ;create transparent GUI covering the whole screen 

    624. 

  624.       Gui, 2:+Lastfound +AlwaysOnTop

    625. 

  625.       Gui, 2:Color, Black 

    626. 

  626.       WinSet, TransColor, Black

    627. 

  627.       Gui, 2: -Caption +ToolWindow

    628. 

  628.       Gui, 2:Show, x0 y0 w%ScreenWidth% h%ScreenHeight%, FrameDrawGUI2

    629. 

  629.       UniqueIDGui2 := WinExist()

    630. 

  630. 

    631. 

  631.       ;create draw objects for that window 

    632. 

  632.       CreateDrawHandles(UniqueIDGui2, ScreenWidth, ScreenHeight, frame_cc, frame_cw) 

    633. 

  633.     }

    634. 

  634.   ;set previous control/window to nothing, so that the frames start to draw immediatly

    635. 

  635.   PreviousControlID = 

    636. 

  636.   PreviousWindowID =

    637. 

  637. Return

    638. 

  638. 

    639. 

  639. CleanUpFrameGui:

    640. 

  640.   DeleteObject( h_brushC )       ;destroy objects 

    641. 

  641.   DeleteObject( h_brushW ) 

    642. 

  642.   DeleteObject( h_region ) 

    643. 

  643.   DeleteObject( hbm_buffer ) 

    644. 

  644.     

    645. 

  645.   DeleteDC( hdc_frame ) 

    646. 

  646.   DeleteDC( hdc_buffer ) 

    647. 

  647.   Gui, 2:Destroy                 ;destroy gui

    648. 

  648.   FrameGUIExists := False

    649. 

  649.   ToolTip, , , , 2               ;remove control frame tooltip

    650. 

  650.   ToolTip, , , , 3               ;remove window frame tooltip

    651. 

  651. Return

    652. 

  652. 

    653. 

  653. ;###############################################################################

    654. 

  654. ;###   Interactions with GUI controls   ########################################

    655. 

  655. ;###############################################################################

    656. 

  656. 

    657. 

  657. Tab1:

    658. 

  658.   GuiControlGet, Tab1, 1:                ;get current value

    659. 

  659.   GoSub, ClearNotUsedControls

    660. 

  660.   If (Tab1 = 1){                            ;adjust tab height based on visible tab

    661. 

  661.       GuiControl, 1:Move, Tab1, h145

    662. 

  662.   }Else If (Tab1 = 2) {  

    663. 

  663.       GuiControl, 1:Move, Tab1, h570

    664. 

  664.   }Else If (Tab1 = 3) {  

    665. 

  665.       GuiControl, 1:Move, Tab1, h430

    666. 

  666.   }Else If (Tab1 = 4) {

    667. 

  667.       GuiControl, 1:Move, Tab1, h274

    668. 

  668.   }Else If (Tab1 = 5) {  

    669. 

  669.       GuiControl, 1:Move, Tab1, h174

    670. 

  670.     }

    671. 

  671.   ChkShowList := False

    672. 

  672.   GoSub, ShowHideList

    673. 

  673.   Gui, 1:Show, AutoSize                         ;autosize GUI

    674. 

  674. return

    675. 

  675. 

    676. 

  676. ClearNotUsedControls:

    677. 

  677.   If (Tab1 <> 2) {  

    678. 

  678.       GuiControl, 1:, EdtListItems, >>>not updated<<<

    679. 

  679.       GuiControl, 1:, LsbStatusbarText, |>>>not updated<<<

    680. 

  680.       GuiControl, 1:, EdtWindowTextFastVisible, >>>not updated<<<

    681. 

  681.       GuiControl, 1:, EdtWindowTextSlowVisible, >>>not updated<<<

    682. 

  682.       GuiControl, 1:, EdtWindowTextFastHidden, >>>not updated<<<

    683. 

  683.       GuiControl, 1:, EdtWindowTextSlowHidden, >>>not updated<<<

    684. 

  684.     }

    685. 

  685.   If (Tab1 <> 3) {  

    686. 

  686.       Loop, %Dim% {

    687. 

  687.           Row := A_Index + 8 - HalfDim

    688. 

  688.           Loop, %Dim% {

    689. 

  689.               y++

    690. 

  690.               Control := "PgbColorPicker" (A_Index + 8 - HalfDim) "_" Row 

    691. 

  691.               GuiControl, 1:+BackgroundECE9D8,%Control% 

    692. 

  692.             }

    693. 

  693.         }

    694. 

  694.       

    695. 

  695.     }

    696. 

  696. Return

    697. 

  697. 

    698. 

  698. ShowHideList:

    699. 

  699.   GuiControl, 1:, BtnShowList, % iif(ChkShowList,"<< Less Info","More Info >>") 

    700. 

  700.   GuiControl, 1:Show%ChkShowList%, RadList1      ;show/hide controls

    701. 

  701.   GuiControl, 1:Show%ChkShowList%, RadList2

    702. 

  702.   GuiControl, 1:Show%ChkShowList%, LV1          ;show/hide large list

    703. 

  703. Return

    704. 

  704. 

    705. 

  705. BtnShowList:

    706. 

  706.   ChkShowList := not ChkShowList

    707. 

  707.   GoSub, ShowHideList

    708. 

  708.   Gui, 1:Show, AutoSize                         ;autosize GUI

    709. 

  709.   If ChkShowList                                    

    710. 

  710.       GoSub, GetDataForLargeList      ;get data 

    711. 

  711. Return

    712. 

  712. 

    713. 

  713. RadList:

    714. 

  714.   LV_Delete()                                      ;clear controls

    715. 

  715.   StringRight, SelectedRadList, A_GuiControl, 1    ;get which got pressed

    716. 

  716.   Loop, 2                                          ;deactivate the other

    717. 

  717.       If (A_Index <> SelectedRadList)

    718. 

  718.           GuiControl, 1:, RadList%A_Index%, 0

    719. 

  719.   Gui, 1:Submit, NoHide

    720. 

  720.   GoSub, GetDataForLargeList                       ;get data 

    721. 

  721. Return

    722. 

  722. 

    723. 

  723. GetDataForLargeList:

    724. 

  724.   If (RadList1 = 1){                   ;get data depending on choice

    725. 

  725.       WindowUniqueID = %EdtWindowUID%

    726. 

  726.       If EdtWindowUID is not space

    727. 

  727.           GoSub, GetControlListInfo

    728. 

  728.     }

    729. 

  729.   Else

    730. 

  730.       GoSub, GetAllWindowsInfo   

    731. 

  731. Return

    732. 

  732. 

    733. 

  733. RefreshControlStates:

    734. 

  734.   Gui, 1:Submit, NoHide                   ;get current values of all controls

    735. 

  735.   StringSplit, Dim, CbbColorPickDim, x    ;prepare color picker dimensions

    736. 

  736.   Dim = %Dim1%

    737. 

  737.   HalfDim := Dim // 2 + 1

    738. 

  738.   Loop, 15 {

    739. 

  739.       Row = %A_Index%

    740. 

  740.       Loop, 15

    741. 

  741.           GuiControl, 1:+BackgroundDefault ,PgbColorPicker%Row%_%A_Index%

    742. 

  742.     }

    743. 

  743. Return

    744. 

  744. 

    745. 

  745. ChkDrawRectCtrl:

    746. 

  746.   GuiControlGet, ChkDrawRectCtrl, 1:      ;get current value

    747. 

  747.   GoSub, PrepareFrameDraw

    748. 

  748.   ToolTip, , , , 2

    749. 

  749. Return

    750. 

  750. 

    751. 

  751. ChkDrawRectWin:

    752. 

  752.   GuiControlGet, ChkDrawRectWin, 1:       ;get current value

    753. 

  753.   GoSub, PrepareFrameDraw

    754. 

  754.   ToolTip, , , , 3

    755. 

  755. Return

    756. 

  756. 

    757. 

  757. ;###############################################################################

    758. 

  758. ;###   GUI actions   ###########################################################

    759. 

  759. ;###############################################################################

    760. 

  760. 

    761. 

  761. GuiSize:

    762. 

  762.   If (A_EventInfo = 0) {   ;restored, or resized

    763. 

  763.       GuiControl, 1:Move, Tab1, h%A_GuiHeight% 

    764. 

  764.       w := A_GuiWidth - 290

    765. 

  765.       h := A_GuiHeight - 22

    766. 

  766.       GuiControl, 1:Move, LV1, w%w% h%h%

    767. 

  767.       h -= 143

    768. 

  768.       GuiControl, 1:Move, GrbAdvancedWindow, h%h%

    769. 

  769.       h := (h - 218) / 2

    770. 

  770.       GuiControl, 1:Move, EdtWindowTextFastVisible, h%h%

    771. 

  771.       GuiControl, 1:Move, EdtWindowTextFastHidden, h%h%

    772. 

  772.       y := A_GuiHeight - h - 24

    773. 

  773.       GuiControl, 1:Move, TxtWindowTextSlowVisible, y%y%

    774. 

  774.       GuiControl, 1:Move, TxtWindowTextSlowHidden, y%y%

    775. 

  775.       y += 15

    776. 

  776.       GuiControl, 1:Move, EdtWindowTextSlowVisible, y%y% h%h%

    777. 

  777.       GuiControl, 1:Move, EdtWindowTextSlowHidden, y%y% h%h%

    778. 

  778.       If (LastEventInfo = 1){    ;Gui got restored

    779. 

  779.           ;start updating again

    780. 

  780.           UpdateIsStopped := False

    781. 

  781.           ;reactivate frame

    782. 

  782.           GoSub, PrepareFrameDraw

    783. 

  783.         }

    784. 

  784.   }Else If (A_EventInfo = 1) {   ;minimized

    785. 

  785.       ;stop updating

    786. 

  786.       UpdateIsStopped := True

    787. 

  787.       ;remove frames

    788. 

  788.       GoSub, PrepareFrameDraw

    789. 

  789.     }

    790. 

  790.   LastEventInfo = %A_EventInfo%

    791. 

  791. Return

    792. 

  792. 

    793. 

  793. WriteIni:

    794. 

  794.   Gui, 1:Submit, NoHide

    795. 

  795.   WinGetPos, PosX, PosY, SizeW, SizeH, %WinNameGui1%

    796. 

  796.   Loop, 2

    797. 

  797.       If (RadList%A_Index% = 1)

    798. 

  798.           IniWrite, %A_Index%    , %IniFile%, Settings, SelectedRadList

    799. 

  799.   If (PosX > -4 and PosY > -4)

    800. 

  800.       IniWrite, x%PosX% y%PosY%      , %IniFile%, Settings, Gui1Pos

    801. 

  801.   IniWrite, %Gui1AOTState%       , %IniFile%, Settings, Gui1AOTState

    802. 

  802.   IniWrite, %Tab1%               , %IniFile%, Settings, Tab1

    803. 

  803.   IniWrite, %RadWindow%          , %IniFile%, Settings, RadWindow

    804. 

  804.   IniWrite, %RadControl%         , %IniFile%, Settings, RadControl

    805. 

  805.   IniWrite, %ChkShowList%        , %IniFile%, Settings, ChkShowList

    806. 

  806.   IniWrite, %HtkPauseAction%     , %IniFile%, Settings, HtkPauseAction

    807. 

  807.   IniWrite, %ChkCopyToCB%        , %IniFile%, Settings, ChkCopyToCB

    808. 

  808.   IniWrite, %ChkHideGui%         , %IniFile%, Settings, ChkHideGui

    809. 

  809.   IniWrite, %ChkUseSaveHotkey%   , %IniFile%, Settings, ChkUseSaveHotkey

    810. 

  810.   

    811. 

  811.   Loop, Parse, ExportOptions, `,

    812. 

  812.       IniWrite, % %A_LoopField%  , %IniFile%, Export  , %A_LoopField%

    813. 

  813.   IniWrite, %EdtExportFile%      , %IniFile%, Export  , EdtExportFile          

    814. 

  814.   IniWrite, %ChkExportAutoNumber%, %IniFile%, Export  , ChkExportAutoNumber

    815. 

  815.   IniWrite, %ChkExportAppend%    , %IniFile%, Export  , ChkExportAppend

    816. 

  816.   IniWrite, %ChkShowInfoToolTip% , %IniFile%, Advanced, ChkShowInfoToolTip  

    817. 

  817.   IniWrite, %ChkDrawRectCtrl%    , %IniFile%, Advanced, ChkDrawRectCtrl

    818. 

  818.   IniWrite, %ChkDrawRectWin%     , %IniFile%, Advanced, ChkDrawRectWin

    819. 

  819.   IniWrite, %ChkTtpMaster%       , %IniFile%, Advanced, ChkTtpMaster         

    820. 

  820.   IniWrite, %ChkTtpMSPos%        , %IniFile%, Advanced, ChkTtpMSPos         

    821. 

  821.   IniWrite, %ChkTtpMWPos%        , %IniFile%, Advanced, ChkTtpMWPos         

    822. 

  822.   IniWrite, %ChkTtpMColor%       , %IniFile%, Advanced, ChkTtpMColor        

    823. 

  823.   IniWrite, %ChkTtpCClass%       , %IniFile%, Advanced, ChkTtpCClass        

    824. 

  824.   IniWrite, %ChkTtpCPos%         , %IniFile%, Advanced, ChkTtpCPos          

    825. 

  825.   IniWrite, %ChkTtpCSize%        , %IniFile%, Advanced, ChkTtpCSize         

    826. 

  826.   IniWrite, %ChkTtpWClass%       , %IniFile%, Advanced, ChkTtpWClass        

    827. 

  827.   IniWrite, %ChkTtpWTitle%       , %IniFile%, Advanced, ChkTtpWTitle        

    828. 

  828.   IniWrite, %CbbUpdateInterval%  , %IniFile%, Advanced, CbbUpdateInterval   

    829. 

  829.   IniWrite, %CbbColorPickDim%    , %IniFile%, Advanced, CbbColorPickDim

    830. 

  830.   IniWrite, %RadColorPick%       , %IniFile%, Advanced, RadColorPick

    831. 

  831.   IniWrite, %ChkAutoStartUpdate% , %IniFile%, Advanced, ChkAutoStartUpdate

    832. 

  832.   IniWrite, %CbbHtkUpdate%       , %IniFile%, Advanced, CbbHtkUpdate

    833. 

  833.   IniWrite, %RadUpdateOnClick%   , %IniFile%, Advanced, RadUpdateOnClick

    834. 

  834.   IniWrite, %RadUpdateAuto%      , %IniFile%, Advanced, RadUpdateAuto

    835. 

  835. Return

    836. 

  836. 

    837. 

  837. GuiClose:

    838. 

  838. GuiEscape:

    839. 

  839.   GoSub, WriteIni

    840. 

  840.   ExitApp

    841. 

  841. Return

    842. 

  842. 

    843. 

  843. ;###############################################################################

    844. 

  844. ;###   GUI for information text   ##############################################

    845. 

  845. ;###############################################################################

    846. 

  846. 

    847. 

  847. BtnShowInfo:

    848. 

  848.   GuiControl, 1:Disable, BtnShowInfo 

    849. 

  849.   Gui, 3:+Owner1 +AlwaysOnTop +ToolWindow +Resize

    850. 

  850.   Gui, 3:Font, s8, MS Sans Serif

    851. 

  851.   Gui, 3:Add, Button, gCloseInfoGui, Close

    852. 

  852.   Gui, 3:Add, Edit, w600 h400 vEdtInfoText, %InformationText%

    853. 

  853.   Gui, 3:Show,, Info - %ScriptName%

    854. 

  854. Return

    855. 

  855. 

    856. 

  856. 3GuiClose:

    857. 

  857. 3GuiEscape:

    858. 

  858. CloseInfoGui:

    859. 

  859.   GuiControl, 1:Enable, BtnShowInfo 

    860. 

  860.   Gui, 3:Destroy

    861. 

  861. Return

    862. 

  862. 

    863. 

  863. 3GuiSize:

    864. 

  864.   w := A_GuiWidth - 20

    865. 

  865.   h := A_GuiHeight - 45

    866. 

  866.   GuiControl, 3:Move, EdtInfoText, w%w% h%h%

    867. 

  867. Return

    868. 

  868. 

    869. 

  869. ;###############################################################################

    870. 

  870. ;###   GUI for options   #######################################################

    871. 

  871. ;###############################################################################

    872. 

  872. 

    873. 

  873. BtnShowOptions1:

    874. 

  874.   ChangeToTab = 1

    875. 

  875.   GoSub, BtnShowOptions

    876. 

  876. Return

    877. 

  877. BtnShowOptions2:

    878. 

  878.   ChangeToTab = 2

    879. 

  879.   GoSub, BtnShowOptions

    880. 

  880. Return

    881. 

  881. BtnShowOptions3:

    882. 

  882.   ChangeToTab = 3

    883. 

  883.   GoSub, BtnShowOptions

    884. 

  884. Return

    885. 

  885. BtnShowOptions:

    886. 

  886.   UpdateIsStopped := True

    887. 

  887.   Hotkey, IfWinNotActive, ahk_id %Gui1UniqueID%

    888. 

  888.   Hotkey, ~%CbbHtkUpdate%, Off

    889. 

  889.   Hotkey, IfWinNotActive

    890. 

  890.   

    891. 

  891.   Gui, 1:+Disabled

    892. 

  892.   Gui, 4:+Owner1 +AlwaysOnTop +ToolWindow

    893. 

  893.   Gui, 4:Font, s8, MS Sans Serif

    894. 

  894. 

    895. 

  895.   Gui, 4:Add, Tab, Section w300 h390 vTab2 AltSubmit -Wrap, Advanced|ToolTip|Log to File 

    896. 

  896.     Gui, 4:Tab, Advanced

    897. 

  897.       Gui, 4:Add, GroupBox, w275 h73, Update data

    898. 

  898.       Gui, 4:Add, Radio, xp+10 yp+22 Checked%RadUpdateOnClick% vRadUpdateOnClick gRadUpdate, on click with

    899. 

  899.       Gui, 4:Add, ComboBox, x+5 yp-3 w80 vCbbHtkUpdate, LButton|MButton||RButton

    900. 

  900.       Gui, 4:Add, Radio, x32 y+8 Checked%RadUpdateAuto% vRadUpdateAuto gRadUpdate, automatically every milliseconds:

    901. 

  901.       Gui, 4:Add, ComboBox, x+5 yp-3 w50 vCbbUpdateInterval, 100||200|300|400|500|1000|2000

    902. 

  902. 

    903. 

  903.       Gui, 4:Add, Checkbox, x22 y+20 vChkChangePauseHotkey gChkChangePauseHotkey, Change hotkey to toogle auto-update (default: Pause)

    904. 

  904.       Gui, 4:Add, Hotkey, xp+15 y+5 w150 vHtkPauseAction gHtkPauseAction Disabled, %HtkPauseAction%

    905. 

  905.     

    906. 

  906.       Gui, 4:Add, Checkbox, xp-15 y+5 vChkHideGui Checked%ChkHideGui%, Hide/Show GUI with above hotkey`;`nbefore the GUI is shown data will be collected  

    907. 

  907.       Gui, 4:Add, Checkbox, y+5 vChkAutoStartUpdate Checked%ChkAutoStartUpdate%, Start updating of data again when Gui gets inactive`nafter auto-update has been turned off. 

    908. 

  908.       Gui, 4:Add, Checkbox, y+5 vChkCopyToCB Checked%ChkCopyToCB%, Copy data to clipboard with left click on data field  

    909. 

  909. 

    910. 

  910.       Gui, 4:Add, Text, y+20, When update is turned off:

    911. 

  911.       Gui, 4:Add, Checkbox, vChkUseSaveHotkey Checked%ChkUseSaveHotkey%, Use Win+S as hotkey to log data to file

    912. 

  912.                                                          

    913. 

  913.       Gui, 4:Add, Checkbox, y+20 Section vChkShowInfoToolTip Checked%ChkShowInfoToolTip%, Show info-tooltips

    914. 

  914.     Gui, 4:Tab, ToolTip

    915. 

  915.       Gui, 4:Add, Text, , Check which data you want to see next to the mouse cursor

    916. 

  916.       Gui, 4:Add, Checkbox, vChkTtpMSPos Checked%ChkTtpMSPos%, Mouse position on screen *

    917. 

  917.       Gui, 4:Add, Checkbox, vChkTtpMWPos Checked%ChkTtpMWPos%, Mouse position on window

    918. 

  918.       Gui, 4:Add, Checkbox, vChkTtpMColor Checked%ChkTtpMColor%, Color under mouse pointer

    919. 

  919.       Gui, 4:Add, Checkbox, vChkTtpCClass Checked%ChkTtpCClass%, Control class under mouse pointer *

    920. 

  920.       Gui, 4:Add, Checkbox, vChkTtpCPos Checked%ChkTtpCPos%, Control position

    921. 

  921.       Gui, 4:Add, Checkbox, vChkTtpCSize Checked%ChkTtpCSize%, Control size

    922. 

  922.       Gui, 4:Add, Checkbox, vChkTtpWClass Checked%ChkTtpWClass%, Window class *                

    923. 

  923.       Gui, 4:Add, Checkbox, vChkTtpWTitle Checked%ChkTtpWTitle%, Window title *                         

    924. 

  924.       Gui, 4:Add, Text, , (* = available when Gui is hidden)

    925. 

  925.     Gui, 4:Tab, Log to File

    926. 

  926.       Gui, 4:Add, GroupBox, Section w274 h70 , Log this Mouse Data

    927. 

  927.         Gui, 4:Add, Checkbox, vChkExportMousePosScreen Checked%ChkExportMousePosScreen% xs+4 yp+18, Position on Screen 

    928. 

  928.         Gui, 4:Add, Checkbox, vChkExportMousePosAWin   Checked%ChkExportMousePosAWin%   xs+125 yp, Pos. rel. to active Window 

    929. 

  929.         Gui, 4:Add, Checkbox, vChkExportMousePosWin    Checked%ChkExportMousePosWin%    xs+4 y+5, Pos. rel. to Window 

    930. 

  930.         Gui, 4:Add, Checkbox, vChkExportMousePointer   Checked%ChkExportMousePointer%   xs+125 yp, Cursor Style 

    931. 

  931.         Gui, 4:Add, Checkbox, vChkExportMouseColorRGB  Checked%ChkExportMouseColorRGB%  xs+4 y+5, RGB Color 

    932. 

  932.         Gui, 4:Add, Checkbox, vChkExportMouseColorHex  Checked%ChkExportMouseColorHex%  xs+125 yp, Hex Color 

    933. 

  933.       Gui, 4:Add, GroupBox, xs w274 h75 , Log this Control Data 

    934. 

  934.         Gui, 4:Add, Checkbox, vChkExportCtrlText  Checked%ChkExportCtrlText%            xs+4 yp+18, Control Text 

    935. 

  935.         Gui, 4:Add, Checkbox, vChkExportCtrlClass Checked%ChkExportCtrlClass%           xs+125 yp, Control ClassNN 

    936. 

  936.         Gui, 4:Add, Checkbox, vChkExportCtrlPos   Checked%ChkExportCtrlPos%             xs+4 y+5, Control Position 

    937. 

  937.         Gui, 4:Add, Checkbox, vChkExportCtrlSize  Checked%ChkExportCtrlSize%            xs+125 yp, Control Size 

    938. 

  938.         Gui, 4:Add, Checkbox, vChkExportCtrlListItems  Checked%ChkExportCtrlListItems%  xs+4 y+5, Control List Items 

    939. 

  939.       Gui, 4:Add, GroupBox, xs w274 h110 , Log this Window Data 

    940. 

  940.         Gui, 4:Add, Checkbox, vChkExportWinTitle       Checked%ChkExportWinTitle%       xs+4 yp+18, Window Title 

    941. 

  941.         Gui, 4:Add, Checkbox, vChkExportWinPos         Checked%ChkExportWinPos%         xs+4 y+5, Window Position 

    942. 

  942.         Gui, 4:Add, Checkbox, vChkExportWinSize        Checked%ChkExportWinSize%        xs+125 yp, Window Size 

    943. 

  943.         Gui, 4:Add, Checkbox, vChkExportWinClass       Checked%ChkExportWinClass%       xs+4 y+5, Window Class 

    944. 

  944.         Gui, 4:Add, Checkbox, vChkExportWinProcess     Checked%ChkExportWinProcess%     xs+125 yp, Window Process 

    945. 

  945.         Gui, 4:Add, Checkbox, vChkExportWinUID         Checked%ChkExportWinUID%         xs+4 y+5, Window Unique ID 

    946. 

  946.         Gui, 4:Add, Checkbox, vChkExportWinPID         Checked%ChkExportWinPID%         xs+125 yp, Win Process ID 

    947. 

  947.         Gui, 4:Add, Checkbox, vChkExportWinStatusText  Checked%ChkExportWinStatusText%  xs+4 y+5, Statusbar Text 

    948. 

  948.         Gui, 4:Add, Checkbox, vChkExportWinText        Checked%ChkExportWinText%        xs+125 yp, Window Text 

    949. 

  949.     

    950. 

  950.       Gui, 4:Add, Checkbox, xs y+16 vChkExportLargeList  Checked%ChkExportLargeList%, Log Large List         Check:

    951. 

  951.     

    952. 

  952.       Gui, 4:Add, Button, x+2 yp-5 gBtnExportCheckAll, All 

    953. 

  953.       Gui, 4:Add, Button, x+2 gBtnExportCheckNone , None 

    954. 

  954.       Gui, 4:Add, Button, x+2 gBtnExportCheckReverse , Rev

    955. 

  955.     

    956. 

  956.       Gui, 4:Add, Text, xs y+5, Additional log options:

    957. 

  957.       Gui, 4:Add, Checkbox, y+5 Section vChkExportAutoNumber gChkExportAutoNumber Checked%ChkExportAutoNumber%, Replace "#" in filename with Numbers

    958. 

  958.       Gui, 4:Add, Checkbox, y+5 vChkExportAppend gChkExportAppend Checked%ChkExportAppend%, Append data to file

    959. 

  959.   Gui, 4:Tab

    960. 

  960. 

    961. 

  961.   Gui, 4:Add, Button, xm gApplyOptions, Apply Options

    962. 

  962.   Gui, 4:Add, Button, x+5 g4GuiClose, Cancel

    963. 

  963. 

    964. 

  964.   If RadUpdateOnClick {

    965. 

  965.       GuiControl, 4:Disable, ChkChangePauseHotkey

    966. 

  966.       GuiControl, 4:Disable, ChkHideGui

    967. 

  967.       GuiControl, 4:Disable, ChkAutoStartUpdate

    968. 

  968.     }

    969. 

  969.   GuiControl, 4:ChooseString, CbbHtkUpdate, %CbbHtkUpdate%

    970. 

  970.   GuiControl, 4:ChooseString, CbbUpdateInterval, %CbbUpdateInterval%

    971. 

  971.   GoSub, ChkExportAutoNumber

    972. 

  972.   GoSub, ChkExportAppend

    973. 

  973.   GuiControl, 4:Choose, Tab2, %ChangeToTab%

    974. 

  974. 

    975. 

  975.   Gui, 4:Show,, Options - %ScriptName%

    976. 

  976. Return

    977. 

  977. 

    978. 

  978. RadUpdate:

    979. 

  979.   If (A_GuiControl = "RadUpdateOnClick"){

    980. 

  980.       GuiControl, 4:, RadUpdateAuto, 0

    981. 

  981.       GuiControl, 4:, ChkChangePauseHotkey, 0

    982. 

  982.       GuiControl, 4:Disable, ChkChangePauseHotkey

    983. 

  983.       GuiControl, 4:Disable, HtkPauseAction

    984. 

  984.       GuiControl, 4:, ChkHideGui, 0

    985. 

  985.       GuiControl, 4:Disable, ChkHideGui

    986. 

  986.       GuiControl, 4:, ChkAutoStartUpdate, 0

    987. 

  987.       GuiControl, 4:Disable, ChkAutoStartUpdate

    988. 

  988.   }Else{

    989. 

  989.       GuiControl, 4:, RadUpdateOnClick, 0

    990. 

  990.       GuiControl, 4:Enable, ChkChangePauseHotkey

    991. 

  991.       GuiControl, 4:Enable, ChkHideGui

    992. 

  992.       GuiControl, 4:Enable, ChkAutoStartUpdate

    993. 

  993.       GuiControl, 4:, ChkAutoStartUpdate, 1

    994. 

  994.     }

    995. 

  995. Return

    996. 

  996. 

    997. 

  997. ApplyOptions:

    998. 

  998.   Gui, 4:Submit

    999. 

  999.   If ChkCopyToCB

    1000. 

  1000.       OnMessage( WM_LBUTTONDOWN, "WM_LBUTTONDOWN" )   ;activate copy-on-click

    1001. 

  1001.   Else

    1002. 

  1002.       OnMessage( WM_LBUTTONDOWN, "" )                 ;deactivate copy-on-click

    1003. 

  1003.   If ChkAutoStartUpdate

    1004. 

  1004.       OnMessage(WM_ACTIVATE, "WM_ACTIVATE")       ;activate auto-start updating at Gui inactivity

    1005. 

  1005.   Else

    1006. 

  1006.       OnMessage(WM_ACTIVATE, "" )                 ;deactivate auto-start updating

    1007. 

  1007.   If RadUpdateAuto {

    1008. 

  1008.       SetTimer, UpdateInfo, %CbbUpdateInterval%

    1009. 

  1009.   }Else{

    1010. 

  1010.       SetTimer, UpdateInfo, Off

    1011. 

  1011.       Hotkey, IfWinNotActive, ahk_id %Gui1UniqueID%

    1012. 

  1012.       Hotkey, ~%CbbHtkUpdate%, UpdateOnClick, On

    1013. 

  1013.       Hotkey, IfWinNotActive

    1014. 

  1014.     }

    1015. 

  1015.   GoSub, PauseAction  

    1016. 

  1016. 4GuiClose:

    1017. 

  1017. 4GuiEscape:

    1018. 

  1018.   UpdateIsStopped := False

    1019. 

  1019.   Gui, 1:-Disabled

    1020. 

  1020.   Gui, 4:Destroy

    1021. 

  1021. Return

    1022. 

  1022. 

    1023. 

  1023. ChkChangePauseHotkey:

    1024. 

  1024.   GuiControlGet, ChkChangePauseHotkey, 4:      ;get current value

    1025. 

  1025.   If ChkChangePauseHotkey {

    1026. 

  1026.       ;de-activate current auto-update toggle hotkey

    1027. 

  1027.       HotKey, %HtkPauseAction%, Off

    1028. 

  1028.       GuiControl, 4:Enable, HtkPauseAction

    1029. 

  1029.   }Else

    1030. 

  1030.       GoSub, HtkPauseAction

    1031. 

  1031. Return

    1032. 

  1032. 

    1033. 

  1033. HtkPauseAction:

    1034. 

  1034.   GuiControlGet, HtkPauseAction, 4:      ;get current value

    1035. 

  1035.   If HtkPauseAction {

    1036. 

  1036.       If HtkPauseAction in ^,+,!         ;don't react on simple modifiers

    1037. 

  1037.           return

    1038. 

  1038.       ;activate new auto-update toggle hotkey

    1039. 

  1039.       HotKey, %HtkPauseAction%, PauseAction, On

    1040. 

  1040.       GuiControl, 4:Disable, HtkPauseAction

    1041. 

  1041.       GuiControl, 4:, ChkChangePauseHotkey, 0

    1042. 

  1042.   }Else{

    1043. 

  1043.       GuiControl, 4:, ChkChangePauseHotkey, 1

    1044. 

  1044.       GuiControl, 4:Enable, HtkPauseAction

    1045. 

  1045.       ToolTip("You need to specify a hotkey", 2000)          

    1046. 

  1046.     }

    1047. 

  1047. Return

    1048. 

  1048. 

    1049. 

  1049. BtnExportCheckAll:

    1050. 

  1050.   Loop, Parse, ExportOptions, `,

    1051. 

  1051.       GuiControl, 4:, %A_LoopField%, 1

    1052. 

  1052. Return

    1053. 

  1053. BtnExportCheckNone:

    1054. 

  1054.   Loop, Parse, ExportOptions, `,

    1055. 

  1055.       GuiControl, 4:, %A_LoopField%, 0

    1056. 

  1056. Return

    1057. 

  1057. BtnExportCheckReverse:

    1058. 

  1058.   Gui, 1:Submit, NoHide

    1059. 

  1059.   Loop, Parse, ExportOptions, `,

    1060. 

  1060.       GuiControl, 4:, %A_LoopField%, % not %A_LoopField%

    1061. 

  1061. Return

    1062. 

  1062. ChkExportAutoNumber:

    1063. 

  1063.   Gui, 4:Submit, NoHide

    1064. 

  1064.   If ChkExportAutoNumber

    1065. 

  1065.       GuiControl, 4:Disable, ChkExportAppend

    1066. 

  1066.   Else

    1067. 

  1067.       GuiControl, 4:Enable, ChkExportAppend   

    1068. 

  1068. Return

    1069. 

  1069. ChkExportAppend:

    1070. 

  1070.   Gui, 4:Submit, NoHide

    1071. 

  1071.   If ChkExportAppend

    1072. 

  1072.       GuiControl, 4:Disable, ChkExportAutoNumber

    1073. 

  1073.   Else

    1074. 

  1074.       GuiControl, 4:Enable, ChkExportAutoNumber   

    1075. 

  1075. Return

    1076. 

  1076. 

    1077. 

  1077. ;###############################################################################

    1078. 

  1078. ;###   getting the data    #####################################################

    1079. 

  1079. ;###############################################################################

    1080. 

  1080. 

    1081. 

  1081. UpdateInfo:

    1082. 

  1082.   If UpdateIsStopped

    1083. 

  1083.       Return

    1084. 

  1084.   

    1085. 

  1085.   If (WinActive("A") = Gui1UniqueID )    ;don't update when window becomes the active one

    1086. 

  1086.       Return

    1087. 

  1087.  

    1088. 

  1088.   If (Tab1 > 3 )    ;don't update when tab 4 or tab 5 are visible

    1089. 

  1089.       Return

    1090. 

  1090.       

    1091. 

  1091.   SetBatchLines, -1

    1092. 

  1092.   

    1093. 

  1093.   ;get mouse pos and make sure mouse is not on frames or tooltips or on it's own gui

    1094. 

  1094.   MouseIsOnFrameGUI := False

    1095. 

  1095.   GoSub,…
    1096.