#include-once #include Global $hCtrlObj, $hCtrl Func _GuiCtrlTexte_Create($x, $y, $width = -1, $height = -1, $bgcolor = "#FFFFFF") If Int($x) <> $x Or Int($y) <> $y Or $x = "" Or $y = "" Or $x = 0 Or $y = 0 Then Return 0 Else $hCtrlObj = _IECreateEmbedded() If @error Then Return 0 Else $hCtrl = GUICtrlCreateObj($hCtrlObj, $x, $y, $width, $height) _IENavigate($hCtrlObj, "about:blank") If @error Then Return 0 Else _IEDocWriteHTML($hCtrlObj, "" & @CRLF & "" & @CRLF & "" & @CRLF & "") If @error Then Return 0 Else Return $hCtrl EndIf EndIf EndIf EndIf EndFunc Func _GuiCtrlTexte_Write($s_html) _IEBodyWriteHTML($hCtrlObj, $s_html) If @error Then Return 0 Else Return 1 EndIf EndFunc Func _GuiCtrlTexte_Add($s_html) $Texte = _IEBodyReadHTML($hCtrlObj) If @error Then Return 0 Else _IEBodyWriteHTML($hCtrlObj, $Texte & $s_html) If @error Then Return 0 Else Return 1 EndIf EndIf EndFunc Func _GuiCtrlTexte_Read($rpt = 0) If $rpt = 0 Then $txtr = _IEBodyReadText($hCtrlObj) If @error Then Return 0 Else Return $txtr EndIf ElseIf $rpt = 1 Then $txtr = _IEBodyReadHTML($hCtrlObj) If @error Then Return 0 Else Return $txtr EndIf Else Return 0 EndIf EndFunc Func _GuiCtrlTexte_ChangeBkColor($n_bkcolor) If $n_bkcolor = "" Then Return 0 Else $stxt = _IEBodyReadHTML($hCtrlObj) If @error Then Return 0 Else _IEDocWriteHTML($hCtrlObj, "" & @CRLF & "" & @CRLF & "" & @CRLF & "") If @error Then Return 0 Else _IEBodyWriteHTML($hCtrlObj, $stxt) If @error Then Return 0 Else Return 1 EndIf EndIf EndIf EndIf EndFunc Func _GuiCtrlTexte_Clear($ltd = 0) If $ltd = 0 Then _IEBodyWriteHTML($hCtrlObj, "") If @error Then Return 0 Else Return 1 EndIf ElseIf Int($ltd) <> $ltd Then Return 0 Else Return 0 EndIf EndFunc Func _GuiCtrlTexte_Delete() If GUICtrlDelete($hCtrl) = 0 Then Return 0 Else Return 1 EndIf EndFunc