>It works for me. With zero info provided by you it's impossible to figure out why it doesn't work for you.
>
>>This does not work - scroll bar disabled but still visible... :(
>>
>>>
Thisform.oWeb.Document.Body.Scroll = "no"
>>>
>>>>But how change the border of this ole control and disable scrollbar?
>>>>
>>>>>You can use Web Browser control. Drop it on a form and add NODEFAULT to Refresh() method. See
Re: Possible to feed html to Explorer ole rather than url? Thread #
930769 Message #
930771 for some sample code.
>>>>>
Here is my code:
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT owb AS olecontrol WITH ;
Top = 30, ;
Left = 15, ;
Height = 186, ;
Width = 346, ;
Name = "oWB"
PROCEDURE Init
WITH Thisform.oWB
.Navigate("about:blank")
lnStartSeconds = SECONDS()
DO WHILE .ReadyState <> 4 ;
AND (SECONDS()-lnStartSeconds <= 1 )
DOEVENTS
ENDDO
.Document.Open()
.Document.Write([<body style="border-style:none; border-width:0">Label: <b>Value</b><br>Label2: <i>Value2</i></body>])
.Document.Body.Scroll = "no"
.Document.Close()
ENDWITH
ENDPROC
ENDDEFINE
Giedrius
