TaskPin

[ioa747]

UpDate TaskPinEditor to 0.0.0.7

 I added the ability to the executable field to accept icons with drag & drop and adjust them accordingly
if it's a script to open it  with AutoIT,  if it's a shortcut to move it to @ScriptDir & "\lnkBackUp\"  (to clear the desktop

[kurtykurtyboy]

Hey @ioa747 this is really cool and has a lot of potential.

A couple suggestions:

• In your loop while checking to see if the mouse leaves the GUI, either give a buffer area around the window or put a 500ms delay. Maybe I am just clumsy (using trackpad), but I seem to "miss" my selection every time then the GUI closes itself and I have to try again very carefully.
• I would suggest in the click event function, first hide the GUI then do the action then exit. Hiding the GUI right away lets me know that I actually clicked it. I am loading folders from SharePoint over VPN, so it takes a few seconds to open the explorer window and I keep questioning whether or not I actually clicked it. Alternatively, you could show a loading cursor instead of hiding the GUI.
• If someone doesn't change the default text for "<Tip>" then just don't set a tooltip. This is for lazy people like me.
• In the editor, I've gotten used to changing the text then clicking the blank area to apply it. But this was not intuitive to me. I would prefer to see a "Save" button, so I know for sure that my changes applied. A few times I forgot to click away before closing the window and realized it didn't actually save my change.

[ioa747]

@kurtykurtyboy   Thank you very much for your helpful suggestions, which were fair and implemented

 

New versions are available ( in the first post )
TaskPin.au3    0.0.0.8    and    TaskPinEditor.au3    0.0.0.8

 

[ioa747]

New versions are available ( in the first post )
TaskPin.au3    0.0.0.9    and    TaskPinEditor.au3    0.0.0.9

I added Dark Mode, to match to my taskbar
by following the instructions I found here
 

In pre-existing settings, you can set it manually by adding the
GuiDarkMode=1 key to the ini.file in the [GUI_Settings] section

have fun 
Thank you very much 

[Danny35d]

I like the Dark Mode matching the taskbar.  I did notice every time you executed the script it recreates the shortcut.   

The function named MakeExecuteShortcut() is missing the suffix (.TaskPin).

MakeExecuteShortcut($MyIni, '.TaskPin')

I'm not sure if this is the way you want the script to work, but I noticed it creates two shortcuts named TaskPin.TaskPin.lnk and Folders.TaskPin.lnk.  If you want one shortcut with the script name I used the code below.

Global $MyLnk = StringLeft($MyIni, StringInStr($MyIni, '\', 0, -1)) & $ScriptName & ".TaskPin.lnk"

This is more of a personal preference, at work I'm not able to install AutoIT and I needed to compile the script.  Below are the changes to run the compiled script.

Func TaskPin_Editor()
    Local $TaskPinEditor = FileGetShortName(@ScriptDir & "\TaskPinEditor.au3")
    If Not FileExists(@ScriptDir & "\TaskPinEditor.exe") Then
        Run(FileGetShortName(@AutoItExe) & ' /AutoIt3ExecuteScript "' & $TaskPinEditor & '" "' & $MyIni & '"')
    Else
        $TaskPinEditor = FileGetShortName(@ScriptDir & "\TaskPinEditor.exe")
        Run(FileGetShortName($TaskPinEditor) & ' "' & $MyIni & '"')
    EndIf
EndFunc   ;==>TaskPin_Editor

 

Func MakeExecuteShortcut($IniPath, $Suffix = ".Pin")  ; Make Execute Shortcut .execute.lnk
    Local $sDrive, $sDir, $sFileName, $sExtension
    _PathSplit($IniPath, $sDrive, $sDir, $sFileName, $sExtension)

    ; Create a constant variable in Local scope of the $Suffixcut filepath.
    Local Const $ShortFilePath = $sDrive & $sDir & $sFileName & $Suffix & ".lnk"
    Local $sArgs = ' /AutoIt3ExecuteScript "' & @ScriptFullPath & '" "' & $IniPath & '"'

    ; Create a shortcut
    Local $aSplit = IniRead($IniPath, "GUI_Settings", "GuiIcon", "")
    If $aSplit = "" Then $aSplit = "@SystemDir@\imageres.dll, 289"
    $aSplit = StringSplit($aSplit, ", ", 1)

    Local $aIcon[3]
    $aIcon[0] = ($aSplit[1]) ? ($aSplit[1]) : ("")      ;icon
    $aIcon[1] = ""                                      ;hotkey
    $aIcon[2] = ($aSplit[2]) ? ($aSplit[2]) : ("")      ;icon number

    If @Compiled Then
        $sArgs = ' "' & $IniPath & '"'
        IniWrite($MyIni, 'Folders...', 'Executable', Chr(64) & 'AutoItExe' & Chr(64) & ', ' & Chr(34) & Chr(64) & 'ScriptDir' & Chr(64) & '\Folders.ini"')
        IniWrite(@ScriptDir & '\Folders.ini', 'TaskPin...', 'Executable', Chr(64) & 'AutoItExe' & Chr(64) & ', ' & Chr(34) & Chr(64) & 'ScriptDir' & Chr(64) & '\TaskPin.ini"')
    EndIf
    If FileExists(@ScriptDir & '\TaskPinEditor.exe') Then IniWrite($MyIni, 'TaskPinEditor', 'Executable', 'TaskPinEditor.exe, ' & Chr(34) & Chr(36) & 'MyIni' & Chr(36) & Chr(34))

    FileCreateShortcut(FileGetShortName(@AutoItExe), _  ;file
            $ShortFilePath, _                           ;lnk
            $sDrive & $sDir, _                          ;workdir
            $sArgs, _                                   ;args
            "Execute: " & $sFileName & $sExtension, _   ;desc
            $aIcon[0], $aIcon[1], $aIcon[2])            ;icon

EndFunc   ;==>MakeExecuteShortcut