Jump to content

SciTE PlusBar

ioa747

By ioa747,
in AutoIt Example Scripts

 Share

Recommended Posts

ioa747 Universalist

ioa747

Posted
  • Author
Posted

UpDate to Version 1.0.0.30

The biggest change in this release is the AUTOEXEC folder.
Any .au3 file we put in, starts with the  PlusBar and ends when the PlusBar ends
Other improvements were made (and in the external commands), such as those related to the detection of SciTE, and AutoIT,
and others that are not worth mentioning


Please leave your comments and impressions here
Thanks !  :)

The update is in the first post
Back to first post

I know that I know nothing

Link to comment
Share on other sites
  • Replies 47
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

ioa747
ioa747

SciTE PlusBar    a attached Menu bar for SciTE     Version 1.0.0.32    SciTE_PlusBar.zip   Please, leave your comments and experiences here Thanks ! 

ioa747
ioa747

The first time it runs the SciTE PlusBar the Configuration window appears   which, in addition to the adjustments it makes regarding the position of  PlusBar, every time it appear, it c

ioa747
ioa747

@bladem2003 Thank you very much. I searched a lot to find it, finally this found me, thanks to you, I appreciate it   I updated the PutSelectedInRegion.au3

Posted Images

ioa747 Universalist

ioa747

Posted
  • Author
Posted (edited)

GetMenuInfo.png  CaptureMenuInfo.au3

Capture Menu Information from selected win 

; https://www.autoitscript.com/forum/topic/208404-scite-plusbar/page/3/#comment-1518488
;------------------------------------------------------------------------------
; Title...........: CaptureMenuInfo.au3
; Description.....: Capture Menu Information from selected win
;------------------------------------------------------------------------------
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\ICO\GetMenuInfo.ico
#AutoIt3Wrapper_Res_Description=Capture Menu Information from selected win
#AutoIt3Wrapper_Res_Fileversion=0.0.0.10
#AutoIt3Wrapper_Res_ProductName=CaptureMenuInfo.au3
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <MsgBoxConstants.au3>
#include <GuiMenu.au3>

CaptureMenuInfo()

;-----------------------------------------------------------------------------------
Func CaptureMenuInfo() ; Capture Menu Information

    Local $hWnd, $hMenu, $Txt

    Local $iMsgBoxAnswer, $Msg
    $Msg = "First Select (Activate) the window" & @CRLF _
             & " you wand the information " & @CRLF _
             & "and then click ok"

    $iMsgBoxAnswer = MsgBox($MB_OKCANCEL + $MB_TOPMOST + $MB_ICONINFORMATION, "Get Menu Information", $Msg)

    Select
        Case $iMsgBoxAnswer = 1 ;OK
            ; ok
        Case $iMsgBoxAnswer = 2 ;Cancel
            Return False
    EndSelect

    ; Retrieve the class of the active window.
    $hWnd = WinGetHandle("[ACTIVE]")
    Local $pClassName = DllStructCreate("char[256]")
    DllCall("user32.dll", "int", "GetClassName", "hwnd", $hWnd, "ptr", DllStructGetPtr($pClassName), "int", 255)
    Local $cText = DllStructGetData($pClassName, 1)


    $hWnd = WinGetHandle("[CLASS:" & $cText & "]")
    $hMenu = _GUICtrlMenu_GetMenu($hWnd)

    Local $sTitle = WinGetTitle($hWnd)

    Local Const $sFilePath = @DesktopDir & "\Menu-Information.txt"

    Local $hFileOpen = FileOpen($sFilePath, $FO_OVERWRITE + $FO_CREATEPATH + $FO_UTF8)
    If $hFileOpen = -1 Then
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred whilst writing the txt file.")
        Return False
    EndIf

    FileWriteLine($hFileOpen, "Window title: " & $sTitle)

    Local $mCount, $m, $hSubMenu
    ; Display system menu
    $mCount = _GUICtrlMenu_GetItemCount($hMenu)
    FileWriteLine($hFileOpen, "Menu handle: 0x" & Hex($hMenu))
    FileWriteLine($hFileOpen, "SubMenu count: " & $mCount)
    FileWriteLine($hFileOpen, " ")
    For $m = 0 To $mCount - 1
        FileWriteLine($hFileOpen, "-----------------------------------------------------------------------")
        FileWriteLine($hFileOpen, "SubMenu " & $m & ": " & _GUICtrlMenu_GetItemText($hMenu, $m))
        FileWriteLine($hFileOpen, "-----------------------------------------------------------------------")
        $hSubMenu = _GUICtrlMenu_GetItemSubMenu($hMenu, $m)

        Local $sCount, $s
        ; Display system menu
        $sCount = _GUICtrlMenu_GetItemCount($hSubMenu)
        FileWriteLine($hFileOpen, @TAB & "SubMenu handle: 0x" & Hex($hSubMenu))
        FileWriteLine($hFileOpen, @TAB & "Item count: " & $sCount)
        FileWriteLine($hFileOpen, " ")
        For $s = 0 To $sCount - 1
            FileWriteLine($hFileOpen, @TAB & "Item " & $s & ": " & _GUICtrlMenu_GetItemText($hSubMenu, $s))
        Next
        FileWriteLine($hFileOpen, " ")

    Next

    FileClose($hFileOpen)
    Sleep(50)
    ShellExecute($sFilePath)

