Hi Mike!

Doesn't work. When I do a

messagebox( TaskBarHeight())

it returns .t.



>>Hello all!
>>
>>Looks like sysmetric is not enough to garanty a good definition of of the maximum height and maximum width of a screen.
>>
>>I have those definitions
>>
>>thisform.width = SYSMETRIC(1) - SYSMETRIC(3) - SYSMETRIC(12)
>>thisform.Height = SYSMETRIC(2) - SYSMETRIC(4) - SYSMETRIC(13) - SYSMETRIC(29)
>>
>>What am I missing?
>You may want to also find out the Height of the taskbar at the bottom, and add it to the height of the screen:
>

TaskBarHeight()
>Function TaskBarHeight
>Declare Integer GetWindowRect In user32;
>   INTEGER HWnd, String lpRect
>Declare Integer FindWindow In user32;
>   STRING lpClassName,;
>   STRING lpWindowName
>
>Local cBuffer
> cBuffer = Replicate(Chr(0), 16)
> hWindow= FindWindow('Shell_TrayWnd', '')
> cRect = GetWinRect(hWindow)
> ?  "The height of the taskbar is: "+trans(buf2dword(Substr(cRect, 13,4))-buf2dword(Substr(cRect, 5,4)))
>Function GetWinRect(hWindow)
>Local cBuffer
> cBuffer = Replicate(Chr(0), 16)
> = GetWindowRect(hWindow, @cBuffer)
>Return cBuffer
>Function buf2dword(lcBuffer)
>Return Asc(Substr(lcBuffer, 1,1)) + ;
>   BitLShift(Asc(Substr(lcBuffer, 2,1)),  8) +;
>   BitLShift(Asc(Substr(lcBuffer, 3,1)), 16) +;
>   BitLShift(Asc(Substr(lcBuffer, 4,1)), 24)