MarkRobbins

IE embedded border-radius not complying

3 posts in this topic

I have IE 10 installed, so I assume the embedded is using the same.

If I make a test html doc that has a DIV with inline style of "border-radius:8px 8px 8px 8px;" this radius works if I browse the file with normal IE 10 --- but if I am embedding IE in a form and using _IEPropertySet($oIE, 'innerhtml', $html) with the exact same html that is in the file, the border-radius does not work.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister()
Local $oIE = _IECreateEmbedded()

Global $thisfile="C:\batch\borg\TestCreeper.au3"
Global $logg="C:\$data\logs\TestCreeper-log.txt";
Global $timestamp=@YEAR&"."&@MON&"."&@MDAY&"."&@HOUR&"."&@MIN&"."&@SEC&"."&@MSEC


Global $f_w=800
Global $f_h=400

Global $hgui=GUICreate("Embedded Web control Test", $f_w, $f_h, _
        (@DesktopWidth - $f_w) / 2, (@DesktopHeight - $f_h) / 2, _
        $WS_POPUP)
GUICtrlCreateObj($oIE, -2, -2, $f_w+30, $f_h+8)

GUISetState() ;Show GUI

_IENavigate($oIE, "about:blank")
Global $st='body {  background-color:black;margin: 0; padding: 0; } '

Global $tx='Mary had a little lamb, little lamb, little lamb, little lamb, whose fleece was white as snow'


;THIS DOESNT WORK, SPECIFYING EACH INDIVIDUALLY
Global $br=BorderRadiusTxt(8)
;MsgBox(0,$thisfile,$br)

;NONE OF THE FOLLOWING WORK
$br='border-radius:8px;'
$br='-ms-border-radius:8px;'
$br='-webkit-border-radius:8px;'
$br='-moz-border-radius:8px;'

$br='border-radius:8px 8px 8px 8px;'
$br='-ms-border-radius:8px 8px 8px 8px;'
$br='-webkit-border-radius:8px 8px 8px 8px;'
$br='-moz-border-radius:8px 8px 8px 8px;'

;WORKS IN IE, BUT NOT IN EMBEDDED     <<<<<=== HERE
$br='border-radius:8px 8px 8px 8px;'

Global $t='';
$t&='<div style="position:absolute;'&$br&'border:1px solid green;background-color:black;padding:12px;color:#ccc;font-family:Tahoma;height:10px;top:10px;left:10px;">'

$t&=$tx
$t&='</div>'

Global $body_tags='border="0" marginheight="0" topmargin="0" vspace="0" marginwidth="0" leftmargin="0" hspace="0" '

Global $html='<HTML><HEAD><STYLE type="text/css">'&$st&'</STYLE></HEAD><BODY '&$body_tags&'>'&$t&'</BODY></HTML>'
;MsgBox(0,$thisfile,$html)
;ClipPut($html)

Global $r=_IEPropertySet($oIE,'innerhtml',$html)

; Waiting for user to close the window
While 1
    Local $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

GUIDelete()









Func BorderRadiusTxt($i)
  Return 'border-top-left-radius:'&$i&'px;' & _
  'border-top-right-radius:'&$i&'px;' & _
  'border-bottom-left-radius:'&$i&'px;' & _
  'border-bottom-right-radius:'&$i&'px'
EndFunc

;;;;;;functions
Func ts()
  Return @YEAR&"."&@MON&"."&@MDAY&"."&@HOUR&"."&@MIN&"."&@SEC&"."&@MSEC
EndFunc
Func logline($line)
  Local $fh1=FileOpen($logg,1);
  If $fh1<>-1 Then
    FileWriteLine($fh1,$line)
    FileClose($fh1)
  EndIf
EndFunc

Share this post


Link to post
Share on other sites



I have IE 10 installed, so I assume the embedded is using the same.

If I make a test html doc that has a DIV with inline style of "border-radius:8px 8px 8px 8px;" this radius works if I browse the file with normal IE 10 --- but if I am embedding IE in a form and using _IEPropertySet($oIE, 'innerhtml', $html) with the exact same html that is in the file, the border-radius does not work.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister()
Local $oIE = _IECreateEmbedded()

Global $thisfile="C:\batch\borg\TestCreeper.au3"
Global $logg="C:\$data\logs\TestCreeper-log.txt";
Global $timestamp=@YEAR&"."&@MON&"."&@MDAY&"."&@HOUR&"."&@MIN&"."&@SEC&"."&@MSEC


Global $f_w=800
Global $f_h=400

Global $hgui=GUICreate("Embedded Web control Test", $f_w, $f_h, _
        (@DesktopWidth - $f_w) / 2, (@DesktopHeight - $f_h) / 2, _
        $WS_POPUP)
GUICtrlCreateObj($oIE, -2, -2, $f_w+30, $f_h+8)

GUISetState() ;Show GUI

_IENavigate($oIE, "about:blank")
Global $st='body {  background-color:black;margin: 0; padding: 0; } '

Global $tx='Mary had a little lamb, little lamb, little lamb, little lamb, whose fleece was white as snow'


;THIS DOESNT WORK, SPECIFYING EACH INDIVIDUALLY
Global $br=BorderRadiusTxt(8)
;MsgBox(0,$thisfile,$br)

;NONE OF THE FOLLOWING WORK
$br='border-radius:8px;'
$br='-ms-border-radius:8px;'
$br='-webkit-border-radius:8px;'
$br='-moz-border-radius:8px;'

$br='border-radius:8px 8px 8px 8px;'
$br='-ms-border-radius:8px 8px 8px 8px;'
$br='-webkit-border-radius:8px 8px 8px 8px;'
$br='-moz-border-radius:8px 8px 8px 8px;'

