Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Mandy_crw said:my company is not paying me for the application, they consider it old.... although i tried selling it... our company is using web based app...
Mandy_crw said:my project is almost complete... just a little polishing...
lcText = THISFORM.lblMarquee.Caption
lcChar = LEFT(lcText, 1)
lcText = SUBSTR(lcText, 2) + lcChar
THISFORM.lblMarquee.Caption = lcText
**********************************************
* marquee using webbrowser control
**********************************************
oform = createobject('marqueeTest')
oform.visible = .t.
read events
define class marqueetest as Form
Height = 100
Width = 800
ShowWindow = 2
AutoCenter =.T.
Visible = .T.
MaxButton = .f.
MinButton = .t.
alwaysontop = .t.
Add Object browser As sexplorer With Height = 298, Width = 798, Visible = .T., Anchor = 15
id = ''
procedure destroy
clear events
*----------------------------
procedure init
*----------------------------
text to html noshow
<html>
<head>
<meta http-equiv="X-UA-Compatible" content="IE=Edge">
</head>
<marquee>
<h2 style="font-family:Segoe UI Emoji;">
🦊🦊🦊 Visual Foxpro can Show and use HTML using webbrowser control...! 🦊🦊🦊
</h2>
</marquee>
</html>
endtext
with this.browser
.silent = .t.
.navigate('about:blank')
.document.open()
.document.write(m.html)
endwith
*******************************************
enddefine
*******************************************
********************************************
Define Class sexplorer As OleControl
********************************************
OleClass = 'shell.explorer.2'
*------------------------
Procedure Init
*------------------------
This.silent = .T.
********************************************
Enddefine
********************************************
Mike L. said:Let's all try and keep it that way.
Mike Y. said:Too bad I can get no support from the likes of you