14 replies to this topic

[fgilain]

Hi all,

I'd like to create a simple way to diffuse some text messages at the bottom of a screen from right to left on the entire width in continue.

Goal is to diffuse message to my company's people on a 16/9 TV in a continue way. Messages would be taken from text files created in a specified directory....

How could i do this with AutoIT ?

thanks a lot for your help.

Florent

[Melba23]

fgilain,

Look at the Marquee UDF in my sig - should do what you want.

M23

[UEZ]

Here another example:

Simple Horizontal Label Scroller.au3  Simple Horizontal Label Scroller.au3   1.3K   116 downloads

AutoIt        expandcollapse  popup

;coded by UEZ 2012 build 2012-03-09
#include <windowsconstants.au3>
#include "Scroller.au3"

$iW = 640
$iH = Int($iW * 9 / 16)
$hGUI = GUICreate("Simple Horizontal Scroller", $iW, $iH, -1, -1, Default, $WS_EX_COMPOSITED)
GUISetState()

$sText = "This is a simple horizontal scroller made with AutoIt using a label! Using this technique is not the best way because label is flickering :-("

$aHScroller1= Scroller_Init($hGUI, 64, $sText, "Arial", 96, 0, 0x006000, False, False, 0xABCDEF)
If @error Then Exit MsgBox(16, "ERROR", "Unable to initiate scroller", 10)

$aHScroller2= Scroller_Init($hGUI, $iH - 64, $sText, "Comic Sans MS", 24, 0, 0, True, True)
If @error Then Exit MsgBox(16, "ERROR", "Unable to initiate scroller", 10)

HotKeySet("{F1}", "Init_Scroller_Off")
HotKeySet("{F2}", "Init_Scroller_On")
HotKeySet("{F3}", "Init_Scroller_Reset")

AdlibRegister("Scroll_It", 30)

Do
Until GUIGetMsg() = -3

_Exit()

Func Scroll_It()
    Scroller_Move($aHScroller1, 1.25)
    Scroller_Move($aHScroller2, 1)
EndFunc

Func Init_Scroller_Off()
    Scroller_Off($aHScroller1[0])
EndFunc

Func Init_Scroller_On()
    Scroller_On($aHScroller1[0])
EndFunc

Func Init_Scroller_Reset()
    Scroller_Reset($aHScroller1)
EndFunc

Func _Exit()
    AdlibUnRegister("Scroll_It")
    GUIDelete($hGUI)
    Exit
EndFunc

Scroller.au3  Scroller.au3   2.99K   124 downloads

AutoIt        expandcollapse  popup

;coded by UEZ 2012 build 2012-03-11
#include-once
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <gdiplus.au3>

Func Scroller_Init($hGUI, $iY, $sText, $sFont = "Arial", $iFSize = 24, $iFStyle = 0, $iFColor = 0x000000, $hl = False, $bgc = False, $bgcolor = 0xFEDCBA)
    If Not IsHWnd($hGUI) Then Return SetError(1, 0, 0)
    If $sText = "" Then Return SetError(2, 0, 0)
    Local $aSize = WinGetClientSize($hGUI)
    Local $aStringSize =  GetStringSize($sText, $sFont, $iFSize, $iFStyle)
    Local $idLabel_Scroller = GUICtrlCreateLabel($sText, $aSize[0], $iY, $aStringSize[0], $aStringSize[1])
    Local $fWeight = 400
    If BitAND($iFStyle, 1) Then $fWeight = 800
    GUICtrlSetFont($idLabel_Scroller, $iFSize, $fWeight , BitXOR($iFStyle, 1), $sFont, 4)
    GUICtrlSetColor($idLabel_Scroller, $iFColor)
    If $bgc Then
        Local $idLabel_BG = GUICtrlCreateLabel("", 0, $iY - 3, $aSize[0], $aStringSize[1] + 3)
        GUICtrlSetBkColor($idLabel_BG, $bgcolor)
        GUICtrlSetState($idLabel_BG, $GUI_DISABLE)
        GUICtrlSetBkColor($idLabel_Scroller, $bgcolor)
    EndIf
    If $hl Then
        Local $idLabel_HorizontalLine1 = GUICtrlCreateLabel("", 0, $iY - 4, $aSize[0] + 4, 2, $SS_ETCHEDHORZ)
        Local $idLabel_HorizontalLine2 = GUICtrlCreateLabel("", 0, $iY + $aStringSize[1], $aSize[0] + 4, 2, $SS_ETCHEDHORZ)
    EndIf
    Local $aData[4] = [$idLabel_Scroller, $aStringSize[0], $aSize[0] + $iFSize, $aSize[0] + $iFSize] ;id label, string width, gui width, $iPos
    Return $aData
