1. Centering Windows
- Posted by president at insight-concepts.com May 22, 2001
- 425 views
Hi all, Does anyone know how to center win32lib windows no matter what the screen resolution is? Chris
2. Re: Centering Windows
- Posted by Euman <euman at bellsouth.net> May 22, 2001
- 431 views
This is a multi-part message in MIME format. ------=_NextPart_000_000D_01C0E314.8A35B300 charset="iso-8859-1" Here you go, Its much smaller than Dereks method and works for me.... BTW, Thank Wolf, not me. Euman ----- Original Message ----- From: <president at insight-concepts.com> To: "EUforum" <EUforum at topica.com> Sent: Tuesday, May 22, 2001 21:33 Subject: RE: Centering Windows > > > Hi All, > > Does anyone know how to center win32lib windows no matter what the > screen resolution is? > > Chris > Long Live Euphoria.... > > > > > > ------=_NextPart_000_000D_01C0E314.8A35B300 Content-Type: application/octet-stream; name="CenterWindows.ew" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="CenterWindows.ew" global integer xScreen, yScreen xScreen = getSystemMetrics(SM_CXSCREEN) -- screen width yScreen = getSystemMetrics(SM_CYSCREEN) -- screen height global function centerX(integer cx) -- returns the LEFT value of a window that is to be centered return (floor(xScreen/2) - floor(cx/2)) end function global function centerY(integer cy) -- returns the TOP value of a window that is to be centered return (floor(yScreen/2) - floor(cy/2)) end function -- Usage: -- centerX(xScreen) -- centerY(yScreen) -- Example: Win= create(Window,"",0,centerX(500),centerY(350),500,350,0) -- Note that the initial X and Y values are the same as the X2, Y2 values -- only have the function wrap (centerX and centerY) ------=_NextPart_000_000D_01C0E314.8A35B300--