wakillon

I just re upload 7z archive Try again

Updated See first post

With the last version, isSlideShow.dll v1.03 (2011) the speed of transition can be set. In this example, 4 pictures are displayed at the same time in fullscreen Press ESC for exit the SlideShow Source+Dlls+Pictures are in archive isSlideShow v1.03.7z

With isSlideShow.dll v1.02 (2010), an easy to use InnoSetup plugin, we can create SlideShow with various Transition effects Jpg, png, bmp are supported #Region ;************ Includes ************ #include <GUIConstantsEx.au3> #include <File.au3> #EndRegion ;************ Includes ************ Opt('MustDeclareVars', 1) #Region ------ Global Variables ------------------------------ Global $hGui, $iGuiWidth = 600, $iGuiHeight = 450 Global $hSlideShowDll = DllOpen('isSlideShow.dll') ; InnoSetup plugin Global $aPicList, $iIndex, $iStretch = 2, $iTimer = 3000, $iTransitionEffect = 1 ; 1 = random #EndRegion ------ Global Variables ------------------------------ #Region ------ Init ------------------------------ $hGui = GUICreate('isSlideShow.dll Transition effect Example', $iGuiWidth, $iGuiHeight) $aPicList = _FileListToArray(@ScriptDir & '\Slides', '*', $FLTA_FILES, True) GUISetState() _InitializeSlideShow() _ShowImage() AdlibRegister('_ShowImage', $iTimer) #EndRegion ------ Init ------------------------------ #Region ------ Main Loop ------------------------------ While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE AdlibUnRegister('_ShowImage') _DeinitializeSlideShow() DllClose($hSlideShowDll) GUIDelete($hGui) Exit EndSwitch Sleep(30) WEnd #EndRegion ------ Main Loop ------------------------------ Func _DeinitializeSlideShow() ;~ procedure DeinitializeSlideShow Local $aRet = DllCall($hSlideShowDll, 'int', 'DeinitializeSlideShow') If Not @error Then Return $aRet[0] EndFunc ;==>_DeinitializeSlideShow Func _InitializeSlideShow() ;~ procedure InitializeSlideShow(Hwnd:Thandle; l,t,w,h:integer;Animate:boolean; Stretch:integer) Local $aRet = DllCall($hSlideShowDll, 'int', 'InitializeSlideShow', _ 'hwnd', $hGui, _ ; Window handle 'int', 0, _ ; x 'int', 0, _ ; y 'int', $iGuiWidth, _ ; w 'int', $iGuiHeight, _ ; h 'bool', True, _ ; Animate - Enable/disable 'int', $iStretch) ; Stretch - Determines the type of image stretching, Possible values : ;~ 0 - True image size. ;~ 1 - Proportional stretching of the image to the window size. ;~ 2 - Stretching the image to fill the window. If Not @error Then Return $aRet[0] EndFunc ;==>_InitializeSlideShow Func _ShowImage() ;~ Transition effect possible values: 1 - Random effect. ;~ 2 - Alpha Blend. ;~ 3 - Blocks. ;~ 4 - Circle. ;~ 5 - Diagonal. ;~ 6 - Fuse. ;~ 7 - InterLaced. ;~ 8 - Page. ;~ 9 - Radial. ;~ 10 - Roll. ;~ 11 - Waterfall. ;~ 12 - Wipe. $iIndex = ($iIndex = UBound($aPicList) - 1) ? 1 : $iIndex + 1 ;~ procedure ShowImage(ipath:PAnsiChar; Effect:integer) Local $aRet = DllCall($hSlideShowDll, 'int', 'ShowImage', 'str', $aPicList[$iIndex], 'int', $iTransitionEffect) If Not @error Then Return $aRet[0] EndFunc ;==>_ShowImage Source+Dll+Pictures are in following archive for test it SlideShow Transition effect.7z Happy New Year 🫡

