PARAMETERS cIdUser

LOCAL lcPath, lnOld 

lnOld = _screen.Height
_screen.Height = 1
_screen.Icon = 'samples\images\CHARTS.ICO'
_screen.Icon = 'Generador de gráficos...'


lcPath = ADDBS(JUSTPATH(SYS(16)))

SET PATH TO (lcPath) ADDITIVE
SET PATH TO (lcPath + "..\samples\images\") ADDITIVE
SET PATH TO (lcPath + "..\source\") ADDITIVE

DO (LOCFILE("System.app"))

LOCAL lcCommand
lcCommand ='DO FORM samples\chartssample_builder_vfac.scx WITH cIdUser NAME oSample'
&lcCommand
IF TYPE("oSample.Name") = "C"
	oSample.AddObject("ImgVFPXPowered", "Image")
	oSample.ShowTips = .T.
	WITH oSample.ImgVFPXPowered
		.Picture = "Images\vfpxpoweredby_alternative.gif"
		.Left = oSample.Width - .Width
		.Top = oSample.Height - .Height
		.Anchor = 192
		.ZOrder(0)
		.Visible = .T.
	ENDWITH
ENDIF

_screen.Hide

READ EVENTS

CLEAR EVENTS 

IF _VFP.Startmode = 4 && EXE or APP
	CLEAR ALL
	ON SHUTDOWN
	QUIT
ELSE
	_screen.Height = lnOld
	_screen.Show
ENDIF 