WINDOW - CENTRE ON OPENING

WINDOW - CENTRE ON OPENING

Put this function in an ancestor window:

Function: wf_center()

int iScreenHt, iScreenWid

environment le_env

// Get screen size from environment

GetEnvironment( le_env )

iScreenHt = PixelsToUnits( le_env.ScreenHeight, YPixelsToUnits! )

iScreenWid = PixelsToUnits( le_env.ScreenWidth, XPixelsToUnits! )

// Centre me!

this.Move( ( iScreenWid - this.Width ) / 2, ( iScreenHt - this.Height ) / 2 )