Drag and drop any Control in place of an other #Region ;************ Includes ************ #include <ButtonConstants.au3> #include <GuiConstantsEx.au3> #include <WinAPIGdi.au3> #EndRegion ;************ Includes ************ Opt('MustDeclareVars', 1) #Region ------ Global Variables ------------------------------ Global $hGui, $iButtonCount = 20, $iButtonSize = 40, $idMovingButton, $iHMargin = 10, $iVMargin = 10, $idMsg, $x, $y Global $aButtonId[$iButtonCount], $aButtonPos[$iButtonCount][2], $aCursorInfo #EndRegion ------ Global Variables ------------------------------ #Region ------ Gui Creation ------------------------------ $hGui = GUICreate('', 110, 510) GUISetFont(9.5, $FW_BOLD, $GUI_FONTNORMAL, 'Consolas') GUISetBkColor(0xA8A8A8) For $i = 0 To UBound($aButtonId) - 1 $aButtonPos[$i][0] = $iVMargin + ($iVMargin + $iButtonSize) * ($i > 9) ; x coord $aButtonPos[$i][1] = $iHMargin + ($iButtonSize + $iVMargin) * $i - 500 * ($i > 9) ; y coord $aButtonId[$i] = GUICtrlCreateRadio($i + 1, _ $aButtonPos[$i][0], _ $aButtonPos[$i][1], _ $iButtonSize, _ $iButtonSize, _ BitOR($BS_ICON, $BS_PUSHLIKE, $BS_FLAT, $BS_CENTER)) GUICtrlSetCursor(-1, 0) Next GUISetState() #EndRegion ------ Gui Creation ------------------------------ #Region ------ Main Loop ------------------------------ While 1 $idMsg = GUIGetMsg() Switch $idMsg Case $GUI_EVENT_CLOSE Exit Case $GUI_EVENT_PRIMARYDOWN Sleep(150) Do $aCursorInfo = GUIGetCursorInfo($hGui) If Not @error Then $idMovingButton = $aCursorInfo[4] Until $idMovingButton If $aCursorInfo[2] Then Do $aCursorInfo = GUIGetCursorInfo($hGui) If Not @error Then ControlMove($hGui, _ '', _ $idMovingButton, _ $aCursorInfo[0] - $iButtonSize / 2, _ $aCursorInfo[1] - $iButtonSize / 2) Sleep(10) Until Not $aCursorInfo[2] $x = -1 For $i = 0 To UBound($aButtonPos) - 1 ; check if Moving ctrl is over an other ctrl If $i <> ($idMovingButton - $aButtonId[0]) And _WinAPI_PtInRectEx($aCursorInfo[0], _ $aCursorInfo[1], _ $aButtonPos[$i][0], _ ; x $aButtonPos[$i][1], _ ; y $aButtonPos[$i][0] + $iButtonSize, _ ; w $aButtonPos[$i][1] + $iButtonSize) Then ; h ControlMove($hGui, _ '', _ $aButtonId[$i], _ $aButtonPos[$idMovingButton - $aButtonId[0]][0], _ $aButtonPos[$idMovingButton - $aButtonId[0]][1]) ControlMove($hGui, _ '', _ $idMovingButton, _ $aButtonPos[$i][0], _ $aButtonPos[$i][1]) GUICtrlSetState($aButtonId[$i], $GUI_FOCUS) ; Save new positions $x = $aButtonPos[$idMovingButton - $aButtonId[0]][0] $y = $aButtonPos[$idMovingButton - $aButtonId[0]][1] $aButtonPos[$idMovingButton - $aButtonId[0]][0] = $aButtonPos[$i][0] $aButtonPos[$idMovingButton - $aButtonId[0]][1] = $aButtonPos[$i][1] $aButtonPos[$i][0] = $x $aButtonPos[$i][1] = $y ConsoleWrite('!->-- [' & StringFormat('%03i', @ScriptLineNumber) & '] Button ' & _ $idMovingButton - $aButtonId[0] + 1 & ' was moved in place of Button ' & $i + 1 & @CRLF) ExitLoop EndIf Next If $x = -1 Then ; place moved ctrl to his previous pos ControlMove($hGui, _ '', _ $idMovingButton, _ $aButtonPos[$idMovingButton - $aButtonId[0]][0], _ $aButtonPos[$idMovingButton - $aButtonId[0]][1]) ConsoleWrite('>->-- [' & StringFormat('%03i', @ScriptLineNumber) & '] Button ' & _ $idMovingButton - $aButtonId[0] + 1 & ' was moved but has been moved back to his previous position' & @CRLF) EndIf Else ConsoleWrite('+->-- [' & StringFormat('%03i', @ScriptLineNumber) & '] Button ' & _ $idMovingButton - $aButtonId[0] + 1 & ' was clicked' & @CRLF) EndIf Beep(1200, 50) EndSwitch Sleep(10) WEnd #EndRegion ------ Main Loop ------------------------------

