#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include 'Marquee.au3'
Global $aMarquee
GUICreate('Marquee Example 1', 320, 220)
$aMarquee = _GUICtrlMarquee_Init()
_GUICtrlMarquee_SetScroll($aMarquee, 0, Default, 'up', 3)
_GUICtrlMarquee_SetDisplay($aMarquee, 2, 'green', Default, 18, 'comic sans ms')
_GUICtrlMarquee_Create($aMarquee, FileRead(@ScriptDir & '\test.html'), 10, 10, 250, 100)
GUISetState()
Global $oIE = $aMarquee_Params[$aMarquee][1]
$oIE.document.write('Up and Up... Up and Up... Up and Up... Up and Up... Up and Up... ')
$oIE.document.body.style.margin = '0'
$oIE.document.body.style.padding = '0'
$oIE.document.body.style.fontfamily = 'Verdana, Arial, Helvetica, sans-serif'
$oIE.document.body.style.fontSize = '22px'
Local $oTextNode = _IETagNameGetCollection($oIE, 'body', 0)
MsgBox(0, '', _GetTextHeight($oIE, $oTextNode))
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _GetTextHeight($o_Obj, $o_TextNode)
Local $i_Height = 0
Local $o_Range = $o_TextNode.createTextRange
Local $o_Rect = $o_Range.getBoundingClientRect
$i_Height = $o_Rect.bottom - $o_Rect.top
Return $i_Height
EndFunc