How to automatically center a window?

Q: I want to make the applicationProgramThe main window is automatically displayed in the center of the screen regardless of the screen resolution and operating system version. What should I do?

A: It's too easy ......

Principle: use the environment object in Pb and the move function of the window.

Window (w_main)CodeAs follows:

// Variable Declaration
Environment env_system
Integer int_scrwidth, int_scrheight

// close the window and refresh.
setredraw (false)
// obtain the screen width and height
getenvironment (env_system)
int_scrwidth = pixelstounits (env_system.screenwidth, xpixelstounits !)
int_scrheight = pixelstounits (env_system.screenheight, ypixelstounits !)
// move the window to the center of the screen
move (int_scrwidth-this. width)/2, (int_scrheight-this. height)/2)
// open a window and refresh
setredraw (true)