GUICtrlCreateObj IE

[Madza91]

Hi...

1. How to create IE obj to have $WS_EX_CLIENTEDGE ?

2. And how to made IE obj without Hscroll - to have wordwrap (when is word too large) ?

expandcollapse popup

#include <GUIConstants.au3>
#include <IE.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

$XT_oIE = _IECreateEmbedded()
$MainGui = GUICreate("Chat",604, 440)
$Obj_RCV = GUICtrlCreateObj($XT_oIE, 2, 2, 600, 346)
_IENavigate($XT_oIE, "about:blank")
$oBody = _IETagNameGetCollection($XT_oIE, "body", 0) ; <---------- This is new
$EditSend = GUICtrlCreateEdit("dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd",2, 350, 539, 20,0)
$Send = GUICtrlCreateButton("Send", 542, 349, 60, 22, $BS_DEFPUSHBUTTON)
GUICtrlSetState($EditSend,$GUI_FOCUS)
GUISetState(@SW_SHOW)
$begin = TimerInit()
_IEHeadInsertEventScript($XT_oIE, "document", "oncontextmenu", "return false")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Send
            XSkinText(GUICtrlRead($EditSend))
            GUICtrlSetData($EditSend,"")
            GUICtrlSetState($EditSend,$GUI_FOCUS)
    EndSwitch
WEnd

Func XSkinText($msg = "", $color = "black", $size = "3")
    If $msg == "/clr"  Then Return _IEDocWriteHTML($XT_oIE, "")
    If $msg == "/exit"  Then Exit
    If StringInStr($msg,"/goto:",1)  Then
        $URL=StringSplit($msg,":")
        Return _IENavigate($XT_oIE,StringStripWS($URL[2],8) ,0)
    EndIf
    $sAppend = "<font face=""Verdana"" color=""#" & $color & """ size=""1"">°" & @HOUR & ":" & @MIN & ":" & @SEC & "° Nick: </font>" & "<font face=""Verdana"" color=""#" & $color & """ size=""1""> " & $msg & "</font><br>"
    _IEDocInsertHTML($oBody, $sAppend)
    $iVisibleHeight = $XT_oIE.document.body.clientHeight
    $XT_oIE.document.parentwindow.scrollBy(0, $iVisibleHeight)
    ; End New code
EndFunc

Edited July 15, 2008 by n3nE

[Madza91]

Any1 muttley

Help pls ;/

[DaleHohm]

For client edge, See here: http://www.autoitscript.com/forum/index.ph...ient+edge\

A textArea element has a wrap property that defaults to off and can be set to hard or soft (hard converts line breaks to CRLF)

$oTextArea.wrap = "soft"

Dale

[Madza91]

Thx muttley