;WORKS IN IE, BUT NOT IN EMBEDDED     <<<<<=== HERE
$br='border-radius:8px 8px 8px 8px;'

Global $t='';
$t&='<div style="position:absolute;'&$br&'border:1px solid green;background-color:black;padding:12px;color:#ccc;font-family:Tahoma;height:10px;top:10px;left:10px;">'

$t&=$tx
$t&='</div>'

Global $body_tags='border="0" marginheight="0" topmargin="0" vspace="0" marginwidth="0" leftmargin="0" hspace="0" '

Global $html='<HTML><HEAD><STYLE type="text/css">'&$st&'</STYLE></HEAD><BODY '&$body_tags&'>'&$t&'</BODY></HTML>'
;MsgBox(0,$thisfile,$html)
;ClipPut($html)

Global $r=_IEPropertySet($oIE,'innerhtml',$html)

; Waiting for user to close the window
While 1
    Local $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

GUIDelete()









Func BorderRadiusTxt($i)
  Return 'border-top-left-radius:'&$i&'px;' & _
  'border-top-right-radius:'&$i&'px;' & _
  'border-bottom-left-radius:'&$i&'px;' & _
  'border-bottom-right-radius:'&$i&'px'
EndFunc

;;;;;;functions
Func ts()
  Return @YEAR&"."&@MON&"."&@MDAY&"."&@HOUR&"."&@MIN&"."&@SEC&"."&@MSEC
EndFunc
Func logline($line)
  Local $fh1=FileOpen($logg,1);
  If $fh1<>-1 Then
    FileWriteLine($fh1,$line)
    FileClose($fh1)
  EndIf
EndFunc

Did u solve the problem? I'm facing the same issue...

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • Spask
      By Spask
      Hi, I'm trying to find a text value inside of a html.
      This is what the line looks like normally:
      <p id="line1" class> <span class="bot">TEXT HERE</span> </p> The text then changes to a non breaking space:
      <p id="line1" class> <span class="bot">&nbsp;</span> </p> And then it changes back to normal text but it's different every time.
      Can I code this so that it grabs the text every time it changes and has a variable that represents it?
      I currently have this inside of my loop:
      $span = .document.getElementsByTagName("span") For $text In $span If $text.value = "&nbsp;" Then Sleep(50) MsgBox(0,0,0) ;messagebox to test if it can be found, but I don't know how to grab the text EndIf Next The problem is that there are many other lines in the html that have the same span but are called "line3", "line5", etc and the one I need is from "line1".
      I will appreciate if anyone can help with this!
    • electrons
      By electrons
      hi  , hope  you all doing well 
       cant find any elements on the page ?  and the right click mouse dont work too?
      iam trying with more than method , i need help please!!
       

    • ur
      By ur
      I have kept below line to wait for IE to load the site completely and continue.
      _IELoadWait($oIE)
       
      But, the code is continuing without waiting for it and I my execution is failing as the elements are not loaded completely.

       
      Any suggestions for alternate code to wait for the browser to load completely?
       
    • ur
      By ur
      We can select elements in IE using their IDs as below.
      Local $oDiv = _IEGetObjById($oIE, "x-auto-16-input") But to one button in the webpage, there is no ID to it.
      In selenium we have option to select this element using the CssSelector and clicked the button using below code in c# selenium.
      driver.FindElement(By.CssSelector("button.x-btn-text")).Click(); What is the alternative for this in AUtoIT?
    • FrancescoDiMuro
      By FrancescoDiMuro
      Good morning everyone
      I worked a bit on a little project of mine, and I managed to do what I was trying to do, or, automate a quiz in AutoIt.
      Now, everything works fine but, in order to achieve what I'm trying to achive, I'd like to make this script run faster.
      I'll attach a portion of the code in order to let you understand what my script does.
      $objIE_h1 = _IETagNameGetCollection($objIE, "h1") ; Take the text of the answer If @error Then ConsoleWrite("Errore durante la lettura degli h1 nella pagina. - Errore: " & @error & @CRLF) Else For $objElement In $objIE_h1 $strInnerText = $objElement.innerText Next Select Case StringInStr($strInnerText, "QUESTION") ; Here is the question ; PS4 PRO $objSpans = _IETagNameGetCollection($objIE, "span") ; Answers are stored here For $objElement In $objSpans If $i >= 4 Then $strAnswer = $objElement.innerText ; Take the text of the answer n° 0, 1, 2, 3 If StringInStr($strAnswer, "CORRECT ANSWER") Then ; If I match the correct answer, then, I have to click on the input with answer id = answer_i $j = $i - 4 $objInput = _IEGetObjById($objIE, "answer_" & $j) If @error Then ConsoleWrite("Errore durante la lettura della risposta #" & $i & " - Errore: " & @error & @CRLF) Else _IEAction($objInput, "click") If @error Then ConsoleWrite("Errore durante il click sull'elemento. - Errore: " & @error) Else ConsoleWrite($j & ") Risposta: " & $strAnswer & @CRLF) ExitLoop EndIf EndIf EndIf $i+=1 Else $i+=1 EndIf Next $i = 0 $j = 0 This is what my script does.
      Questions are 20, in which I have 15 multiple choice question, 2 images ( on which I use _IEImgClick() ), and 3 text inputs ( a simple send with the text I have to enter ).
      How can I make all of these, faster?
      If I reach this goal, I've probably done one of my best goals in life, and I'd like to share my happiness with you, giving a huge donation to this fantastic community!
      Thanks for your help