Marquee UDF - New release 13 Jan 2019

[Melba23 3,713]

Efo74,

I am but a hobbyist coder as well - but with perhaps just a little more experience than you . It was ~50 years ago I got my first experience of programming a computer to play Nim thanks to my very progressive 6th form maths master. We were using the mainframe of Imperial College - where a few years later I took my only formal programming classes (in Fortran) as part of my Aeronautical Engineering degree. Since then I have used various flavours of Sinclair home computers and then PCs, using Basic, assembly and AutoIt languages. It has given me a lot of pleasure over the years.

M23

[Efo74 3]

I am making a "timesheet" in autoit ... we hope that the project is not bigger than me. Thanks again for all your advice and valuable help.  

[karldrogo 0]

Guys, my first day in looking into this great script. I need to modify the text displayed in the Marquee. I assume it is being called by $iIndex or $sText.

how do I modify what is currently running. I am new and under pressure to change the domain logon script to run marquee.au3 with the updated corona message. Help @Melba23 and all you other coders out here 😭

[Melba23 3,713]

karldrogo,

Welcome to the AutoIt forum.

The text displayed by the marquee is set by the $sText  parameter of the _GUICtrlMarquee_Create function as explained in the function header:

;    $sText - The text (or HTML markup) the marquee should display

So you need to modify the string setting that parameter to get a new message.

If you need more help than post the code that you are using - see here how to do it

M23

[Belini 32]

Greetings @Melba 23 can you use your UDF with a transparent background, with only the letters overlaying an image?

[Melba23 3,713]

Belini,

I do not believe you can have "transparent" as the background colour of a marquee, sorry.

M23

[Belini 32]

Ok and thanks for responding

[Gianni 803]

18 hours ago, Belini said:

Greetings @Melba 23 can you use your UDF with a transparent background, with only the letters overlaying an image?

... a possible way to make transparent background,
but perhaps only useful if you want to create a large standalone marquee on your desktop (not to overlay it on an image within a gui ...

#include <WindowsConstants.au3>
#include "Marquee.au3"

#include <WinAPI.au3>

$hGUI = GUICreate("Big Ticker", @DesktopWidth, 50, 0, 0, $WS_POPUPWINDOW, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST))

; ----- make $AlphaKey transparent -----------------------------------
Global $AlphaKey = 0xFFFFFF
_WinAPI_SetLayeredWindowAttributes($hGUI, $AlphaKey, 0, $LWA_COLORKEY)
GUISetBkColor($AlphaKey, $hGUI)
GUISetState(@SW_SHOW, $hGUI)
; --------------------------------------------------------------------
Global $sText = "The quick brown fox jumps over the lazy dog."

$iMarqueeIndex = _GUICtrlMarquee_Init()
_GUICtrlMarquee_SetScroll($iMarqueeIndex, 0, Default, "left", Default, 50)
_GUICtrlMarquee_SetDisplay($iMarqueeIndex, 0, 0xFFFF00, $AlphaKey, 26, "Comic Sans MS")
_GUICtrlMarquee_Create($iMarqueeIndex, $sText, 0, 0, @DesktopWidth, 50)

MsgBox(0,'', 'hit ok to end the script')

 

[Belini 32]

Thanks @Chimp but what I really needed was to overlay an image.

I wanted to maintain the effect it has on the image and too without transparency whenever i change the background image i will need to change the background color of the text message too.

Edited April 12, 2021 by Belini

[pixelsearch 365]

@Belini maybe something like this ?

expandcollapse popup

#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WinAPISysWin.au3>
#include <WindowsConstants.au3>
#include "Marquee.au3"

$sFileName = @ScriptDir & "\Jukebel.jpg" ; your pic in post just above
If Not FileExists($sFileName) Then Exit MsgBox(0, "Exit", "Image not found")

_GDIPlus_Startup()
$hImage = _GDIPlus_BitmapCreateFromFile($sFileName)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$iW = _GDIPlus_ImageGetWidth($hImage)
$iH = _GDIPlus_ImageGetHeight($hImage)

$hGUI = GUICreate("", $iW, $iH, -1, -1, $WS_POPUP, BitOr($WS_EX_LAYERED, $WS_EX_CONTROLPARENT))
_WinAPI_UpdateLayeredWindowEx($hGUI, -1, -1, $hBitmap)

$hGUI2 = GUICreate("", $iW, $iH, -1, -1, $WS_POPUP, BitOr($WS_EX_LAYERED, $WS_EX_MDICHILD), $hGUI)
GUISetBkColor(0xABCDEF, $hGUI2) ; transparent
_WinAPI_SetLayeredWindowAttributes($hGUI2, 0xABCDEF)

$sText = "The quick brown fox jumps over the lazy dog."
$iMarqueeIndex = _GUICtrlMarquee_Init()
_GUICtrlMarquee_SetScroll($iMarqueeIndex, 0, Default, "left", Default, 50)
_GUICtrlMarquee_SetDisplay($iMarqueeIndex, 0, 0xFFFF00, 0xABCDEF, 26, "Comic Sans MS") ; 0xFFFF00 = yellow
_GUICtrlMarquee_Create($iMarqueeIndex, $sText, 5, 10, $iW, 50)

GUISetState(@SW_SHOW, $hGUI2)
GUISetState(@SW_SHOW, $hGUI)

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

GUIDelete($hGUI2)
GUIDelete($hGUI)
_WinAPI_DeleteObject($hBitmap)
_GDIPlus_BitmapDispose($hImage)
_GDIPlus_Shutdown()

Edit : Removed $WS_EX_TOPMOST extended style from $hGUI . Added $WS_EX_CONTROLPARENT extended style (making image draggable : AutoIt feature) . ESC to Exit

Edited April 12, 2021 by pixelsearch

[Belini 32]

thanks @pixelsearch I'm going to do some tests here.