EndFunc

Func Scroller_Off($idControl)
    GUICtrlSetState($idControl, $GUI_HIDE)
EndFunc

Func Scroller_On($idControl)
    GUICtrlSetState($idControl, $GUI_SHOW)
EndFunc

Func Scroller_Reset(ByRef $aData)
    $aData[3] = $aData[2]
EndFunc

Func Scroller_Move(ByRef $aData, $iSpeed = 1)
    $aData[3] -= $iSpeed
    GUICtrlSetPos($aData[0], $aData[3])
    If $aData[3] < -$aData[1] Then $aData[3] = $aData[2]
EndFunc

Func GetStringSize($string, $font, $fontsize, $fontstyle)
    Local $GDIp = False
    Local $iWidth = StringLen($string) * $fontsize
    Local $iHeight = 2 * $fontsize
    If Not $ghGDIPDll Then
        _GDIPlus_Startup()
        $GDIp = True
    EndIf
    Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", 0, "int",  0x0026200A, "ptr", 0, "int*", 0)
    Local $hBitmap = $aResult[6]
    Local $hGrphContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    Local $hFormat = _GDIPlus_StringFormatCreate()
    Local $hFamily = _GDIPlus_FontFamilyCreate($font)
    Local $hFont = _GDIPlus_FontCreate($hFamily, $fontsize, $fontstyle)
    Local $tLayout = _GDIPlus_RectFCreate(0, 0, 0, 0)
    Local $aInfo = _GDIPlus_GraphicsMeasureString($hGrphContext, $string, $hFont, $tLayout, $hFormat)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hGrphContext)
    If $GDIp Then _GDIPlus_Shutdown()
    Local $aDim[2] = [Int(DllStructGetData($aInfo[0], "Width")), Int(DllStructGetData($aInfo[0], "Height"))]
    Return $aDim
EndFunc

Br,
UEZ

Edited by UEZ, 11 March 2012 - 09:29 PM.

[Belini]

UEZ UDF excellent, how appears only in part of the screen?

Edited by Belini, 09 March 2012 - 01:44 PM.

[UEZ]

Anybody else with same problem?

@Belini: Did you modify something?

Br,
UEZ

[Belini]

I tried and did not work, also the font color is not changing.

[guinness]

Anybody else with same problem?

@Belini: Did you modify something?

Br,
UEZ

Works for me on Windows 7 x64 using AutoIt V3.3.9.1.

[BrewManNH]

I tried it on Win 7 running both AutoIt 3.3.8.1 and 3.3.9.1, using both x64 and x86 and it worked for me.

[UEZ]

I cannot imagine what could be wrong with Belini's pc....

Thanks for testing!

Br,
UEZ

[guinness]

I guess he's using Windows XP but no idea what service pack etc...

[Belini]

I tried it on Win 7 running both AutoIt 3.3.8.1 and 3.3.9.1, using both x64 and x86 and it worked for me.

Windows XP Spack2


@ UEZ do not think you understand, I want only to appear a screen part, I do not want the whole screen

The image is an example of what I want

Edited by Belini, 09 March 2012 - 07:28 PM.

[D4RKON3]

The screen shot he attached was for to show you how he want it to be, he didn't said your script appears like that, he said he want it to be like that.

Edited by D4RKON3, 09 March 2012 - 08:08 PM.

[UEZ]

Sorry, I misunderstood what you want to ask!

That's not easily possible because here the whole label is moving from right to left and it cannot be implemented as shown in the screenshot.

One possibility might be creating 2 topmost child windows with appropriate size and height which overlap the left and right part of the scroller.
This could give the illusion that the scroller is only in a middle part of the gui.

Br,
UEZ

[guinness]

UEZ,

I thought the same as you and probably everyone else did on the forum, that Belini had a problem with your UDF not requesting a new feature to be added.

[Belini]

Thank you all for your attention, the marquee did Melba23 UDF will do what I need.