My First Procedure - CenterWindow

[peaslee]

With some help from others on GetWindowInfo, here is my procedure for centering a window:

Code Select Expand


CenterWindow proc hwnd:HWND

LOCAL WinWidth
LOCAL WinHeight
LOCAL NewX
LOCAL NewY
LOCAL WinInfo:WINDOWINFO

invoke GetWindowInfo, hwnd, ADDR WinInfo
mov    eax, WinInfo.rcWindow.right
sub    eax, WinInfo.rcWindow.left
mov    WinWidth, eax
mov    eax, WinInfo.rcWindow.bottom
sub    eax, WinInfo.rcWindow.top
mov    WinHeight, eax

invoke GetSystemMetrics, SM_CXSCREEN
sub    eax, WinWidth
shr    eax, 1
mov    NewX, eax

invoke GetSystemMetrics, SM_CYSCREEN
sub    eax, WinHeight
shr    eax, 1
mov    NewY, eax

invoke SetWindowPos, hwnd, HWND_NOTOPMOST, NewX, NewY, WinWidth, WinHeight, NULL
ret

CenterWindow endp



This should be invoked before ShowWindow to avoid flicker.

Bruce

[ecube]

nice work! in GoASM 64bit that'd be something like

Code Select Expand


CenterWindow FRAME hwnd
LOCAL WinWidth:Q
LOCAL WinHeight:Q
LOCAL NewX:Q
LOCAL NewY:Q
LOCAL WinInfo:WINDOWINFO

invoke GetWindowInfo,[hwnd], ADDR WinInfo
mov    rax, [WinInfo.rcWindow.right]
sub     rax, [WinInfo.rcWindow.left]
mov    Q[WinWidth], rax
mov    rax, [WinInfo.rcWindow.bottom]
sub     rax, [WinInfo.rcWindow.top]
mov    Q[WinHeight], rax

invoke GetSystemMetrics, SM_CXSCREEN
sub    rax, [WinWidth]
shr     rax, 1
mov   Q[NewX], rax

invoke GetSystemMetrics, SM_CYSCREEN
sub    rax, [WinHeight]
shr     rax, 1
mov    Q[NewY], rax

invoke SetWindowPos, [hwnd], HWND_NOTOPMOST, [NewX], [NewY],[ WinWidth], [WinHeight], NULL
ret
endf

can I use the 32bit and 64bit version of your code in the SDK i'm releasing tonight for GoASM?

[peaslee]

can I use the 32bit and 64bit version of your code in the SDK i'm releasing tonight for GoASM?

Sure.

[donkey]

Hi E^cube,

mov    Q[WinWidth], rax

The Q is not necessary since the size of the register is known. Doesn't hurt anything to leave it in though.

Edgar

[MichaelW]

One thing that I don't see in the procedure is code to set the cbSize member of the WINDOWINFO structure. Per the PSDK this is required. It seems to work OK under Windows 2000 without it, but it might not under all versions.

[ecube]

Thanks Donkey,
I hope when I upload the sdk in a few hours you'll take a look at the sources, i'm sure I wrote/converted many things wrong :) even though i've tested everything it seems to run ok. Having .IF,.ELSEIF etc woulda made life a lot easier with some things but it's ok...