G
goo
Guest
That is correct. I am not sure what you mean with 'how are you....'. I uses a class that implements something like this: Is this what you wanted to know? : : METHOD PUBLIC OVERRIDE VOID InitializeComponent( ): THIS-OBJECT:webBrowser1 = NEW System.Windows.Forms.WebBrowser(). THIS-OBJECT:SuspendLayout(). ProgressKey = Microsoft.Win32.RegistryKey:OpenBaseKey(Microsoft.Win32.RegistryHive:CurrentUser, Microsoft.Win32.RegistryView:Registry64). ProgressKey = ProgressKey:CreateSubKey("Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION"). ProgressKey:SetValue("prowc.exe", 0). /* */ /* webBrowser1 */ /* */ THIS-OBJECT:webBrowser1
ock = System.Windows.Forms.DockStyle:Fill. THIS-OBJECT:webBrowser1:Location = NEW System.Drawing.Point(0, 0). THIS-OBJECT:webBrowser1:MinimumSize = NEW System.Drawing.Size(20, 20). THIS-OBJECT:webBrowser1:Name = "webBrowser1". THIS-OBJECT:webBrowser1:Size = NEW System.Drawing.Size(667, 329). THIS-OBJECT:webBrowser1:TabIndex = 0. /* THIS-OBJECT:webBrowser1:Url = NEW System.Uri("http:\\www.vg.no", System.UriKind:Absolute).*/ /* THIS-OBJECT:webBrowser1:Url = NEW System.Uri("file:\\C:\tmp\test.swf", System.UriKind:Absolute). */ THIS-OBJECT:webBrowser1:ScriptErrorsSuppressed = TRUE. THIS-OBJECT:webBrowser1:WebBrowserShortcutsEnabled = FALSE. THIS-OBJECT:webBrowser1ocumentCompleted:Subscribe(THIS-OBJECT:webBrowser1_DocumentCompleted). /* */ /* WebBrowser */ /* */ THIS-OBJECT:ClientSize = NEW System.Drawing.Size(667, 329). THIS-OBJECT:Controls:Add(THIS-OBJECT:webBrowser1). THIS-OBJECT:Name = "WebBrowser". THIS-OBJECT:Text = "WebBrowser". THIS-OBJECT:ResumeLayout(FALSE). CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END METHOD.
Continue reading...
ock = System.Windows.Forms.DockStyle:Fill. THIS-OBJECT:webBrowser1:Location = NEW System.Drawing.Point(0, 0). THIS-OBJECT:webBrowser1:MinimumSize = NEW System.Drawing.Size(20, 20). THIS-OBJECT:webBrowser1:Name = "webBrowser1". THIS-OBJECT:webBrowser1:Size = NEW System.Drawing.Size(667, 329). THIS-OBJECT:webBrowser1:TabIndex = 0. /* THIS-OBJECT:webBrowser1:Url = NEW System.Uri("http:\\www.vg.no", System.UriKind:Absolute).*/ /* THIS-OBJECT:webBrowser1:Url = NEW System.Uri("file:\\C:\tmp\test.swf", System.UriKind:Absolute). */ THIS-OBJECT:webBrowser1:ScriptErrorsSuppressed = TRUE. THIS-OBJECT:webBrowser1:WebBrowserShortcutsEnabled = FALSE. THIS-OBJECT:webBrowser1ocumentCompleted:Subscribe(THIS-OBJECT:webBrowser1_DocumentCompleted). /* */ /* WebBrowser */ /* */ THIS-OBJECT:ClientSize = NEW System.Drawing.Size(667, 329). THIS-OBJECT:Controls:Add(THIS-OBJECT:webBrowser1). THIS-OBJECT:Name = "WebBrowser". THIS-OBJECT:Text = "WebBrowser". THIS-OBJECT:ResumeLayout(FALSE). CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END METHOD.Continue reading...