Thisform.oWeb.Document.Body.Scroll = "no">>>
PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (c:\test\frx\html_show.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 04/13/06 04:42:03 PM * 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 * *-- EndDefine: form1 **************************************************