*---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>Hi Tracy,