Updated "Display Name" and Icon can now be changed by new context menu This makes it easier to identify the buttons, especially when they are folders that all have the same icon All Changes are saved in SlidingToolBar.ini file located to TempDir & "\SlidingToolBar" directory Added by default some basic special folders in the default creation of the SlidingToolBar.ini file (Rename previous one if you want to try) Ini file example, who can be easily edited Merry Christmas 🫡

MouseTail revisited A bit of fun doesn't hurt Look at tray menu for config Only tested on Win 11 MouseTail.v1.0.0.3.au3

New Version 2.1.0.4 Display modified Left click on an icon for save it with the size you want, regardless of the mode (Ordinal/Name) used The file path is indicated as ioa747 wished enumicons.au3

Trick for display your favorite directories in FileSaveDialog and FileOpenDialog with Win 11 The favorite directories are set in registry to : HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\comdlg32\Placesbar Example of Placesbar Reg File Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\comdlg32\Placesbar] "Place1"="C:\\" "Place2"="C:\\Program Files (x86)\\AutoIt3\\Include" "Place4"="D:\\" "Place0"=dword:00000011 "Place3"=dword:00000010 11 is "My Computer" and 10 the Desktop #Region ;************ Includes ************ #Include <WinAPITheme.au3> #EndRegion ;************ Includes ************ $hGui = GUICreate('', 500, 500) GUISetState() ; Default display FileSaveDialog('Save file', @WorkingDir, 'Scripts (*.au3)', $FD_PATHMUSTEXIST, '', $hGui) ; ; Display with PlacesBar _WinAPI_SetThemeAppProperties($STAP_ALLOW_NONCLIENT) FileSaveDialog('Save file', @WorkingDir, 'Scripts (*.au3)', $FD_PATHMUSTEXIST, '', $hGui) FileOpenDialog('Select a file', @WorkingDir & '\', 'Images (*.jpg;*.bmp)', $FD_FILEMUSTEXIST, '', $hGui) ; ; Reset default display _WinAPI_SetThemeAppProperties(-1) FileSaveDialog('Save file', @WorkingDir, 'Scripts (*.au3)', $FD_PATHMUSTEXIST, '', $hGui) GUIDelete($hGui) Exit

Last week I came across enumicons.au3 in the folder C:\Program Files (x86)\AutoIt3\Examples\GUI\Advanced and while testing it, I thought that a small update wouldn't hurt enumicons.au3

Previous version was at the top of screen but as i said, it's annoying for navigation

No need to click for see it, just put your mouse on the left side or at the top of your screen, depends of your choice in tray menu You can add Shortcut, InternetShortcut, Files, and Folder by drag and drop on any button (special folders not supported) Right click menu on it for delete item "Display Name" and Icon can be changed by new context menu All Changes are saved in SlidingToolBar.ini file located to TempDir & "\SlidingToolBar" directory Added by default some basic special folders See tray menu for options To exit, click on the InfoBar at the bottom of the GUI or by tray menu Last version available in download section : SlidingToolbar1.0.1.1.au3

Your welcome Some includes are not necessary, and I will declare my local variables before a loop

Hi ioa747 I have tried your code with an autoitscript.com xml file sitemap and it works pretty well 😉 https://www.autoitscript.com/site/page-sitemap.xml And we can see some 404 error messages there 😅