FUNCTION ScreenHeight() when automatic hide Taskbar

[Jimmy]

hi,

to use "full" Desktop Size i "automatic" hide Taskbar
but than FUNCTION ScreenHeight() give to small Height

so i wrote this

Code: Select all  Expand view

#define DESKTOPVERTRES       0x0075
#define DESKTOPHORZRES       0x0076

FUNCTION ScreenHeightNative()
LOCAL hDC, nHeight
   hDC := GetDC( 0 )
   nHeight := GetDeviceCaps( hDC, DESKTOPVERTRES )
   ReleaseDC( 0, hDC )
RETURN nHeight

[Antonio Linares]

Dear Jimmy,

very good!

many thanks for sharing it