EndFunc   ;==>CaptureMenuInfo
;--------------------------------------------------------------------------------------------

 

Back to first post

 

Edited by ioa747
UpDate to Version 0.0.0.10

I know that I know nothing

Link to comment
Share on other sites
ioa747 Universalist

ioa747

Posted
  • Author
Posted

HelpForum.png  HelpForum.au3

Search the selected word in AutoIT forum 

; https://www.autoitscript.com/forum/topic/208404-scite-plusbar/page/3/#comment-1518488
;------------------------------------------------------------------------------
; Title...........: HelpForum.au3
; Description.....: Search the selected word in AutoIT forum
;------------------------------------------------------------------------------
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\ICO\HelpForum.ico
#AutoIt3Wrapper_Res_Description=Search the selected word in AutoIT forum
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_ProductName=HelpForum.au3
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <WindowsConstants.au3>
#include <SendMessage.au3>

Local $hWnd = WinActivate("[CLASS:SciTEWindow]")
Local $ClipBack = ClipGet() ; backup clip data
Local $sCtrlNN = ControlGetFocus($hWnd)
Local $hCtrlHnd = ControlGetHandle($hWnd, '', $sCtrlNN)
_SendMessage($hCtrlHnd, $WM_COPY)
Sleep(10)
Local $sData = ClipGet()
ShellExecute("https://www.autoitscript.com/forum/search/?q=" & $sData & "&quick=1")
ClipPut($ClipBack) ; Restore clip data

 

Back to first post

 

I know that I know nothing

Link to comment
Share on other sites
ioa747 Universalist

ioa747

Posted
  • Author
Posted

Koda.png KodaOO.au3

Koda open & order 

; https:
;----------------------------------------------------------------------------------------
; Title...........: KodaOO.au3
; Description.....: Koda open & order
;----------------------------------------------------------------------------------------
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\ICO\Koda.ico
#AutoIt3Wrapper_Res_Description=Koda open & order
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_ProductName=KodaOO.au3
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****


