$PBExportHeader$f_centre_fenetre.srf
$PBExportComments$centrage de toute fenetre désignée
global type f_centre_fenetre from function_object
end type

forward prototypes
global subroutine f_centre_fenetre (window a_win)
end prototypes

global subroutine f_centre_fenetre (window a_win);//////////////////////////////////////////////////////////////////////
// Centre la fenêtre par rapport à la dimension de l'écran.
//////////////////////////////////////////////////////////////////////
environment le_env
int       li_screenheight, li_screenwidth

/* prend les mesures de l'écran */

GetEnvironment(le_env)
li_screenheight   = PixelsToUnits(le_env.screenheight,YPixelsToUnits!)
li_screenwidth   = PixelsToUnits(le_env.screenwidth,XPixelsToUnits!)

/* place la fenêtre active */

a_Win.Move( (li_ScreenWidth - a_Win.Width) / 2, (li_ScreenHeight - a_Win.Height) / 2 )
end subroutine