Centre Menu on Screen (OpenInsight 32-bit) [Revelation On-Line Wiki]

OpenInsight 32-bit, B J Ray, Andrew McAuley

Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community

At 29 JAN 2012 05:33:55PM B J Ray wrote:

We currently use fairly long-winded code to centre a Menu/Dialog Box of any size on screens of any shape.

Based on a call in the CREATE event of the window:

ScreenSize = Get_Property("SYSTEM", "SIZE") ; * 1024 768 1024 712

DialogSize = Get_Property(@window, "SIZE") ; * eg Library_Menu

ParentSize = Get_Property(Parent, "SIZE") ; * eg Main menu
 ........ calculate postion based on size of screen/desktop and menu to be displayed
old = Set_Property(MenuId, "SIZE", NewSize) ; * position Menu on Desktop

It works but the menu is displayed in one location then jumps to the centre of the screen.

We notice that the RevTech logo goes straight to the centre of the screen.

Not a big deal, but would like to know if it is possible to have the menus display immediately in the centre of the screen