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.
land_fla said:it just blink and disapears
vfp help said:Note that a top-level form is [highlight #FCE94F]always modeless[/highlight], regardless of the WindowType property setting.
Set talk off
SET SYSMENU OFF
set sysmenu to
SET SAFETY OFF
set century on
SET EXACT on
SET CPDIALOG OFF
Set Talk Off
Set Confirm Off
Set Century On
Set Echo Off
Set Date AMERICAN
Set Console Off
Set Safety Off
SET EXCLUSIVE OFF
Set Deleted On
Set Autoincerror Off
Set Status Bar On
Set Exact On
*** Public Variables
Public goMyApp
goMyApp = Createobject('EMPTY')
Rand(-1)
* Folder Locations
AddProperty(goMyApp, "FolderApp", Addbs(Justpath(Sys(16,0))))
AddProperty(goMyApp, "isEscKey", .F.) && for escaping intensive loop via ESC key
AddProperty(goMyApp, "FolderClass", Addbs(goMyApp.FolderApp)+'Classes')
SET CLASSLIB TO && Release all class library
Set Classlib To Addbs(goMyApp.FolderClass)+'_ssclasses' Additive
Set Classlib To Addbs(goMyApp.FolderClass)+'_sandstorm36' Additive
Set Classlib To Addbs(goMyApp.FolderClass)+'bbwin8tiles' Additive
Set Classlib To Addbs(goMyApp.FolderClass)+'ssUltimate' Additive
Set Classlib To Addbs(goMyApp.FolderClass)+'_calendar' Additive
Set Classlib To Addbs(goMyApp.FolderClass)+'_agent' Additive
Set Classlib To Addbs(goMyApp.FolderClass)+'_base' Additive
TRY
Set Path To Addbs(goMyApp.FolderApp)+'icons\combined', Addbs(goMyApp.FolderApp)+'icons\small',;
addbs(goMyApp.FolderApp)+'reports', Addbs(goMyApp.FolderApp)+'classes' Additive
Catch
ENDTRY
TRY
Set Procedure To addbs(goMyApp.FolderApp)+'prgs\junlib.prg', addbs(goMyApp.FolderApp)+'prgs\ss2xlsgui.prg' Additive
Catch
Endtry
Try
Set Classlib To Home(2)+'Solutions\Solution' Additive
Catch
Endtry
* This is mandatory, Path for ssUltimate library
Public ssUltimate
ssUltimate = Createobject('EMPTY')
AddProperty(ssUltimate,'SkinsFolder',Addbs(Getenv("APPDATA")))
_screen.visible = .t.
Do Form Addbs(goMyApp.FolderApp)+'Forms\searchitem'
READ EVENTS