wakillon

DesktopClock v1.0.0.4.au3 updated

You are right I just thought of another problem The "pixelgetcolor" function is done on the left side of the GUI, it would be necessary to detect if the GUI is at the extreme left of the screen to use the function on the right

DesktopClock v1.0.0.3.au3 updated to GDI+ Version

Something like this ?

Hallo UEZ und vielen Dank 😉 1) I figured you were going to ask that 😂 I wanted to do something simple with Labels, but no problem, i will do a second version with gdi+ to improve the display 2) Instead of _StringProper could you try with _StringTitleCase to find out if it works for German language 3) For the color check, are you talking about each line of text ? 4) After all these years, you haven't noticed that most of my scripts have a blinking icon ? 😉

Before I used the free DesktopDigitalClock from softwareok.com which is very good But sometimes the clock bothered me because I couldn't see what was behind it on the screen and there was no way to move it quickly The second problem was that the clock's display color made the time become unreadable depending on the color of the window behind it So, why not create my own that would be draggable and would adapt its display color (dark/light) to the window located behind it See tray menu for options Script available in download section : DesktopClock.7z

Flag in the Wind... 🫡 #Region ;************ Includes ************ #include <StaticConstants.au3> #include <GUIConstantsEx.au3> #include <SendMessage.au3> #include <GDIPlus.au3> #include <Array.au3> #EndRegion ;************ Includes ************ Opt('MustDeclareVars', 1) HotKeySet('{ESC}', '_Exit') #Region ------ Global Variables ------------------------------ Global $hGui, $idPic, $hPic, $hImage, $iMargin = 15, $iThickness = 6, $fAngle = 45 Global $iGuiW, $iGuiH, $iX = $iMargin, $iY = $iMargin, $iW, $iH, $iMove Global $aColors[12] = [0xFFFF3333, _ 0xFFFF3333, _ 0xFFFF6633, _ 0xFFFFFF33, _ 0xFF66FF33, _ 0xFF33FF33, _ 0xFF33FFCC, _ 0xFF3399FF, _ 0xFF3333FF, _ 0xFF9933FF, _ 0xFFFF3399, _ 0xFFFF3333] #EndRegion ------ Global Variables ------------------------------ #Region ------ Init ------------------------------ _GDIPlus_Startup() $hImage = _GDIPlus_BitmapCreateFromMemory(EuropeanFlagjpg()) $iGuiW = _GDIPlus_ImageGetWidth($hImage) * 1.5 $iGuiH = _GDIPlus_ImageGetHeight($hImage) * 1.5 $iW = $iGuiW - $iMargin * 2 $iH = $iGuiH - $iMargin * 2 $hGui = GUICreate('Flag in the Wind', $iGuiW, $iGuiH) $idPic = GUICtrlCreatePic('', $iX - $iThickness, $iY - $iThickness, $iW + 2 * $iThickness, $iH + 2 * $iThickness) $hPic = GUICtrlGetHandle(-1) GUISetState() AdlibRegister('_FillPath', 150) #EndRegion ------ Init ------------------------------ #Region ------ Main Loop ------------------------------ While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE _Exit() EndSwitch Sleep(30) WEnd #EndRegion ------ Main Loop ------------------------------ Func _Base64Decode($input_string) ; by trancexx Local $struct = DllStructCreate('int') Local $a_Call = DllCall('Crypt32.dll', 'int', 'CryptStringToBinary', 'str', $input_string, 'int', 0, 'int', 1, 'ptr', 0, 'ptr', DllStructGetPtr($struct, 1), 'ptr', 0, 'ptr', 0) If @error Or Not $a_Call[0] Then Return SetError(1, 0, '') Local $a = DllStructCreate('byte[' & DllStructGetData($struct, 1) & ']') $a_Call = DllCall('Crypt32.dll', 'int', 'CryptStringToBinary', 'str', $input_string, 'int', 0, 'int', 1, 'ptr', DllStructGetPtr($a), 'ptr', DllStructGetPtr($struct, 1), 'ptr', 0, 'ptr', 0) If @error Or Not $a_Call[0] Then Return SetError(2, 0, '') Return DllStructGetData($a, 1) EndFunc ;==>_Base64Decode Func _Exit() AdlibUnRegister('_FillPath') _GDIPlus_BitmapDispose($hImage) _GDIPlus_Shutdown() GUIDelete($hGui) Exit EndFunc ;==>_Exit Func _FillPath() Local $hBitmap = _WinAPI_CreateBitmap($iW + 2 * $iThickness, $iH + 2 * $iThickness, 1, 32) Local $hCDC = _WinAPI_CreateCompatibleDC(0) Local $hOld = _WinAPI_SelectObject($hCDC, $hBitmap) Local $hGraphic = _GDIPlus_GraphicsCreateFromHDC($hCDC) ;~ _GDIPlus_GraphicsClear($hGraphic, 0x00000000) $iMove += 1 If $iMove >= 6 Then _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, $iThickness + 1, $iThickness + 1, $iW - 1 * 2, $iH - 1 * 2) $iMove = 0 Else _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, $iThickness, $iThickness, $iW, $iH) EndIf Local $hPath = _GDIPlus_PathCreate() _GDIPlus_PathAddRectangle($hPath, 0, 0, $iW + 2 * $iThickness, $iH + 2 * $iThickness) _GDIPlus_PathAddRectangle($hPath, $iThickness, $iThickness, $iW, $iH) Local $tRect = _GDIPlus_RectFCreate(0, 0, $iW + 2 * $iThickness, $iH + 2 * $iThickness) Local $hBrush = _GDIPlus_LineBrushCreateFromRectWithAngle($tRect, 0xFFFF0000, 0xFFFFFFFF, $fAngle) _ArrayPush($aColors, $aColors[0]) Local $aInterpolations[12][2] $aInterpolations[0][0] = UBound($aInterpolations) - 1 For $i = 1 To $aInterpolations[0][0] $aInterpolations[$i][0] = $aColors[$i] $aInterpolations[$i][1] = Round(($i - 1) / 10, 1) Next _GDIPlus_LineBrushSetPresetBlend($hBrush, $aInterpolations) _GDIPlus_GraphicsFillPath($hGraphic, $hPath, $hBrush) _GDIPlus_PathDispose($hPath) _GDIPlus_BrushDispose($hBrush) _GDIPlus_GraphicsDispose($hGraphic) _WinAPI_SelectObject($hCDC, $hOld) _WinAPI_DeleteDC($hCDC) Local $hObj = _SendMessage($hPic, $STM_SETIMAGE, 0, $hBitmap) _WinAPI_DeleteObject($hObj) _WinAPI_DeleteObject($hBitmap) $aInterpolations = 0 EndFunc ;==>_FillPath Func EuropeanFlagjpg() ; Code Generated by BinaryToAu3Kompressor. Local $sFileBin = '/9j/4QDCRXhpZgAASUkqAAgAAAAHABIBAwABAAAAAQAAABoBBQABAAAAYgAAABsBBQABAAAAagAAACgBAwABAAAAAgAAADEBAgAOAAAAcgAAADIBAgAUAAAAgAAAAGmHBAABAAAAlAAAAAAAAABIAAAAAQAAAEgAAAABAAAAUGhvdG9GaWx0cmUgNwAyMDI2OjAyOjIxIDE1OjIxOjA0AAMAAJAHAAQAAAAwMjEwAqADAAEAAAAsAQAAA6ADAAEAAADMAAAA/9sAQwADAgIDAgIDAwMDBAMDBAUIBQUEBAUKBwcGCAwKDAwLCgsLDQ4SEA0OEQ4LCxAWEBETFBUVFQwPFxgWFBgSFBUU/9sAQwEDBAQFBAUJBQUJFA0LDRQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQU/8AAEQgAzAEsAwEiAAIRAQMRAf/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHwJDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkKC//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8A/M+3t4jbxExISVHVR6VJ9mh/54p/3yKLb/j2h/3B/KpK/rfC4XDvD0/3a+FdF2PCbd3qR/Zof+eKf98ij7ND/wA8U/75FSUV1fVMP/z7j9yJu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIo+zQ/8APFP++RUlFH1TD/8APuP3ILvuR/Zof+eKf98ij7ND/wA8U/75FSUUfVMP/wA+4/cgu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIo+zQ/8APFP++RUlFH1TD/8APuP3ILvuR/Zof+eKf98ij7ND/wA8U/75FSUUfVMP/wA+4/cgu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIo+zQ/8APFP++RUlFH1TD/8APuP3ILvuR/Zof+eKf98ij7ND/wA8U/75FSUUfVMP/wA+4/cgu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIo+zQ/8APFP++RUlFH1TD/8APuP3ILvuR/Zof+eKf98ij7ND/wA8U/75FSUUfVMP/wA+4/cgu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIo+zQ/8APFP++RUlFH1TD/8APuP3ILvuR/Zof+eKf98ij7ND/wA8U/75FSUUfVMP/wA+4/cgu+5H9mh/54p/3yKPs0P/ADxT/vkVJRR9Uw//AD7j9yC77kf2aH/nin/fIrH1mNY7lAqhRsBwBjua3Kxdb/4+k/3B/M18Nxnh6MMplKEEnzR2SOnDt85rW3/HtD/uD+VSVHbf8e0P+4P5VJX3OF/3en/hX5HM92FFFFdQgooooAKKKKACiiigAooooAKKKKACiiigAooq3Z6Te6hGz2tnPcIp2s0UTMAfQ4FRKUYK8nZBuVMZor6l/Yq/Z/PxQ1HxzLrFo8VpBosunW7TxFdt1cqyI4z3RVY+2RXzleeENbsrya2m0m9SaJzG6fZ3yGBwR09a+TwPFOXY/N8bk1Ka9rhVTc9V/wAvE5K3olr6o7KmFqU6MK8lpO9vkY9FOlieCRo5EZJEJVlYYIPoRTa+uTvqjjCiiimAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVi63/wAfSf7g/ma2qxdb/wCPpP8AcH8zXwfGv/Iol/iidOH/AIhrW3/HtD/uD+VSVHbf8e0P+4P5VJX2WF/3en/hX5HO92FFFFdQgooooAKKKKACiiigAooooAKUKTSV6h8DvjxqXwX1rzBpeneIdEnYG60nU7ZJEf8A2o3ZSY3x3HHqDXl5nXxmGwlStgKCrVYq6g5cnN5KTUkn2urX3aWprSjCU0qkrLva9vkdz+zB+z4fi74G+KOqy23nSWGkG30vIzm+JEw2++2Er/21r54KHPb86/bT4ZX+ka74H0jXNF0RdBsdXtY9QWzFtHA6h1BBdUGM4xz3GK+Of20P2hT8OvEd34D8L+EdL0e+EMclxrs+n27SOkiBh9nG35euC55yDgDGa/kLgTxezziXi3H5VSy7m9pJOMZVVFUI00qdTmfLLmTlZ2ir3bsnuvs8xyShhMFTrurt1t8V9V6adz4PrtvhP8ZPFfwW8RprHhbU5LKU4We2Ylre5T+5KmcMP1HUEGuKd2kdmYlmY5JPc0+3MQuIzMHMO4bxHjdtzzjPfFf2FjsFhsxw08JjaSqU5q0oySaa7NPRnxcJypyU4OzXU/an4RePbr4lfDLw54p1DTf7FuNVtlnNmZd4XcxClScHDgBlB5wwHJr5d/bv/aW8cfDnWIPBHh4todnqFgtzJrMMhNxMjFlaOM/8ssFSCR8x4wQOvyV8Xf2j/FXxXutOgadtC8PaSI00vRNPkZIbRYwFjYngvIAo+c8+gUcVD8Tvj1rPxi8HeHtO8VIuoa5oTyR2+t5xLPbOBmOYfxMrKCH6nLZyea/jLhDwJqZJxDh88zGhSq0JSqN0HeXsL3dJpybVXk0jK+1+Zc9uZfb43iH6xhZYem2pJL3v5u/pfdfoeYyyvPI8kjs8jkszMckk9STTQM0V1nw0+Il18NPEkWqQ6bpetQcLcadrFlHc286d1IYEqfRlwR69q/tDFTrUcPOeGpqc0tIt8t32vZ2v6W723Ph4qLklJ2R337IvwhtvjL8Z7HR9Sh83Rba2mvL4H/nmq7V/OR4/1ryrxT4du/CXibVtEvV23mm3UtpMOnzxuVP6iv1q/Zp8R+CviJ4Eh8YeFPBdn4Rku2e0uYoLGKFi8ZBZQ6KPMTJGDxyOQCDXl/7ZHxU8J/BOK1WH4caFrnirXkkni1LU9LgkgTadrO7Fd0smSPlyByCT2P8AHeT+Mmc4/jvEZNDLJuUoxpKi6kE4TpOcqk3LWNmpO9r3UI2ufbV8joUsujiHWW7d7PVO1lbfp+LPzQ6UVd1nV7jXtUudQu/K+03DmR/JhSFMn+6iAKo9gABVKv7Ng5OKc1Z9bO6v5Oyv62XofDvyCiiirEFFFFABRRRQAUUUUAFFFFABWLrf/H0n+4P5mtqsXW/+PpP9wfzNfB8a/wDIol/iidOH/iGtbf8AHtD/ALg/lUlR23/HtD/uD+VSV9lhf93p/wCFfkc73YUUUV1CCiiigAooooAKKKKACilwfSvpP9nj9n//AIWT8CPi14ie2E15bWiQaS2Mt50JW5mC+5RUT/gZr5riHiDBcM4JY/HytT56cPnUnGCfor8z8kzpw+HqYqfs6a1s39yufNdXNH+xf2rZ/wBpGUaf5yfafs4Bk8vI3bc8bsZxnvVTHNJX0U488XG9r9tznTtqe/fFT9szx3458RafPoF9N4N0LSJEbS9M02THlhBtQyt/y1bbxgjbjgL1' $sFileBin &= 'zzvx6+Og+PkPhvV9U01LHxZp9s1hf3FsMQXkQbdFIF6owLSAryOQRjoPI6K+Ly/grh/KamFrYDCRpTw6koSjpK0k1JSe8+a93zt3l73xanbUxuIrKUak21Lf5beny6aBRRRX25whRRRQAUDrRRQB9D+Jv2ttX0X4Z+Hvh58OpLjw1ommWqR3WqRtsvb6cnfKwI/1SGRmIAO4jGT/AA1Q+Kv7S03x0+Eml6L4vt9/i/Q7sTWmsQIAt5C67JUlUY2vxG25eG2nIB5Pg9Ffn+G4D4ewlWliaGGUa9OpKqqn/Lxznfncp7y502pJ+7Z2SVo29CWPxM4uEp+61a3Sy208ugUUoBNe/fsd/AqL43eMfEdvfRBtPsdFuQJD0W6mQxW5+oZmcf8AXOvoOIM8wfDWV183x7tSpK7+9JJebbSXmznw9CeJqxo01qzwCirN/p8+m31xaXMZiuIJGikjbqrKcEH6EGq1e9GSklKLumc4UUUVQBRRRQAUUUUAFFFFABWLrf8Ax9J/uD+ZrarF1v8A4+k/3B/M18Hxr/yKJf4onTh/4hrW3/HtD/uD+VSVHbf8e0P+4P5VJX2WF/3en/hX5HO92FFFFdQgooooAKKKKACiiigD1n4D/tGeIPgbqw+zQW+taBM+660a/RWjfsWRiCY3x/EOD3BFfrb4QvYNX8LaZqUGltpEd/axXhsXjRHh8xA21wnG4ZwfpX4neFbrTbHxJplzrNvLeaVDcRy3VtCQHmjVgWQE8DcBjPbOcHpXqnxL/a5+InxE8a2evxazN4ej02Yy6Zp+lSGOG09OP+WjY4JfORkYAOK/lTxX8I6nHmZYeplUIUJ8snVrO9pPRU48kfile/NNq8Y21lpE+uybOVltOSq3ktLLt3d+np1Z7r+2v+054g8P+LdW+HPh/SoPDtvbKq3WqLEhubpXRWHlMB+6QhhyPmPqOlfEJOTk8mvUPjr8am+Ot9oWu6np0dl4mtrIWGoT23EF2EYmOUJ/A2GZWHI+VSMdB5fX694dcM0uFuHsPgvqyo1+Ve1s+bmqLSU+a7bUmuaN3pFpWVrLxcyxTxeJlU5rx6dLLtby6hRRRX6aeWFFFFABRRRQAUUUUAFFFFAHd/CP4vap8IfEK6hZWWn6tZyFRdaZqtqlxBcKO2GBKN6MuCPcZB/WL4E+JNB8efDvS/FmgeGYvDEOsRmR7VLWKJyUdkyTGBvXIbax6g5wM1+MsQVpUDtsQkAtjOB64r3z4l/te+Jtd0rRPDPgqe68G+ENChggs4LSXZdT+UAEkmkXvkbti/KCedx5r+ZfF3wyq8d1MJDK4KnWk37Ws21FU4rSMor45OTXK7XSi05JWPqclzWOXc8quq6Lrf16K2/qfS37a3x4tvg9qEPhvQfBmkf29qdr9tOvX2m28qxqzMv7tSh3yZU5Z+Bxwc5H54Xt5NqF3NdXEhlnmcyO56sxOSa9i+M37Q8/x48DeG4fE1oo8Y6FJJENUt1Cx3ttIAT5iD7sisoPy/KdzcKevi9fceFvCX+qOQU8JiqChi7tVZcznztSajJSevI42ajpy3acVK55+bYz65iXUg7w6K1reVu9wooor9iPGCiiigAooooAKKKKACsXW/8Aj6T/AHB/M1tVi63/AMfSf7g/ma+D41/5FEv8UTpw/wDENa2/49of9wfyqSo7b/j2h/3B/KpK+ywv+70/8K/I53uwooorqEFFFFABRRRQAUUUYoAKK938Lfs/vrf7KPiv4jtA5vrLVYBa472seUnI9t8yH/tia8IxXg5XneCzipiqWDlzPD1HSn5TUYya+XMl6p9jerQnRUHNfErr01/yCiiiveMAooooAKKKKACiiigAooooAKKKKACiijGaACivV/2YPhLF8ZvjLovh29RzpRElzfshwVgRSTz7ttX/AIFXnvirw5d+EfE2q6JeoVvNOupbSYYI+dHKn9RXiU85wdXNKuTxn+/pwhUa/uzlOK/GDv2vHubujNUlWa91tr5q3+ZlUUUV7ZgFFFFABRRRQAUUUUAFYut/8fSf7g/ma2qxdb/4+k/3B/M18Hxr/wAiiX+KJ04f+Ia1t/x7Q/7g/lUlR23/AB7Q/wC4P5VJX2WF/wB3p/4V+RzvdhRRRXUIKKKKACiiigAr3X9nb44eFfBF5DovjzwHonizQJpMC9k0yGS+tM9wxXMq/wCwxz/dI6Hwquu+E2saF4d+Imh6x4kimudH024W9mtbdQXuDH86RDPADOFBJ4AJPPSvluJ8rw2b5TXw+KpymuVtKEnGfMk2uSSaal0WttbO6bR1YWrKjWjKDS9dV812P2U0zwd4esvCo8P2eiWFr4fkiaM6UtqqW5RyWZTFjGCSSQR1JzX5x/tW/GbwhBrus+CfBHw30Hw81jPJZ32sTaPAl28iMVdYRt/drkH5/vHtt75viD9vn4map8RoPEljdQ6ZpduSsfh5V32jxk8iXOGkY4Hz8Efw7elebftB/EHRfix8RJvGGj2cumSavbxTX9hKd3kXarsk2sPvK20OGwD8xyMiv5R8LvCXOuGM9jjeJU6sakHNctSTjCtzLSrHRTk4ttSfNDmTV2+Vv7DN85oYzD+zwujTtqlrHy7a9NGeaUUUV/a58KFFFFABRRRQAUUUUAFFFFABRRRQAV1Hw68aW3gXxHFqF74d0rxRY/dn03Vod8ciZ52sPmRvRh+II4rl6BXLisNSxlCeHrK8ZKz1advJppp9mmmt0yoycJKUd0frf+zEnws8WeGf+E1+HvhK28NzXAawuwLcxyxsNjvFuyQ652HcvB4zgggee/tfa/8ACb4Pgalq3w20vxN4x17zJoGubUrE7KQGlmkBGcEj5V5Oeqg5r5uuf2vLn4a/CDw98PPhnu097W2D6l4hdP3stzIfMlECn7qhm272G4hRgL3zPi/+0xB+0D8HNO0zxVara+ONCuxNbahbx4hv4XXZKpUf6uTiNuPlOw42ng/wplHhRxBR4thnmLdZ5fUrShy+3n7f2OvspVGrS9m5cvNHm54x1klZtff1s4w0sD9Xgo+0STvyrlv1t5262s3seC67q7a7q91fta2liZ3L/ZrGEQwxj+6iDoB/nNUKKK/vGnCNKChBWSVl8j8/bu7sKKKK0EFFFFABRRRQAVi63/x9J/uD+ZrarF1v/j6T/cH8zXwfGv8AyKJf4onTh/4hrW3/AB7Q/wC4P5VJUdt/x7Q/7g/lUlfZYX/d6f8AhX5HO92FFFFdQgooooAKKKKACiiigAoor0n4c/Bq++IHw5+IfiqDeIvC1nBcBQOJWeUBxn/ZiWR/wFebmGY4XK6CxOMmoQ5oRu+85xhFfOUkjSnTlVlywV3q/uV3+B5tRRRXpGYUUUUAFFFFABRRRQAUUUUAFFFFABRRXoPwG+FE/wAavihpPhSGR4Eu/Mea4QZ8qNI2Yt+gH1Irzsxx+GyrB1sfjJctKlGU5PtGKu39yNKdOVWapwV23ZfM8+oqxqNhPpV/c2V1GYbm3kaGWNuqupIYH6EGq9d8ZKaUou6ZnsFFFFUAUUUUAFFFFABRRRQAVi63/wAfSf7g/ma2qxdb/wCPpP8AcH8zXwfGv/Iol/iidOH/AIhrW3/HtD/uD+VSVHbf8e0P+4P5VJX2WF/3en/hX5HO92FFFFdQgooooAKKKKACiiigD1v4DXPwmvNUGkfE7TtSt4LiTEOuadeMiwZ7TR7Wyv8AtLyO4I5H6a/Cf4HeBfh/8O9Q0Hwwj33h3XleeeaW5Fx9pjliEfEgABQp0x6k96/IPwtpEWv+I9M06e8h063urhIpby4YLHAhYbpGJ6BRkn6V9r+M/wDgodY+EPEGj6H8PPD0F94N0hUtZJr4NFJeQouxViA/1SgAEMwJJ6gDIP8AIHjPwbxJxLjMPhOGqtafOpTqQdRqhHktyNcztGcpXUYp2vHmtGzkfZ5FjsLhIyni4rTRO3vO+/yS3OR/aU8Dfs/fBNrrRNJsNX1/xko2tZLq' $sFileBin &= 'rC3syRwZm2ZJ5B8tTn1K18hHk+le6/tceLPCvxO8dad498J3OYNdsY/t9lMAtxaXcQ8tlkUccoIyGGQ3ODwQPCq/cvDrBYrC8PYepmFatUxM4p1PbylKUZrSUUnpGMZJpWWqs23oz5/MpwniZKlGKinpyrS3R/cFFFFfpp5gUUUUAFFFFABRRRQAUUUUAdZ8NNU8JaZ4kjPjXRbzWdCkwko067+z3EPP30JBVsf3W6+o61+mn7MfwY+Enh5D46+Gl1dakmoWxs/tFzdeaYVLK7xlCoMb5Vcg849jk/k+OTX2bpX7WGk/s4fBPw74I8DQ2uueLfJ+16rqEw3WltcSne8YwR5zqCsZwdo29WPA/mbxo4XzriHCUMHw/Vre2ry5J01Nqi6aTcp1E/djyvlV1Zy5rcsnY+pyLF4fC1JVMTFcsVdO3vX6JHof7UPwm/Z/+G13qPifxZBq0viHWppbyLSNMv8AY9zIzEswUqRGm7OWJx1wCeK/P3W7uzvtWup9Psf7NsncmG084ymJewLnlj74H0FfTP7S3xz8M/tL/CrQNdjjTRPG3h+5MF7pUj5E1vMBmSBv41WRF+U/Mu89RzXyxX03hHlGaZZkKWe1a0sXFyhONWblGHI7RVNX5eVw5ZKSve9lK2hyZxWo1sS3h4xUHqmlvfe/W9+gUUUV+5nghRRRQAUUUUAFFFFABWLrf/H0n+4P5mtqsXW/+PpP9wfzNfB8a/8AIol/iidOH/iGtbf8e0P+4P5VJUdt/wAe0P8AuD+VSV9lhf8Ad6f+Ffkc73YUUUV1CCiiigAooooAKKKKACiiigAoor2L4A6J8IvF+ojRfiNfa14cupmxbavZ3UYtCT0WZWiYx/7+dvrt6142b5nHJ8HPHTpTqRhq1TjzSt1aje7t2V35G1Gk601TTSv30X3nO+DvhDqPi/4XeOPGkG8Wnhn7JvQLnzfNkKtg/wCyMMfY15/X7D/Dj9nTwf8AD/4Tax4G0x7q/wBC1tZmu7i4lR5ZhNGEyHVQvCgbSB7818R/tG/Cb4EfBJbnSNN1XxH4h8YKNv8AZ8V/B5No3rcOIeD38tfm9dvWv544K8asFxTneMyylQq1L1F7Hlp3tS5Ixbm7pQXOpSvJ6c6V9Ej6XH5FUweHhWlJLT3rvrd7d9Lbdj5Uooor+oD5QKK67wD8NNU+Idr4nuNOUeXoGky6vckgnMcbKCB7/MT/AMBNcjXHSxdCtWqYenNOdO3Muqurq/qtS3CSSk1owoortPhY/gR/ESW3xAi1hdGmIU3uizIstsf7xR0YOvqBg+mehWMxLweHniFTlPlV+WCvJ+iurvy3eyu9AhHnko3tfvsWvgl8JNQ+NPjgeHNPYxy/Yrq7aQDO3yomZQf959if8Drg3QxuysCrA4IIwQa/WT9mX9nz4dfDAXHizwHrV34hh1i2WKO+uLiOZVjDhiE2IuCWC7g3I2gEDmvDf2kf2ffgH8KptQ17xJrPiGLV9Umlu7fQtLu4DJKzsWIRTEfLjBJG5jgYwNx4r+Ysn8c8uzTirEZTToVp03GnGlGNJ+09ouf2vNHRx3itdEoNu1z6uvw/Vo4ONdyinrfXS2lrPr1+8+C6KsahLbTX08lnA9raM5MUMsvmMi9gWwNx98D6Cq9f1RFuSTat5f8ADaHyIUUUVQBRRRQAUUUUAFFFFABRRRQAVi63/wAfSf7g/ma2qxdb/wCPpP8AcH8zXwfGv/Iol/iidOH/AIhrW3/HtD/uD+VSVHbf8e0P+4P5VJX2WF/3en/hX5HO92FFFFdQgooooAKKKKACiiigAooooAK3fAvh+LxV4w0fSbi7h0+1u7pI7i8uJBHHbxZ/eSMx4AVdzH6VhUZxWFeE6lKcKUuWTTSdr2dtHbrbexUWk02rn6AeLf8AgonoHhLxbpmieDvDg1XwXp4FrcXUrGGWaJVCL9mXooUAY3j5umF6183ftc6h4a8WfFH/AITTwjfR3ui+JbWO9ZVASS3uQPLmikTqj5UOc9fMyCQc14hRX5Rwz4X5DwfjqWYZMpQqKEqdRuTl7VSaled/tqSTUopK142ta3r4rNcRjabp12mr3WlrdNPKwV6V8E/BngTx7rn9j+MPFt14NnnYC1vjaJNaMf7sjF1MZ9GOV9Stea1PYWU+pX1vaWsbTXM8ixRRoMl3Y4AH1JFfpWZ4api8HUo0cRKhJrSceVuL72mpRfmmmrfeeXSkoTUpR5l2d9fu1P1k/Z5/ZV0T4FaJ4ls01R/Ef/CQIkU881usQ+zhHHlgBmBB8xjnPPHpXyl8av2QPht8C9GN94h+Jt8LmVSbPSYNMie7ucf3V80YXsXbCj3PFev6v+174I/Zo0Dwn8PdKik8Z3ejW8NlqtxY3AEUBUfvtjnIkk3lsKPlHQsMYHz3+3DeeH/Hfirw78R/CeoJqWjeILEQTMuQ8F1BhWjkU8o3ltEdp64JGRzX8LeHuD47q8XPGZtjK1HDY9tqr7KmnX9imqacZRkqPNTTkvdTlFe7f4l99mVTLlglChCLnT6Xfu82/wDis/u/A+aZtnmv5W7y9x27uuO2aaqlmAAyT2pKK/vzofnh9yw/tZaD+zJ8J/C/gPwZaWnibxNaQJNq107k2UNxIfMnTcpBlcFtmQdq7RySMVwP7W3xT8J/tD+CvCnjnQj9g8Qaez6Zq2j3BHnxI37yJwf+WkYYSAOOm8AgEjPyxRX43lfhZkmUZnSz3DSn9djOc51W23VdS6nGUfh5dfdSScWk7vXm9qrm2IrUXh529nZJLtbZrz79wooor9lPFCiiigAooooAKKKKACiiigAooooAKxdb/wCPpP8AcH8zW1WLrf8Ax9J/uD+Zr4PjX/kUS/xROnD/AMQ1rb/j2h/3B/KpKjtv+PaH/cH8qkr7LC/7vT/wr8jne7CiiiuoQUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU6ORoZFdGKOpyGU4INNopbgFO8x/LKbjsJBK54JHQ/qabRQAUUUUwCiiigAooooAKKKKACiiigAooooAKKKKACiiigArF1v/j6T/cH8zW1WLrf/AB9J/uD+Zr4PjX/kUS/xROnD/wAQ1rb/AI9of9wfyqSvsnTv2MPBcsohOra+FVeCJ7fPH/bGnTfsZ+C474QjVtf27gMme3zz/wBsanD8WYGFGEXCeiXRdv8AEDoSufGlFfZ2o/sYeC7Qps1bXzuzndPb/wDxin3H7FvgqKzWUat4gLELwZ7fHP8A2wrf/W7AfyT+6P8A8kL2Ej4uor7Rtf2LfBU1o0rat4gDDPAnt8cf9sKj079jDwXds4fVtfGAPuz2/wD8Zo/1uwH8k/uj/wDJB7CR8ZUV9lx/sZeC31AwHVtf2biM+fb54/7Y0X37GXgu2uFRdW18ggHme3/+M0f63YD+Sf3R/wDkg9hI+NKK+0NQ/Yt8FWsasmreICS2OZ7f/wCMUv8Awxb4K/s/z/7W8Qb9ucefb4/9EUf63YD+Sf3R/wDkg9hI+LqK+0NP/Yt8FXUbM+reIAQ2OJ7f/wCMVFYfsZeC7mdkbVtfACk8T2/r/wBcaP8AW7AfyT+6P/yQewkfGlFfZcn7GXgtNQEA1bX9m4DPn2+ef+2NO1D9jDwXaMgTVtfO4EndPb//ABmj/W7AfyT+6P8A8kHsJHxlRX2jdfsW+CoLRZV1bxAWOOs9vjn/ALYUW/7FvgqWzaU6t4gDANwJ7fHH/bCj/W7AfyT+6P8A8kHsJHxdRX2dp37GHgu7Mm/VtfG3GNs9v/8AGKZD+xn4LkvjCdW1/aCwyJ7fPH/bGj/W7AfyT+6P/wAkHsJHxpRX2XefsZeC7e5Ea6tr5BAPM9v/APGal1D9i7wVaohTVvEByccz2/8A8Yo/1uwH8k/uj/8AJB7CR8X0V9ot+xb4KGn+f/a3iDftBx59vj/0RRYfsW+CrqJ2fVvEAIbHE9v6f9cKP9bsB/JP7o//ACQewkfF1FfZdh+xl4LupmR9' $sFileBin &= 'W18ALnie39f+uND/ALGXgtb/AMj+1tf2bgM+fb5/9E0f63YD+Sf3R/8Akg9hI+NKK+zNQ/Yx8F2roE1bXzkZ5nt//jNS3n7Fvgq3tlkXVvEBYkdZ7f8A+MUf63YD+Sf3R/8Akg9hI+LqK+0YP2LfBUli0x1bxBuAY4E9vjj/ALYUzTv2L/BV35m/VtfG3GNs9v8A/GKf+t2A/kn90f8A5IPYSPjGivsu3/Yy8Fy3phOra/tBYZE9vnj/ALY0Xf7GXguC6Ea6tr5U46z2+ef+2NL/AFuwH8k/uj/8kHsJHxpRX2fqP7F3gq0CFNW8QHcSPmnt/wD4xTn/AGLfBS6f541bxBv2g48+3x1/64Uf63YD+Sf3R/8Akg9hI+LqK+0bD9i3wVdQM7at4gBDEcT2/p/1wqLT/wBjLwXdSMr6tr4AXPE9v/8AGaf+t2A/kn90f/kg9hI+M6K+zD+xl4L+3+R/a2v7N2M+fb5/9E0ah+xj4LtZFVNW18grnme3/wDjNL/W7AfyT+6P/wAkHsJHxnWLrf8Ax9J/uD+Zr7rvf2LfBVtbLIureICSQOZ7f0/64VHD+wv4D1WFJ5tX8Rh8bcJcW4HU/wDTCvk+J+IcJj8udClGSd1ulb8GzejSlGd2f//Z' $sFileBin = Binary(_Base64Decode($sFileBin)) Return SetError(0, 0, $sFileBin) EndFunc ;==>EuropeanFlagjpg

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 🫡