How do I center a window on the desktop?

Estimated Reading Time: 1 Minutes

154 Support KB Author August 5, 2022 User Interface 9034

To center a window use W$CENTER_WINDOW. Pass the window handle to this library to center the window on the current screen:

   call "W$CENTER-WINDOW"  using windowHandle

You can also pass the screen index to center your screen on a different monitor.
Use C$MONITOR's opcode GET-NO-MONITOR to get the number of monitors available and pass the number of the monitor you want to center your application in:

   call "C$MONITOR" using cmonitor-get-no-monitor
                          monitor-count, 
                          main-index.
   if monitor-count >= 2
      call "W$CENTER-WINDOW" using windowHandle, 
                                   2
   end-if.

Use the inquire verb to get the current screen index

   inquire windowHandle, screen-index in scr-num.