>*---Set INI file names *TB 04/05/2000 >inifile = 'PROFILER.INI' >wkinifile = LEFT(SYS(2019),RAT('\',SYS(2019)))+'WORKSTAT.INI' > >*---Set Font for Pro32 Version > >PUBLIC glFontName, glFontSize, glWidth, glHeight, glRow > >lPointSize = get_ini(wkinifile,'[Defaults]','FontSize') > >glRow = 0 > >#IF 'VISUAL' $ UPPER(VERSION()) > glRow = 1 >#ENDIF > >DO CASE >CASE lPointSize = '14' > glFontName = 'FoxFonten' > glFontSize = 14 > glWidth = 720 > glHeight = 460 >CASE lPointSize = '17' > glFontName = 'FoxFonten' > glFontSize = 17 > glWidth = 885 > glHeight = 625 >OTHERWISE > lPointSize = '10' > glFontName = 'FoxFont' > glFontSize = 10 > glWidth = 640 > glHeight = 380 > > #IF 'VISUAL' $ UPPER(VERSION()) > glRow = 2 > #ENDIF >ENDCASE > > With _Screen > .LockScreen=.T. > .fontname=glFontName > .fontsize=glFontSize > .fontbold=.f. > .BorderStyle=1 > .WindowState=0 > .Closable=.F. .ControlBox=.T. > .MaxButton=.F. > .MinButton=.T. > .Width = glWidth > .Height = glHeight > .MinWidth = glWidth > .MinHeight = glHeight > .Caption="Policy Profiler 32" > .autocenter=.F. > * Set VFP desktop top to half the difference between > * monitor resolution height and _vfp.height > _vfp.Top = (Sysmetric(2) - _vfp.Height)/2 > _vfp.Left= (Sysmetric(1) - _vfp.width)/2 > IF _vfp.Top>1 > _vfp.Top=1 > ENDIF > IF _vfp.Height<(Sysmetric(2)-4) > _vfp.Top=_vfp.Top+2 > ENDIF > .LockScreen=.F. > .visible=.T. > Endwith >>