Global $AutoItHome = StringLeft(@AutoItExe, StringInStr(@AutoItExe, "\", 2, -1) - 1)

ShellExecute($AutoItHome & "\SciTE\Koda\FD.exe")

Global $hWin = WinWait("oda FormDesigner", "", 3)
If WinExists($hWin) Then
    WinMove($hWin, "", -7, 0, 820, 130)
EndIf

If WinExists("Object TreeView") Then
    WinMove("Object TreeView", "", -7, 130, 220, 240)
EndIf

If WinExists("Object Inspector") Then
    WinMove("Object Inspector", "", -7, 370, 220, 490)
EndIf

If WinExists("Form1") Then
    WinMove("Form1", "", 205, 130, 610, 365)
EndIf

 

Back to first post

 

I know that I know nothing

Link to comment
Share on other sites
ioa747 Universalist

ioa747

Posted
  • Author
Posted (edited)

 ArrayDislpay.png  ShowMacros.au3

an arraydisplay with all the macro names and their values

  a good addition from @OJBakker in the post   - Thanks for that 

; https://www.autoitscript.com/forum/topic/208404-scite-plusbar/page/3/#comment-1518749
;------------------------------------------------------------------------------
; Title...........: ShowMacros.au3
; Description.....: an arraydisplay with all the macro names and their values
;------------------------------------------------------------------------------
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\ICO\ArrayDislpay.ico
#AutoIt3Wrapper_Res_Description=an arraydisplay with all the macro names and their values
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_ProductName=ShowMacros.au3
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;🏆 @OJBakker https://www.autoitscript.com/forum/topic/139260-autoit-snippets/?do=findComment&comment=1514445

#include <Array.au3>
#include <Debug.au3>

AutoItSetOption("MustDeclareVars", 1)

Local $asMacroNames = [ _
        "@AppDataCommonDir", "@AppDataDir", "@AutoItExe", "@AutoItPID", "@AutoItVersion", "@AutoItX64", "@COM_EventObj", "@CommonFilesDir", _
        "@Compiled", "@ComputerName", "@ComSpec", "@CPUArch", "@CR", "@CRLF", "@DesktopCommonDir", "@DesktopDepth", "@DesktopDir", "@DesktopHeight", _
        "@DesktopRefresh", "@DesktopWidth", "@DocumentsCommonDir", "@error", "@exitCode", "@exitMethod", "@extended", _
        "@FavoritesCommonDir", "@FavoritesDir", "@GUI_CtrlHandle", "@GUI_CtrlId", "@GUI_DragFile", "@GUI_DragId", "@GUI_DropId", "@GUI_WinHandle", _
        "@HomeDrive", "@HomePath", "@HomeShare", "@HotKeyPressed", "@HOUR", "@IPAddress1", "@IPAddress2", "@IPAddress3", "@IPAddress4", "@KBLayout", "@LF", _
        "@LocalAppDataDir", "@LogonDNSDomain", "@LogonDomain", "@LogonServer", "@MDAY", "@MIN", "@MON", "@MSEC", "@MUILang", "@MyDocumentsDir", _
        "@NumParams", "@OSArch", "@OSBuild", "@OSLang", "@OSServicePack", "@OSType", "@OSVersion", "@ProgramFilesDir", "@ProgramsCommonDir", "@ProgramsDir", _
        "@ScriptDir", "@ScriptFullPath", "@ScriptLineNumber", "@ScriptName", "@SEC", "@StartMenuCommonDir", "@StartMenuDir", "@StartupCommonDir", "@StartupDir", _
        "@SW_DISABLE", "@SW_ENABLE", "@SW_HIDE", "@SW_LOCK", "@SW_MAXIMIZE", "@SW_MINIMIZE", "@SW_RESTORE", "@SW_SHOW", "@SW_SHOWDEFAULT", "@SW_SHOWMAXIMIZED", _
        "@SW_SHOWMINIMIZED", "@SW_SHOWMINNOACTIVE", "@SW_SHOWNA", "@SW_SHOWNOACTIVATE", "@SW_SHOWNORMAL", "@SW_UNLOCK", "@SystemDir", "@TAB", "@TempDir", "@TRAY_ID", _
        "@TrayIconFlashing", "@TrayIconVisible", "@UserName", "@UserProfileDir", "@WDAY", "@WindowsDir", "@WorkingDir", "@YDAY", "@YEAR", "@NoMacro"]
; above are the macro's from autoit v3.3.16.1 These can also be found in file au3check.dat but than a compiled script (exe) would need to know where to find this file.

Local $sMacroValue
Local $aMacroArray[UBound($asMacroNames)][4]

For $k = 0 To UBound($asMacroNames) - 1
    $aMacroArray[$k][0] = $asMacroNames[$k]
    $aMacroArray[$k][1] = ""
    $aMacroArray[$k][2] = Execute($asMacroNames[$k])
    If @error Then
        $aMacroArray[$k][1] = "N/A"
        $aMacroArray[$k][3] = ""
        $sMacroValue = "          "
        Switch $asMacroNames[$k]
            Case "@COM_EventObj"
                $sMacroValue &= "Only valid in a COM even function"
            Case "@GUI_CtrlId", "@GUI_CtrlHandle", "@GUI_WinHandle"
                $sMacroValue &= "Only valid in an event function"
            Case "@GUI_DragFile", "@GUI_DragId", "@GUI_DropId"
                $sMacroValue &= "Only valid in a drop event function"
            Case "@exitCode", "@exitMethod"
                $sMacroValue &= "Only valid in a function in OnAutoItExitRegister"
            Case "@TRAY_ID"
                $sMacroValue &= "Only valid in Tray event function"
            Case Else
                $sMacroValue &= "Not a valid macro"
        EndSwitch
        $aMacroArray[$k][2] = $sMacroValue
    Else ; hex/dec view for non-visual macro's
        $aMacroArray[$k][3] = VarGetType($aMacroArray[$k][2])
        Switch $asMacroNames[$k]
            Case "@CR", "@CRLF", "@LF", "@TAB"
                $aMacroArray[$k][2] = "Hex: " & StringToBinary($aMacroArray[$k][2]) & " Dec: " & _ArrayToString(StringToASCIIArray($aMacroArray[$k][2]), " ")
            Case "@HOUR", "@MDAY", "@MIN", "@MON", "@MSEC", "@SEC", "@WDAY", "@YDAY", "@YEAR"
                $aMacroArray[$k][2] = " now: " & $aMacroArray[$k][2] ; group these in view sort on macrovalue
        EndSwitch
    EndIf
Next
_ArrayDisplay($aMacroArray, "AutoIt Macro's Overview.  Type = VarGetType(Execute('@Macro'))", Default, $ARRAYDISPLAY_COLALIGNLEFT + $ARRAYDISPLAY_NOROW, Default, "Macro Name|Avail.|Macro Value|Type")

Back to first post

Edited by ioa747

I know that I know nothing

Link to comment
Share on other sites
ioa747 Universalist

ioa747

Posted
  • Author
Posted (edited)

ArrayDislpay.png  ShowSystemMetrics.au3

an arraydisplay with all the System Metrics Parameters names and their values 

; www.autoitscript.com/forum/topic/208404-scite-plusbar/page/3/#comment-1518750
;------------------------------------------------------------------------------
; Title...........: ShowSystemMetrics.au3
; Description.....: an arraydisplay with all the System Metrics Parameters names and their values
;------------------------------------------------------------------------------
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\ICO\ArrayDislpay.ico
#AutoIt3Wrapper_Res_Description=an arraydisplay with all the System Metrics Parameters names and their values
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_ProductName=ShowSystemMetrics.au3
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;🌍 https://www.autoitscript.com/forum/topic/209363-_systemmetricsparameterstoarray/
;~ *********** The system metric or configuration setting to be retrieved. ***********
;~ SM_ARRANGE|56|The flags that specify how the system arranged minimized windows.
;~ SM_CLEANBOOT|67|The value that specifies how the system is started: (0 Normal boot; 1 Fail-safe boot 2 Fail-safe with network boot)
;~ SM_CMONITORS|80|The number of display monitors on a desktop. For more information, see the Remarks section in this topic.
;~ SM_CMOUSEBUTTONS|43|The number of buttons on a mouse, or zero if no mouse is installed.
;~ SM_CONVERTIBLESLATEMODE|0x2003|Reflects the state of the laptop or slate mode, 0 for Slate Mode and non-zero otherwise.
;~ SM_CXBORDER|5|The width of a window border, in pixels. This is equivalent to the SM_CXEDGE value for windows with the 3-D look.
;~ SM_CXCURSOR|13|The width of a cursor, in pixels. The system cannot create cursors of other sizes.
;~ SM_CXDLGFRAME|7|This value is the same as SM_CXFIXEDFRAME.
;~ SM_CXDOUBLECLK|36|The width of the rectangle around the location of a first click in a double-click sequence, in pixels.
;~ SM_CXDRAG|68|The number of pixels on either side of a mouse-down point that the mouse pointer can move before a drag operation begins.
;~ SM_CXEDGE|45|The width of a 3-D border, in pixels. This metric is the 3-D counterpart of SM_CXBORDER.
;~ SM_CXFIXEDFRAME|7|The thickness of the frame around the perimeter of a window that has a caption but is not sizable, in pixels.
;~ SM_CXFOCUSBORDER|83|The width of the left and right edges of the focus rectangle that the DrawFocusRect draws. This value is in pixels. Windows 2000:  This value is not supported.
;~ SM_CXFRAME|32|This value is the same as SM_CXSIZEFRAME.
;~ SM_CXFULLSCREEN|16|The width of the client area for a full-screen window on the primary display monitor, in pixels.
;~ SM_CXHSCROLL|21|The width of the arrow bitmap on a horizontal scroll bar, in pixels.
;~ SM_CXHTHUMB|10|The width of the thumb box in a horizontal scroll bar, in pixels.
;~ SM_CXICON|11|The default width of an icon, in pixels.
;~ SM_CXICONSPACING|38|The width of a grid cell for items in large icon view, in pixels.
;~ SM_CXMAXIMIZED|61|The default width, in pixels, of a maximized top-level window on the primary display monitor.
;~ SM_CXMAXTRACK|59|The default maximum width of a window that has a caption and sizing borders, in pixels.
;~ SM_CXMENUCHECK|71|The width of the default menu check-mark bitmap, in pixels.
;~ SM_CXMENUSIZE|54|The width of menu bar buttons, such as the child window close button that is used in the multiple document interface, in pixels.
;~ SM_CXMIN|28|The minimum width of a window, in pixels.
;~ SM_CXMINIMIZED|57|The width of a minimized window, in pixels.
;~ SM_CXMINSPACING|47|The width of a grid cell for a minimized window, in pixels.
;~ SM_CXMINTRACK|34|The minimum tracking width of a window, in pixels.
;~ SM_CXPADDEDBORDER|92|The amount of border padding for captioned windows, in pixels. Windows XP/2000:  This value is not supported.
;~ SM_CXSCREEN|0|The width of the screen of the primary display monitor, in pixels.
;~ SM_CXSIZE|30|The width of a button in a window caption or title bar, in pixels.
;~ SM_CXSIZEFRAME|32|The thickness of the sizing border around the perimeter of a window that can be resized, in pixels.
;~ SM_CXSMICON|49|The recommended width of a small icon, in pixels.
;~ SM_CXSMSIZE|52|The width of small caption buttons, in pixels.
;~ SM_CXVIRTUALSCREEN|78|The width of the virtual screen, in pixels.
;~ SM_CXVSCROLL|2|The width of a vertical scroll bar, in pixels.
;~ SM_CYBORDER|6|The height of a window border, in pixels.
;~ SM_CYCAPTION|4|The height of a caption area, in pixels.
;~ SM_CYCURSOR|14|The height of a cursor, in pixels.
;~ SM_CYDLGFRAME|8|This value is the same as SM_CYFIXEDFRAME.
;~ SM_CYDOUBLECLK|37|The height of the rectangle around the location of a first click in a double-click sequence, in pixels.
;~ SM_CYDRAG|69|The number of pixels above and below a mouse-down point that the mouse pointer can move before a drag operation begins.
;~ SM_CYEDGE|46|The height of a 3-D border, in pixels.
;~ SM_CYFIXEDFRAME|8|The thickness of the frame around the perimeter of a window that has a caption but is not sizable, in pixels.
;~ SM_CYFOCUSBORDER|84|The height of the top and bottom edges of the focus rectangle drawn by DrawFocusRect.
;~ SM_CYFRAME|33|This value is the same as SM_CYSIZEFRAME.
;~ SM_CYFULLSCREEN|17|The height of the client area for a full-screen window on the primary display monitor, in pixels.
;~ SM_CYHSCROLL|3|The height of a horizontal scroll bar, in pixels.
;~ SM_CYICON|12|The default height of an icon, in pixels. The LoadIcon function can load only icons with the dimensions SM_CXICON and SM_CYICON.
;~ SM_CYICONSPACING|39|The height of a grid cell for items in large icon view, in pixels.
;~ SM_CYKANJIWINDOW|18|For double byte character set versions of the system, this is the height of the Kanji window at the bottom of the screen, in pixels.
;~ SM_CYMAXIMIZED|62|The default height, in pixels, of a maximized top-level window on the primary display monitor.
;~ SM_CYMAXTRACK|60|The default maximum height of a window that has a caption and sizing borders, in pixels.
;~ SM_CYMENU|15|The height of a single-line menu bar, in pixels.
;~ SM_CYMENUCHECK|72|The height of the default menu check-mark bitmap, in pixels.
;~ SM_CYMENUSIZE|55|The height of menu bar buttons, such as the child window close button that is used in the multiple document interface, in pixels.
;~ SM_CYMIN|29|The minimum height of a window, in pixels.
;~ SM_CYMINIMIZED|58|The height of a minimized window, in pixels.
;~ SM_CYMINSPACING|48|The height of a grid cell for a minimized window, in pixels.
;~ SM_CYMINTRACK|35|The minimum tracking height of a window, in pixels.
;~ SM_CYSCREEN|1|The height of the screen of the primary display monitor, in pixels.
;~ SM_CYSIZE|31|The height of a button in a window caption or title bar, in pixels.
;~ SM_CYSIZEFRAME|33|The thickness of the sizing border around the perimeter of a window that can be resized, in pixels.
;~ SM_CYSMCAPTION|51|The height of a small caption, in pixels.
;~ SM_CYSMICON|50|The recommended height of a small icon, in pixels. Small icons typically appear in window captions and in small icon view.
;~ SM_CYSMSIZE|53|The height of small caption buttons, in pixels.
;~ SM_CYVIRTUALSCREEN|79|The height of the virtual screen, in pixels. The virtual screen is the bounding rectangle of all display monitors.
;~ SM_CYVSCROLL|20|The height of the arrow bitmap on a vertical scroll bar, in pixels.
;~ SM_CYVTHUMB|9|The height of the thumb box in a vertical scroll bar, in pixels.
;~ SM_DBCSENABLED|42|Nonzero if User32.dll supports DBCS; otherwise, 0.
;~ SM_DEBUG|22|Nonzero if the debug version of User.exe is installed; otherwise, 0.
;~ SM_DIGITIZER|94|Nonzero if the current operating system is Windows 7 or Windows Server 2008 R2 and the Tablet PC Input service is started; otherwise, 0.
;~ SM_IMMENABLED|82|Nonzero if Input Method Manager/Input Method Editor features are enabled; otherwise, 0.
;~ SM_MAXIMUMTOUCHES|95|Nonzero if there are digitizers in the system; otherwise, 0.
;~ SM_MEDIACENTER|87|Nonzero if the current operating system is the Windows XP, Media Center Edition, 0 if not.
;~ SM_MENUDROPALIGNMENT|40|Nonzero if drop-down menus are right-aligned with the corresponding menu-bar item; 0 if the menus are left-aligned.
;~ SM_MIDEASTENABLED|74|Nonzero if the system is enabled for Hebrew and Arabic languages, 0 if not.
;~ SM_MOUSEPRESENT|19|Nonzero if a mouse is installed; otherwise, 0.
;~ SM_MOUSEHORIZONTALWHEELPRESENT|91|Nonzero if a mouse with a horizontal scroll wheel is installed; otherwise 0.
;~ SM_MOUSEWHEELPRESENT|75|Nonzero if a mouse with a vertical scroll wheel is installed; otherwise 0.
;~ SM_NETWORK|63|The least significant bit is set if a network is present; otherwise, it is cleared.
;~ SM_PENWINDOWS|41|Nonzero if the Microsoft Windows for Pen computing extensions are installed; zero otherwise.
;~ SM_REMOTECONTROL|0x2001|This system metric is used in a Terminal Services environment to determine if the current Terminal Server session is being remotely controlled.
;~ SM_REMOTESESSION|0x1000|This system metric is used in a Terminal Services environment. If the calling process is associated with a Terminal Services client session, the return value is nonzero.
;~ SM_SAMEDISPLAYFORMAT|81|Nonzero if all the display monitors have the same color format, otherwise, 0.
;~ SM_SECURE|44|This system metric should be ignored; it always returns 0.
;~ SM_SERVERR2|89|The build number if the system is Windows Server 2003 R2; otherwise, 0.
;~ SM_SHOWSOUNDS|70|Nonzero if the user requires an application to present information visually in situations where it would otherwise present the information only in audible form; otherwise, 0.
;~ SM_SHUTTINGDOWN|0x2000|Nonzero if the current session is shutting down; otherwise, 0. Windows 2000:  This value is not supported.
;~ SM_SLOWMACHINE|73|Nonzero if the computer has a low-end (slow) processor; otherwise, 0.
;~ SM_STARTER|88|Nonzero if the current operating system is Windows 7 Starter Edition, Windows Vista Starter, or Windows XP Starter Edition; otherwise, 0.
;~ SM_SWAPBUTTON|23|Nonzero if the meanings of the left and right mouse buttons are swapped; otherwise, 0.
;~ SM_SYSTEMDOCKED|0x2004|Reflects the state of the docking mode, 0 for Undocked Mode and non-zero otherwise.
;~ SM_TABLETPC|86|Nonzero if the current operating system is the Windows XP Tablet PC edition or if the current operating system is Windows Vista or Windows 7 and the Tablet PC Input service is started; otherwise, 0.
;~ SM_XVIRTUALSCREEN|76|The coordinates for the left side of the virtual screen. The virtual screen is the bounding rectangle of all display monitors.
;~ SM_YVIRTUALSCREEN|77|The coordinates for the top of the virtual screen. The virtual screen is the bounding rectangle of all display monitors.
;~ ***********  DO NOT CHANGE ANYTHING BEFORE THIS LINE  ***********
;----------------------------------------------------------------------------------------

#include <WinAPISys.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>

Local $Txt
Local $ParArray = _SystemMetricsParametersToArray()

For $i = 0 To UBound($ParArray) - 1
    $ParArray[$i][2] = _WinAPI_GetSystemMetrics($ParArray[$i][0]) ; Main Returned Value
    $Txt = $Txt & $ParArray[$i][0] & "|" & $ParArray[$i][1] & "|" & $ParArray[$i][2] & "|" & $ParArray[$i][3] & @CRLF
Next

_ArrayDisplay($ParArray, "Show SystemMetricsParameters", "", 0, Default, "VarValue|VarName|MainValue|Description")

;----------------------------------------------------------------------------------------
Func _SystemMetricsParametersToArray()
    ; Read the current script file into an array using the filepath.
    Local $aArray = FileReadToArray(@ScriptFullPath)
    Local $iLineCount = @extended
    Local $Parray[1][4], $index = 0

    If @error Then
        MsgBox($MB_SYSTEMMODAL, "", "There was an error reading the file. @error: " & @error) ; An error occurred reading the current script file.
    Else
        For $i = 1 To $iLineCount
            ;ConsoleWrite($i & ") " & $aArray[$i] & @CRLF)
            If StringLeft($aArray[$i], 6) = ";~ SM_" Then

                Local $TrimedString = StringTrimLeft($aArray[$i], 3)
                ;ConsoleWrite("$TrimedString=" & $TrimedString & @CRLF)

                Local $Col = StringSplit($TrimedString, "|")

                If $Col[0] < 3 Then ExitLoop

                ReDim $Parray[UBound($Parray) + 1][4]

                $index += 1
                $Parray[$index][0] = $Col[2]    ; Value
                $Parray[$index][1] = $Col[1]    ; Name
                $Parray[$index][2] = " - "      ; Main
                $Parray[$index][3] = $Col[3]    ; Tip

            Else
                If $i < 20 Then ;ignore the 20 first line
                    ConsoleWrite(@CRLF & "--> ContinueLoop in line: " & 1 + $i & @CRLF & $aArray[$i] & @CRLF & @CRLF)
                    ContinueLoop

                Else
                    ConsoleWrite(@CRLF & "--> ExitLoop in line: " & 1 + $i & @CRLF & $aArray[$i] & @CRLF & @CRLF)
                    ExitLoop
                EndIf
            EndIf

        Next
        _ArrayDelete($Parray, 0)
        Return $Parray
    EndIf

EndFunc   ;==>_SystemMetricsParametersToArray

 

Back to first post

 

Edited by ioa747

I know that I know nothing

Link to comment
Share on other sites
ioa747 Universalist

ioa747

Posted
  • Author
Posted (edited)

PlusBar MakeNewProfile

MakeNewProfile

although I originally started PlusBar as a tool for SciTE, during the programming process, I realized that with minor modifications and taking a more objective approach, it would work with other programs as an active X element.
 
Let's start with an example, what else? with the classic notepad, that everyone has in their PC
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 1*    open the Menu Editor
 
dWsSD.png

 
 

 

 

 

 

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

2*    and choose MakeNewProfile

RQ3sh.png


 

 

 

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

3*    as the MsgBox say first Select (Activate) the window you wand to track and then click OK
        open Notepad and then press OK to MsgBox  

uxNjo.png


 

 

 

 

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

4*    as Default, the PlusBar sits above the title-bar.
        From the configuration , move the PlusBar to the position you want,
        and close the configuration window

230404-131907-266_notepad_O1baZ.png


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

5*    from X we open the Menu Editor

230404-142903-905_i_view64_7iwZW.png

 

 

 

menuedit.png

 

 

 

 

 

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

6*    here I should note that the menu is divided by separator by category,
        e.g  file, edit, format, view, help
       This will only work on standard menus.
       Unfortunately, many menus in use today are actually
       custom written or toolbars "pretending" to be menus.
       This is true   for   most Microsoft applications
 

230404-144518-712_AutoIt3_47ZnR.png

 

 


 

 

 

 

 

 

 

 

 

 

 

 

 

 

The new profile for notepad is ready. All the items found in the menu are Type: 1

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

7*    here I suggest you save the original setting Default-Auto.ini with Save Setting as ...

Save.png

 

 

 

 

 

give it a name, eg main-settings.ini

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

8*    To display the new setting, press the X in PlusBar, and choose Restart

restart.png

 

 

 

 

 

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

9*    After restart the PlusBar, if we press the X in PlusBar, you will see more setting in menu
        the active setting is marked with >

settings.png

 

 

 

 

 

 

Select the new main-settings.ini setting to enable - activate the new setting.

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

10*    Then we open the Menu Editor , and deactivate unnecessary command, we rank them according to preference, and we put icons that we like
And then we click the

230728-135111-995_firefox_0oPSw.png
Save & Activate Curent Setting
 
 
p0ywO.png


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

 

 

 

Edited by ioa747
prettify

I know that I know nothing

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...